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: 8152
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 FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 0 Mon Sep 18, 2017 4:31 pm
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm
No new posts Need to track the CICS transaction fr... sam8051 CICS 3 Mon Aug 07, 2017 3:11 pm
No new posts IDMS DC027007 T58 TASK:ADS2 PROG:ADSO... gpowell382 IDMS/ADSO 2 Fri Jun 30, 2017 11:52 pm
No new posts How to Clear all TSQs during CICS sta... Hooman24 CICS 10 Mon Jun 26, 2017 9:46 pm

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