return codes 2

[Lohman]

How do I pass a non-zero return code from a COBOL program to the JCL job step that executes it. Or in other words force a job step that executes a COBOL program to end with a specific condition code.

 

[claudeb]

May be this would help

http://mvshelp.com/ubb/Forum1/HTML/000434.html

 

[Lohman]

Thanks. The link was very helpful.

 

[NinaToo]

Thanks, Claudeb. This is a very helpful site, and I've bookmarked it for future use.

Nina Too

 

[slade]

Hi Lo,

You can do this:

MOVE 8 TO RETURN-CODE

before exiting your pgm. That 8 or whatever you choose becomes the CC for the step that execed your pgm. It can be tested using the JCL COND or IF/THEN/ELSE clauses in subsequent steps.

RETURN-CODE must not be coded in WS; it's called a special register and is treated as a reserved word in COBOL.

Regards, Jack.