Writing data in Sequential file thru rexx
Posted: Sun Jan 08, 2017 8:33 pm
Hi All,
I am writig hard code syntax in sequential file thru rexx thru the outline command.
Below is the code.
/* rexx */
"ALLOC F(INFILE) DSN('TS.TEST.FILE.SE')
"EXECIO * DISKR INFILE( FINIS STEM MYFILE."
"FREE F(INFILE)"
out = lineout(TS.TEST.FILE.SE."LINE 1")
this is giving error message Routine not found
I am writig hard code syntax in sequential file thru rexx thru the outline command.
Below is the code.
/* rexx */
"ALLOC F(INFILE) DSN('TS.TEST.FILE.SE')
"EXECIO * DISKR INFILE( FINIS STEM MYFILE."
"FREE F(INFILE)"
out = lineout(TS.TEST.FILE.SE."LINE 1")
this is giving error message Routine not found