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
 

 

Saving expanded JCL

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

New User


Joined: 22 Jun 2007
Posts: 42
Location: Chennai

PostPosted: Wed Aug 05, 2009 4:18 pm    Post subject: Saving expanded JCL
Reply with quote

Hi,

I have the following code:
Code:
/*******************************REXX******************************/   
DSIN = 'XXXX00D.ISDXU03.INPUT.JCLLIB(MYJCL)'                           
ADDRESS ISPEXEC                                                       
"EDIT DATASET('"DSIN"') MACRO(JJ)"                                     
IF RC > 4 THEN                                                         
  SAY 'JCL ERROR'                                                     
ELSE                                                                   
  SAY 'OK'                                                             
"ISREDIT CANCEL"                                                       
EXIT                                                                   

I want to save the expanded version output in some other dataset. How can I do it?
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: Wed Aug 05, 2009 4:25 pm    Post subject:
Reply with quote

Where is the expanded JCL created.
How is it created.
When is it created.
Back to top
View user's profile Send private message
ayansau

New User


Joined: 22 Jun 2007
Posts: 42
Location: Chennai

PostPosted: Wed Aug 05, 2009 4:30 pm    Post subject:
Reply with quote

The expanded jcl created in the same location
'XXXX00D.ISDXU03.INPUT.JCLLIB(MYJCL)' but if I CUT and PASTE the expanded JCL, expanded lines are not copied.

If I execute the REXX code by giving EX, it's expanding.
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1018
Location: Oostende, Belgium

PostPosted: Wed Aug 05, 2009 4:38 pm    Post subject:
Reply with quote

Use VIEW rather than edit and put an MD9999 line command on the first line before doing the CUT and then cancel out.
Back to top
View user's profile Send private message
ayansau

New User


Joined: 22 Jun 2007
Posts: 42
Location: Chennai

PostPosted: Wed Aug 05, 2009 5:23 pm    Post subject:
Reply with quote

Is there any possibility to use the same commend (MD9999) in the rexx code and save the output?
Back to top
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1018
Location: Oostende, Belgium

PostPosted: Wed Aug 05, 2009 7:13 pm    Post subject:
Reply with quote

ayansau wrote:
Is there any possibility to use the same commend (MD9999) in the rexx code and save the output?


No!

There are no publicly-documented methods to work with non-data lines in the ISPF editor, other than the L(ocate) command.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1228
Location: Israel

PostPosted: Wed Aug 05, 2009 7:32 pm    Post subject: Reply to: Saving expanded JCL
Reply with quote

Quote:
if I CUT and PASTE the expanded JCL, expanded lines are not copied.

If this is so, maybe the expanded lines are in fact message lines (==MSG>), note lines (=NOTE=) or info lines (======), not real member lines.
I'm not sure there is way to use MD in a macro, so maybe it is no possible to save.

Quote:
I want to save the expanded version output in some other dataset.

I assume that the macro JJ leaves the member opened, so you will have to change some of your logic:

Write your own macro MYJJ:
Code:
"ISREDIT JJ"
"ISREDIT CREATE newdsn(newmem) .ZF .ZL"
"ISREDIT CANCEL"


Execute your own macro instead of "JJ":
Code:
"EDIT DATASET('"DSIN"') MACRO(MYJJ)"
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 Daylight Saving this Weekend Bill O'Boyle All Other Mainframe Topics 1 Fri Mar 11, 2016 8:40 pm
No new posts REXX-Undo Expanded copybooks statemen... ezhavendhan TSO/ISPF 12 Mon Aug 19, 2013 7:52 pm
No new posts soc4 error while saving vsam file in ... inbasekarmani IBM Tools 2 Fri Mar 29, 2013 11:28 am
No new posts CA-ROSCOE saving member name problem . Robert Sample CA Products 6 Wed Mar 02, 2011 3:20 pm
No new posts The Copybook Not Getting Expanded - saurabh39 COBOL Programming 10 Wed May 19, 2010 5:01 pm


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