I guess this might have got discussed earlier in this Forum but I could not get much info so posting for some assistance here.
I am having a PS File having records like
Code:
Alpha
Beta
Gamma
I need to read this file and write into anothr existing PS File in format
Code:
I AM WRITING Alpha
I AM WRITING Beta
I AM WRITING Gamma
I have a Rexx code written which is not giving any error, but not writing data into output file. Kindly correct me where am doing wrong, or point me to any link where I can refer to
Code:
/* REXX */
ADDRESS "TSO"
"ALLOC DA('W#E00G.LIST.MEM') F(INDD) SHR REUSE"
"ALLOC DA('W#E00G.LIST.MEM.LMS') F(OUTDD) OLD REUSE"
SAY 'COPYING ...'
"EXECIO * DISKR INDD (FINIS STEM READ1"
DO I = 1 BY 1 UNTIL I = 5
WRITED.I = "I AM WRITING" || READ1.I
END
"EXECIO * DISKW OUTDD(FINIS STEM WRITED"
SAY 'COPY COMPLETE'
"FREE F(INDD OUTDD)"
EXIT
Joined: 03 Oct 2009 Posts: 1789 Location: Bloomington, IL
Note that in EXECIO, both for input and output, there is a difference between varname and varname.; the former is not a stem. Change your STEM specifications.
Worked well...
