|
View previous topic :: View next topic
|
| Author |
Message |
venktv
New User
Joined: 29 Mar 2006
Posts: 59
Location: Montreal
|
|
|
|
Hi All,
Just I would like to know why below ABEND occurs and how to solve
ABEND:
IGZ0037S The flow of control in program OET040 proceeded beyond the last line of the program.
From compile unit OET040 at entry point OET040 at compile unit offset + +00000446 at entry offset +00000446 at address15E6A21E.
CEE3DMP V1 R9.0: Condition processing resulted in the unhandled condition.
Task Number: 2380 Transaction ID: ET04
Following is the CICS program:
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-4331.
OBJECT-COMPUTER. IBM-4331.
DATA DIVISION.
WORKING-STORAGE SECTION.
COPY MAET040.
01 DFHPF3 PIC X VALUE '3'.
PROCEDURE DIVISION.
IF EIBAID = DFHPF3
GO TO 100-EXIT-MENU
END-IF.
EXEC CICS SEND CONTROL ERASE
END-EXEC.
EXEC CICS SEND MAPSET('MAET040')
MAP('MAET040')
MAPONLY
ERASE
END-EXEC.
EXEC CICS RETURN TRANSID ('ET04')
END-EXEC.
100-EXIT-MENU.
EXEC CICS ISSUE DISCONNECT
END-EXEC. |
|
| Back to top |
|
 |
Robert Sample
Global Moderator
Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA
|
|
|
|
| Code: |
IF EIBAID = DFHPF3
GO TO 100-EXIT-MENU
END-IF. |
and
| Code: |
100-EXIT-MENU.
EXEC CICS ISSUE DISCONNECT
END-EXEC.
|
The error message is pretty much self explanatory -- hit PF3, go to 100-EXIT-MENU, and your code has neither a GOBACK nor EXEC CICS RETURN END-EXEC at the end of this paragraph. Your program ran past the end of the code. |
|
| Back to top |
|
|
|
|
