Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ 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 -> COBOL Programming
View previous topic :: :: View next topic  
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

sid_aec

New User


Joined: 01 Jul 2008
Posts: 60
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

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

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

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

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
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Check if any Detail records and extra... V S Amarendra Reddy SYNCSORT 19 Mon May 08, 2017 8:54 pm
No new posts Join giving more records than expected Danielle.Filteau SYNCSORT 2 Thu Mar 09, 2017 3:28 am
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am
No new posts Extract set of records matching on ac... bhaskar_kanteti DFSORT/ICETOOL 3 Mon Mar 06, 2017 7:19 am
No new posts Inserting records based on conditions vickey_dw DFSORT/ICETOOL 9 Wed Feb 22, 2017 1:33 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us