Need Clarification on Return-Code Register

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

Hi,

In my COBOL program, i have to error out the program by populating Return-Code register with value of '1000',
so that i can trigger a mail in JCL with RC = 1000. to achieve the above condition, it's enough to populate return-code register with '1000'? Please clarify.

Thanks,
Murali

Robert Sample · Posted: Thu May 28, 2009 6:47 pm

The manual isn't clear enough? See the manuals link at the top of the page.

dbzTHEdinosauer · Posted: Thu May 28, 2009 6:50 pm

RETURN-CODE Clear enough??

Craq Giegerich · Posted: Thu May 28, 2009 7:07 pm

A "STOP" , or "STOP RUN" afterwards would help.

Bill O'Boyle · Posted: Thu May 28, 2009 7:09 pm

In as much as COBOL defines this as a "REGISTER" (really a misnomer), the compiler treats it as a signed binary-halfword, which has a maximum signed positive value of +32767.

However, there should not be any problem with a value of +1000.

Regards,

dbzTHEdinosauer · Posted: Thu May 28, 2009 7:39 pm

dick scherrer · Posted: Fri May 29, 2009 12:57 am

Hello,

For a bit of entertainment/education, try:

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

I used the Below piece of code in Pgm and

dbzTHEdinosauer · Posted: Mon Jun 22, 2009 1:57 pm

code correctly:

// IF P243CA01.RC=4 THEN

pkmurali · Active User Joined: 15 Dec 2005 Posts: 271

Thanks,

Dick

dick scherrer · Posted: Mon Jun 22, 2009 7:35 pm

Hello,

I still believe something could be learned from this. . . .

Gnanas N · Posted: Mon Jun 22, 2009 7:49 pm

Hi Dick,

I got RC as 0348. Wondering...

Robert Sample · Posted: Mon Jun 22, 2009 7:51 pm

RC=0348 is expected ....

Gnanas N · Posted: Mon Jun 22, 2009 8:05 pm

Hi Robert,

Could you please explain it?

Robert Sample · Posted: Mon Jun 22, 2009 8:34 pm

A return code is only allowed in the range of 0 to 4095; this limit is mentioned in the JCL Language Reference several times. If a return code greater than 4095 is set, the system reduces it using modulus arithmetic (4096).

4444 - 4096 = 0348, so the return code set in COBOL at 4444 becomes 0348 as far as JES and z/OS are concerned.

Aaru · Posted: Tue Jun 23, 2009 9:25 am

Hi Robert,

Strange but a very good point.

dick scherrer · Posted: Tue Jun 23, 2009 9:35 am

Hello,

Yes, 4096 will cause a return-code zero. . .

Which is why the experiment was suggested. . . .

Aaru · Posted: Tue Jun 23, 2009 9:50 am

Hi Dick,

Robert Sample · Posted: Tue Jun 23, 2009 5:02 pm

Aaru: when doing batch FTP with the EXIT parameter, this becomes relevant as FTP errors set the return code as a 5-digit number: 2 digits for the FTP command being executed (16 for GET and 27 for PUT, for example) followed by the 3-digit response code from the server. A common code is 16550, which occurs when you attempt to GET a file that isn't there. The 16550 turns into a 0166 return code for the job step due to modulus arithmetic.

Aaru · Posted: Tue Jun 23, 2009 5:23 pm

Hi Robert,

That was indeed a good information. Will keep this in mind.

Thanks a ton.