|
View previous topic :: View next topic
|
| Author |
Message |
S0C7
New User
Joined: 19 May 2006
Posts: 26
|
|
|
|
Hi,
I have the following code:
| Code: |
EXEC CICS HANDLE ABEND LABEL (Para1) END-EXEC
EXEC CICS LINK PROGRAM (Pgm1) FROM (area1) RESP(WSRESP) END-EXEC
EXEC CICS HANDLE CANCEL END-EXEC.
|
Now, if we get an abend in the link, the handle would perform Para1. Would the control "go to" Para1 or would it simply perform para1 and come back to the code that follows HANDLE CANCEL...? If it's a "go to" Para 1, is there any better way to come back to the code that follows HANDLE CANCEL...? I am changing an existing program and dont want to put in much code.
Any wise ideas on how to keep the code really clean and achieve what is stated above...?  |
|
| Back to top |
|
 |
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India
|
|
|
|
SOC7,
| Quote: |
| Now, if we get an abend in the link, the handle would perform Para1. Would the control "go to" Para1 or would it simply perform para1 and come back to the code that follows HANDLE CANCEL...? |
It depends on what you have coded in the PARA1.
| Quote: |
| EXEC CICS LINK PROGRAM (Pgm1) FROM (area1) RESP(WSRESP) END-EXEC |
Also do note that the handle abend will not be inherited in linked program pgm1. Simple, this handle abend would work only in this program. |
|
| Back to top |
|
|
Earl Haigh
Active User
Joined: 25 Jul 2006
Posts: 475
|
|
|
|
EXEC CICS HANDLE
will perfomr GO TO, it will not return to statement following HANDLE
Remove the HANDLE
and code
EXEC CICS LINK PROGRAM (PGM1) RESPONSE(WSRESP)
NOHANDLE END-EXEC.
then check WSRESP to determine if link occurred properly |
|
| Back to top |
|
|
S0C7
New User
Joined: 19 May 2006
Posts: 26
|
|
|
|
| Aaru wrote: |
SOC7,
| Quote: |
| Now, if we get an abend in the link, the handle would perform Para1. Would the control "go to" Para1 or would it simply perform para1 and come back to the code that follows HANDLE CANCEL...? |
It depends on what you have coded in the PARA1.
| Quote: |
| EXEC CICS LINK PROGRAM (Pgm1) FROM (area1) RESP(WSRESP) END-EXEC |
Also do note that the handle abend will not be inherited in linked program pgm1. Simple, this handle abend would work only in this program. |
Thanks Earl, Aaru,
I was already in favor of using RESP, but the deisgn required me to use HANDLE ABEND for the linked program.
Are we sure on the point that the HANDLE ABEND would not be inherited in the linked program? I didnt find much info on ibm's reference guide on this. If you have any doc that highlights this point then please direct me to the same. |
|
| Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
From the Application Programming Guide:
| Quote: |
3.5.1.2 Link to another program expecting return
If the program receiving control is not already in main storage, it is loaded. When a RETURN command is processed in the linked program, control is returned to the program initiating the link at the next sequential process instruction.
The linked program operates independently of the program that issues the LINK command with regard to handling exception conditions, attention identifiers, and abends. For example, the effects of HANDLE commands in the linking program are not inherited by the linked-to program, but the original HANDLE commands are restored on return to the linking program. You can use the HANDLE ABEND command to deal with abnormal terminations in other link levels. Figure 76 shows the concept of logical levels. |
|
|
| Back to top |
|
|
Earl Haigh
Active User
Joined: 25 Jul 2006
Posts: 475
|
|
|
|
| Quote: |
| Are we sure on the point that the HANDLE ABEND would not be inherited in the linked program? |
My 30+ years of experience says >> YES |
|
| Back to top |
|
|
Aaru
Senior Member
Joined: 03 Jul 2007
Posts: 1287
Location: Chennai, India
|
|
|
|
SoC7,
| Quote: |
| Are we sure on the point that the HANDLE ABEND would not be inherited in the linked program? |
That is what the manual Says too. Refer to the manuals section.
Btw, Any specific reason for your name to be S0C7?? |
|
| Back to top |
|
|
|
|
