Problem in EDIT Dataset after EXECIO
Page 1 of 1
Problem in EDIT Dataset after EXECIO
Hi,
I am trying to Concatenate 2 members and store the result in another member of different PDS. I am doing this to automate a process in our project.
The problem is, after EXECIO DISKW command, when I am trying to open the member in Edit mode, I am not able to see the data; but
when I open it after the REXX is executed, I can see the data.
May be this is happening because the data written is not getting saved from buffer to the member when I open it...
The code is as given:
Code:
/* REXX */
TRACE I
DSN1 = "HLQ1.HLQ2.JCL3"
DSN2 = "HLQ1.HLQ2.JCL3(CONC)"
ADDRESS TSO
"ALLOCATE DATASET('"DSN1"') F(DAT) NEW SPACE(50,20) DIR(100)",
"DSORG(PO) RECFM(F,B) LRECL(80) BLKSIZE(8000)"
"FREE F(DAT)"
"ALLOC DA('"DSN2"') F(OUTDD) OLD REUSE"
LIM = 1
NUM_STEP = 2
DO WHILE LIM <= NUM_STEP
DD_NUM = 'DD'LIM
SKEL_NUM = 'SKEL'LIM
DSN_NUM = 'HLQ1.UTIL.SKELS('||SKEL_NUM||')'
"ALLOC F("DD_NUM") DA('"DSN_NUM"') SHR"
'EXECIO * DISKR 'DD_NUM' (STEM DATA.FINIS'
QUEUE''
'EXECIO * DISKW OUTDD (STEM DATA.FINIS'
LIM = LIM + 1
END
"ISPEXEC EDIT DATASET("DSN2")"
EXIT
LMCOPY could have worked if I want to copy from one member to another, but here there are multiple members and I want the concatenated output in third member.
The code is getting executed properly, except for one thing that I am not able to see the output in EDIT mode when I open it in REXX itself.
Please help me solve this problem.
I am trying to Concatenate 2 members and store the result in another member of different PDS. I am doing this to automate a process in our project.
The problem is, after EXECIO DISKW command, when I am trying to open the member in Edit mode, I am not able to see the data; but
when I open it after the REXX is executed, I can see the data.
May be this is happening because the data written is not getting saved from buffer to the member when I open it...
The code is as given:
Code:
/* REXX */
TRACE I
DSN1 = "HLQ1.HLQ2.JCL3"
DSN2 = "HLQ1.HLQ2.JCL3(CONC)"
ADDRESS TSO
"ALLOCATE DATASET('"DSN1"') F(DAT) NEW SPACE(50,20) DIR(100)",
"DSORG(PO) RECFM(F,B) LRECL(80) BLKSIZE(8000)"
"FREE F(DAT)"
"ALLOC DA('"DSN2"') F(OUTDD) OLD REUSE"
LIM = 1
NUM_STEP = 2
DO WHILE LIM <= NUM_STEP
DD_NUM = 'DD'LIM
SKEL_NUM = 'SKEL'LIM
DSN_NUM = 'HLQ1.UTIL.SKELS('||SKEL_NUM||')'
"ALLOC F("DD_NUM") DA('"DSN_NUM"') SHR"
'EXECIO * DISKR 'DD_NUM' (STEM DATA.FINIS'
QUEUE''
'EXECIO * DISKW OUTDD (STEM DATA.FINIS'
LIM = LIM + 1
END
"ISPEXEC EDIT DATASET("DSN2")"
EXIT
LMCOPY could have worked if I want to copy from one member to another, but here there are multiple members and I want the concatenated output in third member.
The code is getting executed properly, except for one thing that I am not able to see the output in EDIT mode when I open it in REXX itself.
Please help me solve this problem.
kasthuri- Posts : 212
Join date : 2013-01-27
Similar topics
» DATASET RESERVATION UNSUCCESSFUL , GDG
» how to grant access to dataset for other user?
» Problem with S9(18) Comp field
» Cursor problem - DSPF
» Record lock problem
» how to grant access to dataset for other user?
» Problem with S9(18) Comp field
» Cursor problem - DSPF
» Record lock problem
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
|
|