Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Getting SOC7 with 1 million records

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Mainframe COBOL
Author Message
murali_andaluri
Currently Banned

New User


Joined: 07 May 2005
Posts: 22

PostPosted: Tue Jul 08, 2008 12:16 pm    Post subject: Getting SOC7 with 1 million records
Reply with quote

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
View user's profile Send private message
References
sid_aec

New User


Joined: 01 Jul 2008
Posts: 9
Location: Kolkata

PostPosted: Tue Jul 08, 2008 12:27 pm    Post subject:
Reply with quote

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
View user's profile Send private message
dick scherrer

Global Moderator


Joined: 23 Nov 2006
Posts: 8722
Location: 221 B Baker St

PostPosted: Tue Jul 08, 2008 1:19 pm    Post subject:
Reply with quote

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
View user's profile Send private message
murali_andaluri
Currently Banned

New User


Joined: 07 May 2005
Posts: 22

PostPosted: Tue Jul 08, 2008 1:25 pm    Post subject: Reply to: Getting SOC7 with 1 million records
Reply with quote

Hi Dick,

i did not get clearly. could you please give a code for this.

regards
murali
Back to top
View user's profile Send private message
dick scherrer

Global Moderator


Joined: 23 Nov 2006
Posts: 8722
Location: 221 B Baker St

PostPosted: Tue Jul 08, 2008 7:39 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Mainframe COBOL All times are GMT + 6 Hours
Page 1 of 1