Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

To edit 'lines cut frm DS' before pasting them in same DS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
Ankit Kumar Gupta

New User


Joined: 08 Jan 2011
Posts: 16
Location: India

PostPosted: Sat Feb 12, 2011 1:44 pm    Post subject: To edit 'lines cut frm DS' before pasting them in same DS
Reply with quote

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
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Sat Feb 12, 2011 3:30 pm    Post subject:
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Sat Feb 12, 2011 3:32 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Mass comment and edit elixir1986 IBM Tools 3 Thu Mar 02, 2017 10:09 pm
No new posts syncsort: copy lines after the keyword shreya19 SYNCSORT 7 Fri Dec 02, 2016 9:47 am
No new posts Insert Lines in JCL with Rexx after a... Willy Jensen CLIST & REXX 3 Tue Aug 30, 2016 4:18 pm
No new posts Use of Edit & FTOV migusd SYNCSORT 3 Wed Jun 08, 2016 1:49 am
No new posts How storage is calculated for AN-Edit... Raghu navaikulam COBOL Programming 2 Wed Mar 09, 2016 3:51 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us