MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

ABEND=S878 U0000 REASON=00000028
Goto page 1, 2  Next
 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Problem Determination
View previous topic :: View next topic  
Author Message
kavi
Beginner


Joined: 15 Sep 2006
Posts: 64
Topics: 22

PostPosted: Tue Nov 30, 2010 9:07 am    Post subject: ABEND=S878 U0000 REASON=00000028 Reply with quote

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
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12354
Topics: 75
Location: San Jose

PostPosted: Tue Nov 30, 2010 11:41 am    Post subject: Reply with quote

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
Code:

//DFSPARM   DD *
  OPTION DYNALLOC=(SYSDA,16)
//*


Also make sure that your cobol program is compiled with RES compiler option. Check this link for COBOL Storage Requirements.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA50/4.10.1.2
_________________
Kolusu - DFSORT Development Team (IBM)
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

www.linkedin.com/in/kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
kavi
Beginner


Joined: 15 Sep 2006
Posts: 64
Topics: 22

PostPosted: Wed Dec 01, 2010 12:41 am    Post subject: Reply with quote

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
Back to top
View user's profile Send private message
Anuj Dhawan
Intermediate


Joined: 19 Jul 2007
Posts: 298
Topics: 7
Location: Mumbai,India

PostPosted: Wed Dec 01, 2010 5:50 am    Post subject: Reply with quote

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
Back to top
View user's profile Send private message
kavi
Beginner


Joined: 15 Sep 2006
Posts: 64
Topics: 22

PostPosted: Wed Dec 01, 2010 8:37 am    Post subject: Reply with quote

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
Back to top
View user's profile Send private message
kolusu
Site Admin
Site Admin


Joined: 26 Nov 2002
Posts: 12354
Topics: 75
Location: San Jose

PostPosted: Wed Dec 01, 2010 11:24 am    Post subject: Reply with quote

kavi wrote:
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.


kavi,

BUFNO comes into picture for reducing the I/O. But in this case DFSORT has its own special I/O processing to reduce EXCP and coding BUFNO will not have much impact.

kavi wrote:
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.
Kavi


Why do you have to wait for the program to abend? You can add the DFSPARM and it will only reduce the chance of your program failing once again.

Kolusu
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Anuj Dhawan
Intermediate


Joined: 19 Jul 2007
Posts: 298
Topics: 7
Location: Mumbai,India

PostPosted: Wed Dec 01, 2010 9:47 pm    Post subject: Reply with quote

kavi wrote:
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.
I'm not sure why do you say so -- don't you have any SYSOUT Archival and Retrieval system at your shop, possibly you can get these details from there.
_________________
Regards,
Anuj
Back to top
View user's profile Send private message
Anuj Dhawan
Intermediate


Joined: 19 Jul 2007
Posts: 298
Topics: 7
Location: Mumbai,India

PostPosted: Wed Dec 01, 2010 10:36 pm    Post subject: Reply with quote

Some more thoughts on this: Check the following:

    1. You said COBOL program, so what were the compile options used at the time of compilation? DATA(31/24) compile option - I hope it is DATA(31) or not specified then it is DATA(31) by default.
    2. You talked about BUFNO, but are you using QSAM or VSAM files in job?
    3. Check the number of sequential files - how many.
    4. What is the BLKSIZE of the QSAM files INPUT/OUTPUT.
    5. Are you using a REGION= on a STEP execution?
    6. Check with your sysprog to see what you can specify for REGION card.

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
Back to top
View user's profile Send private message
kavi
Beginner


Joined: 15 Sep 2006
Posts: 64
Topics: 22

PostPosted: Thu Dec 02, 2010 11:39 pm    Post subject: Reply with quote

kolusu/Anuj,

Thanks for the details.

Thanks,Kavi
Back to top
View user's profile Send private message
Anuj Dhawan
Intermediate


Joined: 19 Jul 2007
Posts: 298
Topics: 7
Location: Mumbai,India

PostPosted: Fri Dec 03, 2010 3:04 am    Post subject: Reply with quote

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

have a good one,
_________________
Regards,
Anuj
Back to top
View user's profile Send private message
kavi
Beginner


Joined: 15 Sep 2006
Posts: 64
Topics: 22

PostPosted: Tue Dec 07, 2010 3:04 am    Post subject: Reply with quote

Hi Kolusu/Anuj,

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

Code:

SYNCSORT LICENSED
DFSPARM :                                                     
  OPTION DYNALLOC=(SYSDA,16)                                 
PARMLIST :                                                   
SORT FIELDS=(0001,0015,CH,A)                                 
RECORD TYPE=F,LENGTH=(000110,,000110)                         
OPTION SORTOUT=DDNAME                                       


I donot have any abend related informations in SYSOUT, the below is captured from JESLOG

Code:

ABEND=S878 U0000 REASON=00000028


I have cross checked the compiler option and the program was compiled with RES option. Also please let me know how to calculate the number of buffers used in the DFSPARM.


Thanks,Kavi
Back to top
View user's profile Send private message
Anuj Dhawan
Intermediate


Joined: 19 Jul 2007
Posts: 298
Topics: 7
Location: Mumbai,India

PostPosted: Tue Dec 07, 2010 5:05 am    Post subject: Reply with quote

Quote:
    1. You said COBOL program, so what were the compile options used at the time of compilation? DATA(31/24) compile option - I hope it is DATA(31) or not specified then it is DATA(31) by default.
    2. You talked about BUFNO, but are you using QSAM or VSAM files in job?
    3. Check the number of sequential files - how many.
    4. What is the BLKSIZE of the QSAM files INPUT/OUTPUT.
    5. Are you using a REGION= on a STEP execution?
    6. Check with your sysprog to see what you can specify for REGION card.

_________________
Regards,
Anuj
Back to top
View user's profile Send private message
Anuj Dhawan
Intermediate


Joined: 19 Jul 2007
Posts: 298
Topics: 7
Location: Mumbai,India

PostPosted: Tue Dec 07, 2010 5:11 am    Post subject: Reply with quote

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
Back to top
View user's profile Send private message
kavi
Beginner


Joined: 15 Sep 2006
Posts: 64
Topics: 22

PostPosted: Tue Dec 07, 2010 7:21 am    Post subject: Reply with quote

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
Back to top
View user's profile Send private message
papadi
Supermod


Joined: 20 Oct 2009
Posts: 594
Topics: 1

PostPosted: Tue Dec 07, 2010 4:29 pm    Post subject: Reply with quote

Look in the JES output for a SYSOUT (or maybe SYSOU1) that contains info like:
Code:
PRODUCT LICENSED FOR CPU SERIAL NUMBER . . . . PARMLIST :                                           
SORT FIELDS=(0001,0006,CH,A)                         
RECORD TYPE=F,LENGTH=(000006,,)                       
WER045C  END SORT PHASE                               
WER055I  INSERT    1120752, DELETE    1120752         
WER418I  DATASPACE(S) AND/OR HIPERSPACE(S) USED       
WER246I  FILESIZE 6,724,512 BYTES                     
WER054I  RCD IN          0, OUT          0           
WER169I  RELEASE 1.1D BATCH 0426 TPF LEVEL 3A         
WER052I  END SYNCSORT - MSRDSPA1,PAC1,,DIAG=8A00,C8DD,. . .


Posting the info from your problem run may help us help you. . .

Your system support should be able to tell you how parameters are defined.
_________________
All the best,

di
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> Problem Determination All times are GMT - 5 Hours
Goto page 1, 2  Next
Page 1 of 2

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group