View previous topic :: View next topic
|
Author |
Message |
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008 Posts: 1249 Location: Richfield, MN, USA
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2546 Location: Silicon Valley
|
|
|
|
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 |
|
|
rohitpillai09
New User
Joined: 24 Jun 2009 Posts: 8 Location: Pune
|
|
|
|
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
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 |
|
|
|