|
View previous topic :: View next topic
|
| Author |
Message |
shiitiizz
New User
Joined: 12 Sep 2013
Posts: 22
Location: India
|
|
|
|
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
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 |
|
|
| Back to top |
|
 |
Akatsukami
Global Moderator
Joined: 03 Oct 2009
Posts: 1788
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. |
|
| Back to top |
|
|
shiitiizz
New User
Joined: 12 Sep 2013
Posts: 22
Location: India
|
|
|
|
Thanks  Worked well...
Code corrected as below:
| 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 |
|
|
| Back to top |
|
|
|
|
