MVSFORUMS.com

munnabai · Beginner Joined: 17 Aug 2007 Posts: 3 Topics: 3

Hi,
During processing of a MOVE stattement I got S0C7 Abend. If we get S0C7 I need to write the record which caused this abend into the another error log file and continue my processing. And at the end of the day we need to see the error log file and report to the business testers

Is there anything I can do with the RETURN-CODE register. Like

jsharon1248 · Posted: Mon Sep 22, 2008 9:03 am Post subject:

Abend. Abnormal End. That means the system terminated your program before the normal program end. I'm not aware of any way to trap system abends in a COBOL pgm. What you're describing is editing. Validation. When you know your data might have invalid numeric values, check for that.

Sqlcode · Intermediate Joined: 15 Dec 2006 Posts: 157 Topics: 38

munnabai,

Could you provide us some sample test data? If you know exactly which fields are causing SOC7 abend then you should try using VERIFY operator of DFSORT.

Please find it here :-
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ice1ca10/6.16?ACTION=MATCHES&REQUEST=verify&TYPE=FUZZY&SHELF=&DT=20050222160456&CASE=&searchTopic=TOPIC&searchText=TEXT&searchIndex=INDEX&rank=RANK&ScrollTOP=FIRSTHIT#FIRSTHIT

AND

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA10/6.7.5.9?SHELF=&DT=20050222160456

Thanks,

Terry_Heinze · Posted: Sun Sep 28, 2008 4:16 pm Post subject:

Prior to processing every record with the "MOVE" in it, OPEN a log file in your program, WRITE the entire record (or its unique key) to the file and CLOSE it. When you S0C7, the log file will contain the record with the invalid field. Use an IF/THEN/ELSE/ENDIF JCL statement to optionally send that log file to your user if your job ABENDed. If your input file is large, you will pay a price by all the OPENs and CLOSEs.
_________________
....Terry