To send return code to Job from NATURAL Pgm without abending

Sangita · New User Joined: 02 Jun 2005 Posts: 13

Hi All,
Please let me know how to return a code to the job from Natural PGM like we do in COBOL without abending the job. If we use TERMINATE statement with code >0, then it will abend, which I dont want to happen & STOP will stop the process but does not return any code. I want to skip the processing of subsequent steps after the NATURAL Pgm depending on the return code from the PGM. Please let me know how we can do it?

ofer71 · Posted: Mon Jan 29, 2007 12:16 pm Post subject:

You are correct that you can't set RETURN-CODE like in COBOL; however, for me, TERMINATE in batch simply ends the job with the return code I supplied.

O.

Sangita · New User Joined: 02 Jun 2005 Posts: 13

Hi,
Is there any other way to return code in Natural other than TERMINATE statement? If u have please send me with ex. Also, send me the code for which ur jot getting an abend.

ofer71 · Posted: Mon Jan 29, 2007 2:45 pm Post subject:

There is no method in NATURAL to put values in registers.

Here is my example, which ends the job with RC=13:

dick scherrer · Posted: Mon Jan 29, 2007 9:05 pm Post subject:

Hello Sangita,

Please post the abend information you get when you issue the terminate. It will be in one or more of the sysout datasets.

ofer71 · Posted: Tue Jan 30, 2007 12:06 am Post subject:

The default is CMPRINT, but it may also be in CMPTR01.

O.