|
View previous topic :: View next topic
|
| Author |
Message |
Ankit Kumar Gupta
New User
Joined: 08 Jan 2011
Posts: 16
Location: India
|
|
|
|
Hi,
I have a requirement and facing a problem in a part of it.
I have retreived the GDG DS names from the DS macro is called. Now using Skeleton, I am creating a JCL which will create GDG Bases if the user submits it.
The Macro will create steps in a FINAL JCL and finally open it in EDIT mode in front of user to submit it manually if he wants.
Now, I am able to get the skeleton data and put it in a FINAL JCL DS and able to make it ready for first GDG base step. Now, when the macro encounters the second GDG DS. It will pick the DS name and then open the same FINAL JCL DS in edit mode and append one more step for the GDG DS found.
Below is the code I am trying to use. But instead of performing cut/paste in FINAL JCL DS. It is doing it in the DS from where macro is getting called.
| Code: |
ADDRESS ISREDIT
"F EXEC LAST"
"LABEL .ZCSR = .A"
"LABEL .ZL = .B"
"CUT .A .B"
"PASTE AFTER .ZL"
"SAVE"
"END"
|
JCL in above code is the FINAL DS NAME.
One more thing, before "PASTE AFTER .ZL" It has to edit the DS name. Please suggest the commands that can be used for that also. |
|
| Back to top |
|
 |
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
1) ISPF file tailoring is oh so much better than building instream JCL
2) Why not just build the GDG bases from the REXX rather than submitting a job
3) This, or similar has been discussed already on the forum |
|
| Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales
|
|
|
|
RE point 1 above, using the GDG base names from a stem
| Code: |
"ISPEXEC FTOPEN"
"ISPEXEC FTINCL BASEJCL"
DO AA = 1 TO STEM.0
"ISPEXEC FTINCL BUILDGDG"
END |
|
|
| Back to top |
|
|
|
|
