Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

CICS prog flow - abend

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
venktv

New User


Joined: 29 Mar 2006
Posts: 59
Location: Montreal

PostPosted: Thu Mar 19, 2009 9:40 am    Post subject: CICS prog flow - abend
Reply with quote

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
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7931
Location: Bellevue, IA

PostPosted: Thu Mar 19, 2009 4:48 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts INDEPENDENT CICS TS 4.1 MRO REGION UP... Kyle Carroll CICS 0 Wed Dec 14, 2016 6:55 pm
No new posts CICS START AND CANCEL blayek CICS 1 Wed Dec 07, 2016 3:27 am
No new posts How does a called pgm know if its cal... Graeme Westerman COBOL Programming 4 Tue Nov 29, 2016 9:25 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us