IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

Handling abend to prevent termination


 
IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: :: View next topic  
Author Message
seanroger

New User


Joined: 03 Sep 2020
Posts: 1
Location: uk

PostPosted: Thu Sep 03, 2020 10:25 pm
Reply with quote

I am reading few VSAM files to populate few fields in DB2. In case of any issue in reading the files , i should not terminate the process. The expectation is to handle the abend so that I do not abend and populate the field with SPACES.

I have been asked to used HANDLE ABEND in this situation but not sure how to incorporate it as it behaves like a GO TO statement with no control being returned.

I am using the below approach using the RESP, wherein i move value from file if RESP code is 0 . Any other RESP code I move SPACES to the field . Do you think it will suffice?


EXEC CICS READ
FILE('FILE')
INTO(DATA-RECORD)
RIDFLD(FILE-KEY)
KEYLENGTH (LENGTH OF FILE-KEY)
RESP(WS-RESP)
END-EXEC

IF WS-RESP = 0

MOVE DATA-FLD TO WS-FLD

ELSE

MOVE SPACES TO WS-FLD

END-IF
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic All times are GMT + 6 Hours
Forum Index -> CICS
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts ABEND=04E FOR REASON=00E50013 DB2 4
No new posts Any idea about how to solve 3022 aben... IMS DB/DC 3
No new posts Abend deletes last record written ABENDS & Debugging 10
No new posts CICS Web services Assistant - Handlin... CICS 3
No new posts COBOL Student learning COBOL File Han... COBOL Programming 3

Back to Top