|
View previous topic :: View next topic
|
| Author |
Message |
CHANDAN KAPOOR
New User
Joined: 12 Apr 2008
Posts: 36
Location: NOIDA
|
|
|
|
Hi ,
I have requirement like
S6 EXEC PGM=DFSRRC00,COND=((4,GT,S2),(5,LT,S2)),
PARM='BMP,TER000,&PSB,&IN,,N00020,,1,,,,,,IMS&VS,,DB2C'
I need to convert this cond code to the IF ENDIF clause in JCL, I want to make sure that I have used the If clause as
IF (S2.RC > 4 OR S2.RC < 5) THEN
Is this the correct if cluase instead of the above COND clause. |
|
| Back to top |
|
 |
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
there is nothing better that actually testing it yourself.
Gerry |
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
To make testing this kind of thing really simple, suggest you create a little program that uses a parm of 4 digits and sets the condition code to whatever value you want to test. To set multiple step conditions, run the program multiple times setting whatever condition codes are needed for the test.
Then you don't need any data files to test the return code processing  |
|
| Back to top |
|
|
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
you can use IDCAMS to set cond codes.
Gerry |
|
| Back to top |
|
|
MBabu
Active User
Joined: 03 Aug 2008
Posts: 400
Location: Mumbai
|
|
|
|
IDCAMS seems to have a max maxcc of 16. For larger retcodes, you can use a one line rexx exec named SETRC
called as
| Code: |
//RC17 EXEC PGM=IRXJCL,PARM='SETRC 17'
//SYSEXEC DD DISP=SHR,DSN=your.pds.containing.setrc
//SYSTSIN DD DUMMY
//SYSTSPRT DD DUMMY |
|
|
| Back to top |
|
|
|
|
