View previous topic :: View next topic
|
Author |
Message |
murali_andaluri Currently Banned New User
Joined: 07 May 2005 Posts: 22
|
|
|
|
Hi All,
my job is processing a file which contains 1 million records. I got a SOC7 error. we are not using any abend aid or cee dump or any tools.
How can i find the record which causes for SOC7 error.
Murali |
|
Back to top |
|
|
sid_aec
New User
Joined: 01 Jul 2008 Posts: 60 Location: Kolkata
|
|
|
|
Then you have to take the code in test and need to put display of record counts to check how many records it processed. |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
One easy way to do this is:
If your program does not have a "WORKING STORAGE" footprint, add one. This will be an 01 or 77 ws variable with a value of "WORKING STORAGE".
Immediately after this literal, add a "record count". When the program abends, the value in the area next to the literal is your record number. |
|
Back to top |
|
|
murali_andaluri Currently Banned New User
Joined: 07 May 2005 Posts: 22
|
|
|
|
Hi Dick,
i did not get clearly. could you please give a code for this.
regards
murali |
|
Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006 Posts: 19244 Location: Inside the Matrix
|
|
|
|
Hello,
Code: |
WORKING-STORAGE SECTION.
77 WS-LITERAL PIC X(28) VALUE 'WORKING-STORAGE FOR yourpgm'.
77 MY-REC-CNT PIC 9(7) VALUE ZEROS. |
Immediatly after the read increment MY-REC-CNT. When the program abends, look for the "footprint" and the record count will be next. |
|
Back to top |
|
|
|