MITHARG
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Problem in EDIT Dataset after EXECIO

Go down

Problem in EDIT Dataset after EXECIO Empty Problem in EDIT Dataset after EXECIO

Post  kasthuri Sun Jan 27, 2013 7:01 pm

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.

kasthuri

Posts : 212
Join date : 2013-01-27

Back to top Go down

Back to top

- Similar topics

 
Permissions in this forum:
You cannot reply to topics in this forum