View previous topic :: View next topic
|
Author |
Message |
srajendran2
New User
Joined: 13 May 2008 Posts: 56 Location: Chennai
|
|
|
|
Hi,
My requirement is to cut all the details from one PDS member and paste it in another PDS member. I have coded the below Macro. But the objective is not met. I am getting RC(4) in CUT ALL and RC(12) in PASTE ALL. Could you please let me know how this can be achieved?
Macro 1:
Code: |
ADDRESS ISPEXEC
"CONTROL ERRORS RETURN"
"VGET (INP1) SHARED"
"VGET (INP5) SHARED"
ADDRESS ISPEXEC "EDIT DATASET('"JCL"("MEM")') MACRO(RXCUTALL)"
ADDRESS ISREDIT
"MACRO (RXJCLMCR)"
"PASTE ALL"
"SAVE"
ADDRESS ISREDIT "END"
|
RXCUTALL MACRO:
Code: |
ADDRESS ISPEXEC
"CONTROL ERRORS RETURN"
ADDRESS ISREDIT
"MACRO (RXCUTALL)"
"CUT ALL"
"SAVE"
ADDRESS ISREDIT "END"
|
|
|
Back to top |
|
|
srajendran2
New User
Joined: 13 May 2008 Posts: 56 Location: Chennai
|
|
|
|
I used LMCOPY to achieve this. Thanks. Please let me know if there are any other options. |
|
Back to top |
|
|
daveporcelan
Active Member
Joined: 01 Dec 2006 Posts: 792 Location: Pennsylvania
|
|
|
|
Try:
Code: |
"ISREDIT CUT .ZF .ZL"
"ISREDIT PASTE" |
Instead of cut and paste, Better yet (why do I bother?):
Code: |
"ISREDIT COPY'"JCL"("MEM"')' AFTER .ZF" |
|
|
Back to top |
|
|
srajendran2
New User
Joined: 13 May 2008 Posts: 56 Location: Chennai
|
|
|
|
Thanks for the suggesstions Dave |
|
Back to top |
|
|
|