IBM MAINFRAME HELP & SUPPORT FORUMS

iknow · Joined: 22 Aug 2005 Posts: 582 Location: Colarado, US

Hi folks

I want to pass user abend from COBOL to JCL. SO I used this statement

Code:
CALL ILBOABN0 USING WS-AB-CODE

1)In my program if the control comes to this call, what exactly happens?
2)If specify RETURN-CODE instead of WS-AB-CODE what happens?

Please give me a clear explanation.

priyesh.agrawal · Joined: 28 Mar 2005 Posts: 1509 Location: Chicago, IL

Quote: 1)In my program if the control comes to this call, what exactly happens?
I guess its an ABEND calling utility, which, when called, will forcefully abend the program basis on given parameter.

Regards,

Priyesh.

iknow · Joined: 22 Aug 2005 Posts: 582 Location: Colarado, US

Hi priyesh

Thanks for your reply...

Please go through the text and see whether you can help me further on this issue.

1)How to pass user return code and user ABEND from the COBOL program to the JCL?

ANS)RETURN-CODE is a special register and its content is moved to register15 when the control is given back to OS. So move the return code to this register in the program.

Ex: MOVE 1000 to RETURN-CODE.

This sets return code as 1000 for the step that executes this program.
For ABEND, you should call your installation specific assembler routine or ILBOABN0 with the ABEND code you want.
CALL ?ILBOABN0? USING WS-AB-CODE.
WS-ABEND-CODE is the variable that has ABEND-CODE. It is a half word binary.

please correct me if I am wrong.