Set Return code higher than 4095
Posted: Thu Dec 17, 2015 6:45 pm
Hi,
I have a COBOL-DB2 program where I am setting the value of RETURN-CODE register as 4200 (greater than 4095).
Thus, I expect the job to abend with RC-104 (4200-4095). Instead, the job is abending with a RC-12 only.
However, the return code register still contains the value of 4200 as I checked by routing its value in an error file and opening the file in a proper format considering the fact that RETURN-CODE has an implicit definition of S9(4) USAGE BINARY.
Also, there is no information in the CEEDUMP, SYSUDUMP and even SYSABEND so that I could at least figure out if in case moving a value greater than 4095 would make the job abend with RC-12 in my language environment:
z/OS - V1.13.
COBOL - OS/390.
Let me know in case someone needs further details.
Thanks,
Pranav
I have a COBOL-DB2 program where I am setting the value of RETURN-CODE register as 4200 (greater than 4095).
Thus, I expect the job to abend with RC-104 (4200-4095). Instead, the job is abending with a RC-12 only.
However, the return code register still contains the value of 4200 as I checked by routing its value in an error file and opening the file in a proper format considering the fact that RETURN-CODE has an implicit definition of S9(4) USAGE BINARY.
Also, there is no information in the CEEDUMP, SYSUDUMP and even SYSABEND so that I could at least figure out if in case moving a value greater than 4095 would make the job abend with RC-12 in my language environment:
z/OS - V1.13.
COBOL - OS/390.
Let me know in case someone needs further details.
Thanks,
Pranav