S40D Abend while writing to multiple files

rohinitotey · New User Joined: 02 May 2006 Posts: 7

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

enrico-sorichetti · Posted: Sat Jan 03, 2009 1:41 am

CICS Guy · Posted: Sat Jan 03, 2009 2:03 am

rohinitotey · New User Joined: 02 May 2006 Posts: 7

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)

CICS Guy · Posted: Sat Jan 03, 2009 2:23 am

rohinitotey · New User Joined: 02 May 2006 Posts: 7

The dump was not created. The message which I pasted those are the only messages I can see in spool.

Gnanas N · Posted: Sat Jan 03, 2009 2:41 am

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!?!

rohinitotey · New User Joined: 02 May 2006 Posts: 7

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.

Gnanas N · Posted: Sat Jan 03, 2009 2:53 am

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.

rohinitotey · New User Joined: 02 May 2006 Posts: 7

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.

Is there anything else from dump I should be pasting here?

Robert Sample · Posted: Sat Jan 03, 2009 5:17 am

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.