heres a file of text that would go along with it to be read in
&ACCESS RVP
&REL 37
&COMMENT TIPDRESS FUNCTION
DEF TIPDRESS1 ( )
;FOLD INI;%{PE}%V2.3.0,%MKUKATPBASIS,%CINIT,%VCOMMON,%P
;===================================
; SHELL - Package KR C1
; Version 1.2.3
; Date: 03.11.98...