Problem in EDIT Dataset after EXECIO

Go down

Problem in EDIT Dataset after EXECIO

Post  kasthuri on 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

View user profile

Back to top Go down

Back to top

- Similar topics

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