|
|
| Author |
Message |
iknow
Senior Member
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. |
|
| Back to top |
|
 |
References
|
|
 |
priyesh.agrawal
Global Moderator
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. |
|
| Back to top |
|
|
iknow
Senior Member
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. |
|
| Back to top |
|
|
|
|
