IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

RC =20 in ISREDIT macro in REXX


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Tue Aug 25, 2009 9:51 pm
Reply with quote

prino wrote:
Code:
//IFSKIP    IF RC < 4 & RC > 8 THEN
//*
-  -  -  -  -  -  -  -  -  -  -  -  -
//SA010   EXEC PGM=WHATEVER
-  -  -  -  -  -  -  -  -  -  -  -  -
//*
//IFSKIPE   ENDIF

I prefer
Code:
//IFSKIP   IF RC < 0 THEN
//*
- - - - - - - - - -
//SA010   EXEC PGM=WHATEVER
- - - - - - - - - -
//*
//IFSKIPE  ENDIF
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2546
Location: Silicon Valley

PostPosted: Wed Aug 26, 2009 12:59 am
Reply with quote

An additional suggestion is to add an indicator on the lines that you added, so that you can remove easily later.

Code:
//IFSKIP   IF RC < 0 THEN         /*CSTEP'ed by Pedro*/
//*
- - - - - - - - - -
//SA010   EXEC PGM=WHATEVER
- - - - - - - - - -
//*
//IFSKIPE  ENDIF                  /*CSTEP'ed by Pedro*/


If there is room, perhaps add a timestamp too.
Back to top
View user's profile Send private message
rohitpillai09

New User


Joined: 24 Jun 2009
Posts: 8
Location: Pune

PostPosted: Fri Aug 28, 2009 12:13 pm
Reply with quote

Can someone suggest me some other way by which I can achieve my goal of commenting an entire STEP in JCL, preferably without REXX.
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Fri Aug 28, 2009 12:20 pm
Reply with quote

If it really is that difficult for you, here's a code that will comment out a section of code, or even a single line of code.

Use NN at the first and last line of the step that you want to comment out, or a single N to comment out a single line.

Now, remember what I said about ALTLIB and correct concatenation in my previous replies to your post. There are a lot of posts about this on the forum. Also access to all the manuals that you will need can be found in the "STICKY" subjects in the CLIST/REXX forum.

So once you have sorted that out, shouldn't really take you more than 15 minutes, you type whatever member name you have given the code in the PDS on the command line, and place the N or NN/NN where you want and then press enter.
Code:

"ISREDIT MACRO NOPROCESS"         
"ISPEXEC CONTROL ERRORS RETURN"   
"ISREDIT PROCESS RANGE N"         
"ISREDIT (FRL) = "LINENUM .ZFRANGE
"ISREDIT (TOL) = "LINENUM .ZLRANGE
"ISREDIT LABEL "FRL" = .A"         
"ISREDIT LABEL "TOL" = .B"         
"ISREDIT C '//' '//*~' 1 ALL .A .B "
"ISREDIT RESET LABEL"             
EXIT (1)                           


However, I do rather agree with prino about the correct way to do this, but maybe that's something you can work on once you master the basics of ISPF dialogues.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Running REXX through JOB CLIST & REXX 13
No new posts Error to read log with rexx CLIST & REXX 11
No new posts isfline didnt work in rexx at z/OS ve... CLIST & REXX 7
No new posts run rexx code with jcl CLIST & REXX 15
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
Search our Forums:

Back to Top