Capture the RC of previous step

[nbcobol]

Hi,

I know that when we use COND parameter as COND=(0,NE) in a step, the condition will be checked against return code of all the previous steps executed.

But my requirement is to check the return code of only the previous step and run the current step if that has a MAXRC NE 0.

I am not able to use STEPNAME.RC, it throws INVALID REFERBACK ERROR.

Can any body help me out on this.

FYI, I have tried the below syntaxes:

WAY 1:

Code: Select all

// EXEC ...,COND=(0,NE,stepname)

WAY2:

Code: Select all

// IF (stepname.RC EQ 0)
// . . . . . .
// ENDIF

[willy jensen]

You are missing the THEN verb in the 2nd sample, see:

Code: Select all

//A   EXEC PGM=IEFBR14
//*                    
// IF A.RC LE 5 THEN  
//B   EXEC PGM=IEFBR14
// ENDIF              

I will definitely recommend the IF statement instead of the COND=

[nbcobol]

Hi Willy,

i have tried this syntax as well. The step A exec has a pgm ROICUCPY, which is trying to read a text file from a server location. If this step A runs successfully, it should not run step B(which is the backup server to fetch the file). I'm getting invalid referback for A.RC

Code: Select all

//A   EXEC PGM=ROICUCPY
//*                    
// IF A.RC LE 5 THEN  
//B   EXEC PGM=ROICUCPY
// ENDIF

[willy jensen]

Is that the entire job? May we see the output?

[nbcobol]

No the job has other steps.

This is the one I'm getting issues at:

Code: Select all

//A        EXEC ROICUCPY                                    
//UCMDOPT  DD  DSN=[FILE],DISP=SHR  
//UNVOUT   DD  DSN=[FILE],DISP=OLD
//SCRIPT   DD  *                                            
 @echo off                                                  
 UCOPY [filepath]    
/*                                                          
//SYSIN    DD  *                                            
[host details]                                    
//*                                                        
//COND1    IF A.RC NE 0 THEN    
//B        EXEC ROICUCPY  
//UCMDOPT  DD  DSN=[FILE],DISP=SHR  
//UNVOUT   DD  DSN=[FILE],DISP=OLD
//SCRIPT   DD  *                                            
 @echo off                                                  
 UCOPY [filepath]  
//        ENDIF

The error:

Code: Select all

      58 IEF645I INVALID REFERBACK IN THE RC       FIELD
DTM1455I 2025.007 08:19:13 Job JOBNAME failed, JCL Error

[sergeyken]

No the job has other steps.

This is the one I'm getting issues at:

Code: Select all

//A        EXEC ROICUCPY                                    
//UCMDOPT  DD  DSN=[FILE],DISP=SHR  
//UNVOUT   DD  DSN=[FILE],DISP=OLD
//SCRIPT   DD  *                                            
 @echo off                                                  
 UCOPY [filepath]    
/*                                                          
//SYSIN    DD  *                                            
[host details]                                    
//*                                                        
//COND1    IF A.RC NE 0 THEN    
//B        EXEC ROICUCPY  
//UCMDOPT  DD  DSN=[FILE],DISP=SHR  
//UNVOUT   DD  DSN=[FILE],DISP=OLD
//SCRIPT   DD  *                                            
 @echo off                                                  
 UCOPY [filepath]  
//        ENDIF

The error:

Code: Select all

      58 IEF645I INVALID REFERBACK IN THE RC       FIELD
DTM1455I 2025.007 08:19:13 Job JOBNAME failed, JCL Error

When your EXEC statement executed JCL procedure (via // EXEC [PROC=]procname) rather than a load module (via // EXEC PGM=program), then you must have so called "combined stepname": jobstep.procstep

In your case jobstep is A, while your procstep you must find inside your procedure ROICUCPY.

RTFM, RTFM, and RTFM!

P.S.
It is a very bad starting habit, to call any programming entities with the names like A, B, C, X, Y, Z. As well as: var1, n5, t3, etc.

[willy jensen]

Well, apparently '//A EXEC PGM=ROICUCPY' was not what you had problems with, as sergeyken already has pointed out. Always good to see the entire job.

[sergeyken]

Learn good manners from the very beginning.

Your used names in the JCL were terrible...
Not acceptable even for two-step job, to say nothing about future 200-step jobs!

Code: Select all

//READINIT EXEC ROICUCPY                                    
// . . . . . . . . . .                                                    
// IF (READINIT.procstep.RC NE 0) THEN    
//FETCH EXEC ROICUCPY  
// . . . . . . . . . .                                                    
// ENDIF

[nbcobol]

I looked for the procedure and found the procstep to use in my jcl, worked perfectly.
Thanks Willy & Ken !

[sergeyken]

I looked for the procedure and found the procstep to use in my jcl, worked perfectly.
Thanks Willy & Ken !

Just RTFM. No miracles!