IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

S40D Abend while writing to multiple files


IBM Mainframe Forums -> ABENDS & Debugging
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
rohinitotey

New User


Joined: 02 May 2006
Posts: 7

PostPosted: Sat Jan 03, 2009 1:32 am
Reply with quote

Hi,

I have a cobol db2 program which writes to 34 files. I am getting S40D abend. It seems the storage can not handles the 34 files at a time. Is there any way of making the system handles this or splitting the writing of files in two different programs is the only solution?

Appreciate any ideas.

Thanks
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Sat Jan 03, 2009 1:41 am
Reply with quote

Quote:
Appreciate any ideas.

read the manual about s40d abend
and post ALL the messages of the step in question
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Sat Jan 03, 2009 2:03 am
Reply with quote

rohinitotey wrote:
Appreciate any ideas.
Kind of depends on the reason code in register 15........
40D
Explanation: When the recovery termination manager (RTM) was ending a task, recursive errors occurred. RTM ends the address space. This abend code is in the ASCBMCC field in the address space control block (ASCB) for the ended address space and in message IEF402I.
Back to top
View user's profile Send private message
rohinitotey

New User


Joined: 02 May 2006
Posts: 7

PostPosted: Sat Jan 03, 2009 2:17 am
Reply with quote

There are no special JES messages. All the output files are created but the processing ends abruptly.

Below is the last message:

IGD101I SMS ALLOCATED TO DDNAME (OUTPUT33)
DSN (TEST.TST.DRG07.RZZ4080.PAR.HOSPDIS2 )
STORCLAS (SCTEST) MGMTCLAS (MCTEST) DATACLAS ( )
VOL SER NOS= SM2084
IGD101I SMS ALLOCATED TO DDNAME (OUTPUT34)
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table

PostPosted: Sat Jan 03, 2009 2:23 am
Reply with quote

rohinitotey wrote:
There are no special JES messages. All the output files are created but the processing ends abruptly.
Look at the dump, what is the value in register 15?
Back to top
View user's profile Send private message
rohinitotey

New User


Joined: 02 May 2006
Posts: 7

PostPosted: Sat Jan 03, 2009 2:33 am
Reply with quote

The dump was not created. The message which I pasted those are the only messages I can see in spool.
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India

PostPosted: Sat Jan 03, 2009 2:41 am
Reply with quote

If I am not wrong, could you please make that STEP to produce dump, perhaps adding something like CEEDUMP DD card or site-specific stuffs?

I just wonder why don't you get dump when it's in abend!?!
Back to top
View user's profile Send private message
rohinitotey

New User


Joined: 02 May 2006
Posts: 7

PostPosted: Sat Jan 03, 2009 2:47 am
Reply with quote

The step already has the DD statement for creating the dump but still the DUMP was not created. This is weird but in the notificaiton also, the program does not show abend code. It just says program ended with return code = 0 but when I check in spool it shows S40D in return code. This is weird but there is no dump.
Back to top
View user's profile Send private message
Gnanas N

Active Member


Joined: 06 Sep 2007
Posts: 792
Location: Chennai, India

PostPosted: Sat Jan 03, 2009 2:53 am
Reply with quote

Did you see any dump in previous run of the same job? Sometimes, at my shop, if a job threw the dump, it would not create the same dump when I ran that job again...

Do you have Abend-Aid or something like this?

Please post entire message of abend so that someone would be able to help you.
Back to top
View user's profile Send private message
rohinitotey

New User


Joined: 02 May 2006
Posts: 7

PostPosted: Sat Jan 03, 2009 3:35 am
Reply with quote

Yes. you were right. I could find the dump in the run one of my team member did befor I started looking at this problem. The abend code was in fact S878.

*******************************************
* Analysis of Error *
*******************************************

An error occurred during the execution of a STORAGE macro, an RU or VRU
form GETMAIN macro, or an RU form FREEMAIN macro.
There is not enough virtual private area storage available to satisfy
the request. This could occur because of one of the following:
1) A program is requesting virtual storage without subsequently freeing
the storage.
2) Too small of a region size is specified.
3) An installation exit is requesting virtual storage from a V=R region
before initialization of the region has completed.

Also, I did check the register 15 code and it shows 10 as the error code.
But that does not help me. icon_sad.gif
Is there anything else from dump I should be pasting here?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8696
Location: Dubuque, Iowa, USA

PostPosted: Sat Jan 03, 2009 5:17 am
Reply with quote

What region size are you using on the EXEC or JOB statement -- or what is the default region size allocated? Since you're running COBOL code and not initializing a region, #3 doesn't apply to you. COBOL programs don't generally request virtual storage while running so #1 doesn't really apply to you. That leaves ... #2 as possibly applying.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> ABENDS & Debugging

 


Similar Topics
Topic Forum Replies
No new posts INCLUDE OMIT COND for Multiple values... DFSORT/ICETOOL 5
No new posts Write line by line from two files DFSORT/ICETOOL 7
No new posts Compare only first records of the fil... SYNCSORT 7
No new posts Replace Multiple Field values to Othe... DFSORT/ICETOOL 12
No new posts ISAM and abend S03B JCL & VSAM 9
Search our Forums:

Back to Top