Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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: 8199
Location: East Dubuque, Illinois, USA

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 Is CICS BMS logic on z/OS different ... Andi1982 CICS 2 Fri Dec 01, 2017 1:56 pm
No new posts How to get complete URL from CICS Con... mbattu CICS 1 Tue Nov 14, 2017 11:59 pm
No new posts Integrating CICS applications craig2020 CICS 1 Sun Oct 29, 2017 6:49 pm
No new posts ASP3 ABEND IN CICS Vedant CICS 0 Fri Oct 20, 2017 3:18 pm
No new posts Identifying Interfaces in CICS/mainframe Ashishpanpaliya CICS 5 Fri Oct 13, 2017 3:21 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us