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
 

 

S40D Abend while writing to multiple files

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
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    Post subject: S40D Abend while writing to multiple files
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10274
Location: italy

PostPosted: Sat Jan 03, 2009 1:41 am    Post subject: Reply to: S40D Abend
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: 2150
Location: At my coffee table

PostPosted: Sat Jan 03, 2009 2:03 am    Post subject: Re: S40D Abend
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    Post subject: Reply to: S40D Abend
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: 2150
Location: At my coffee table

PostPosted: Sat Jan 03, 2009 2:23 am    Post subject: Re: Reply to: S40D Abend
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    Post subject: Reply to: S40D Abend
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: 788
Location: Chennai, India

PostPosted: Sat Jan 03, 2009 2:41 am    Post subject:
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    Post subject: Reply to: S40D Abend
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: 788
Location: Chennai, India

PostPosted: Sat Jan 03, 2009 2:53 am    Post subject:
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    Post subject: Reply to: S40D Abend
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: 8118
Location: East Dubuque, Illinois, USA

PostPosted: Sat Jan 03, 2009 5:17 am    Post subject:
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    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Changeman get multiple "Browse C... elixir1986 Compuware & Other Tools 4 Fri Jul 14, 2017 1:48 am
No new posts How to write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm
No new posts getting three output files out of JOI... migusd SYNCSORT 7 Mon Jun 05, 2017 11:30 pm
No new posts C03 ABEND sjiraga PL/I & Assembler 1 Thu Jun 01, 2017 4:51 pm


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