MVSFORUMS.com

kavi · Beginner Joined: 15 Sep 2006 Posts: 64 Topics: 22

Hi All,

My COBOL program having a internal sort and its abending some times with ABEND=S878 U0000 REASON=00000028. I tried with the Region=0M, but still am getting this abend in Production. If Iam trying to recreat this in test environment, but the job went thru' fine without any issues. Could some one help me in this.

Thanks in Advance,
Kavi

kolusu · Posted: Tue Nov 30, 2010 11:41 am Post subject:

kavi,

Is the sort your own logic or you invoking sort using SORT Verb in your program? If your invoking sort then you can provide SORTWK using the DFSPARM statement

kavi · Beginner Joined: 15 Sep 2006 Posts: 64 Topics: 22

Hi Kolusu,

Thanks for the details. My program invoking sort using SORT verb. I discussed with one of my friend, he suggested to use BUFNO for the files. Could you please explain how it differs from BUFNO and SORTWK using DFSPARM.

Thanks, Kavi

Anuj Dhawan · Posted: Wed Dec 01, 2010 5:50 am Post subject:

You get a reason-code=28, which means -- A GETMAIN or STORAGE OBTAIN request with the LOC=EXPLICIT keyword specified failed because part of the requested area exceeds the bounds of the region. Also, REGION=0M may/maynot work, depending on the CLASS in which your job is executing.

1. First suggestion - please post the entire SYSOUT from the failed Job. In doing so, please remove any sensitive data.

2. BUFNO = Buffer Number, which is a DCB parameter while "SORTWK using DFSPARM" will allocate 16 sort-work-files, per the statements koulsu has posted. They are not related to each other, in this case.
_________________
Regards,
Anuj

kavi · Beginner Joined: 15 Sep 2006 Posts: 64 Topics: 22

Hi,

I do not have any Abend related informations in the SYSOUT, whatever i have posted in the subject line is the original error message captured from JESLOG. Since i am not able to recreate this abend in test, I need to wait until the job fails in production, and then try with DFSPARM.
Thanks for the details.

Kavi

kolusu · Posted: Wed Dec 01, 2010 11:24 am Post subject:

Anuj Dhawan · Posted: Wed Dec 01, 2010 9:47 pm Post subject:

Anuj Dhawan · Posted: Wed Dec 01, 2010 10:36 pm Post subject:

Some more thoughts on this: Check the following:

by default

Well, If the answer for point 1 is 24 then if you have large number of BUFFERS or files then you will get a S878.
_________________
Regards,
Anuj

kavi · Beginner Joined: 15 Sep 2006 Posts: 64 Topics: 22

kolusu/Anuj,

Thanks for the details.

Thanks,Kavi

Anuj Dhawan · Posted: Fri Dec 03, 2010 3:04 am Post subject:

You're welcome. However, have you made any progress, so far?

have a good one,
_________________
Regards,
Anuj

kavi · Beginner Joined: 15 Sep 2006 Posts: 64 Topics: 22

Hi Kolusu/Anuj,

My Program got abended in Production for the same reason after using DFSPARM also. Please refer the below sysout

Anuj Dhawan · Posted: Tue Dec 07, 2010 5:05 am Post subject:

Anuj Dhawan · Posted: Tue Dec 07, 2010 5:11 am Post subject:

Oh well, you are using SyncSort not DFSort...things will change now, well.

For SyncSort my expereince says that even if you code DYNALLOC=(SYSDA,16) - it won't work if the default DYNALOC is set to off and how about the default RETRY?
_________________
Regards,
Anuj

kavi · Beginner Joined: 15 Sep 2006 Posts: 64 Topics: 22

Hi Anuj,

For your Qusetions

1. Yes its DATA(31)
2 & 3 Seven Input and 2 Output Sequential files and 5 VSAM KSDS files
5. Initialy REGION was not used, but when it was abended I used REGION=0M in the job card, it didn't work.

Am not sure DYNALOC was set to off or not. Can you tell me how to check this?

Thanks,Kavi

papadi · Supermod Joined: 20 Oct 2009 Posts: 594 Topics: 1

Look in the JES output for a SYSOUT (or maybe SYSOU1) that contains info like: