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
 

 

ABEND S837 in JCL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
rkarthik22

New User


Joined: 18 Apr 2009
Posts: 47
Location: India

PostPosted: Mon Jul 20, 2009 8:47 am    Post subject: ABEND S837 in JCL
Reply with quote

Hi all,

I am merging 9 files in to one using the below JCL.

Code:
//STEP001 EXEC PGM=SORT                                       
//SYSUDUMP DD SYSOUT=I                                       
//SYSOUT   DD SYSOUT=*                                       
//SYSPRINT DD SYSOUT=*                                       
//SORTIN  DD DSN=FILE.SPLIT1,   
//           DISP=SHR                                         
//        DD DSN=FILE.SPLIT2,   
//           DISP=SHR                                         
//        DD DSN=FILE.SPLIT3,   
//           DISP=SHR                                         
//        DD DSN=FILE.SPLIT4,   
//           DISP=SHR                                         
//        DD DSN=FILE.SPLIT5,   
//           DISP=SHR                                         
//        DD DSN=FILE.SPLIT6,   
//           DISP=SHR                                         
//        DD DSN=FILE.SPLIT7,   
//           DISP=SHR                                         
//        DD DSN=FILE.SPLIT8,   
//           DISP=SHR                                         
//        DD DSN=FILE.SPLIT9,   
//           DISP=SHR                                         
//*                                                     
//SORTOUT DD DSN=FINAL.FILE,
//*          DISP=SHR                                   
//           DCB=(RECFM=FB,LRECL=153,BLKSIZE=0),         
//           DISP=(NEW,CATLG,DELETE),                   
//           SPACE=(CYL,(8500,5500),RLSE)               
//*                                                     
//SYSIN    DD *                                         
  SORT FIELDS=COPY                                       
/*             


Each file (Actually these are splitted files) having records of 100,000,000 and the last one (9th file) has 51142574 records.

Already i am allocating maximum space in cylinders

When submitting a job i got ABEND S837. Can anyone please help me to sort this out?!

Code:

QW S837                                                                     
                                                                         
Explanation:  The error occurred at an end-of-volume for a sequential data
set. This system completion code is accompanied by message IEC028I. Refer
to the explanation of message IEC028I for complete information about the 
task that was ended and for an explanation of the return code (rc in the 
message text) in register 15.     
Back to top
View user's profile Send private message

dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Jul 20, 2009 9:44 am    Post subject:
Reply with quote

Hello,

More descriptive diagnostic information is in the "next" place you look - the IEC028I message.

At the top of the page is a link to "IBM Manuals" Among them is the z/OS System Messages. You want volume VII i believe.

If the problem is not clear with that info, post your actual diagnostic info and someone whould be able to clarify.

These aren't by chance input tape files? If they are, that posted jcl will require 9 tape drives and someone from operations may come looking for you to cause damage icon_smile.gif

If these are tape files, consider using unit=aff for all but the first input file.
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Mon Jul 20, 2009 10:02 am    Post subject:
Reply with quote

Hi,

the reason code wouldn't happen to be an 08 ?

I believe you need a vol count so that the dataset can span across more than 1 volume.


Gerry
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Mon Jul 20, 2009 10:14 am    Post subject:
Reply with quote

Hi,

if my calculations are correct, you will need a total of 175000 cyls of space.


Gerry
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8593
Location: Back in jolly old England

PostPosted: Mon Jul 20, 2009 1:31 pm    Post subject:
Reply with quote

Wow, that's just under 6 3390-27's

Hope you have understanding storage people icon_lol.gif
Back to top
View user's profile Send private message
rkarthik22

New User


Joined: 18 Apr 2009
Posts: 47
Location: India

PostPosted: Mon Jul 20, 2009 2:54 pm    Post subject: re:
Reply with quote

Hi all,

Abend resolved. I used dynamic Allocation.

Code:
//xxxxxxxx JOB (xxxx,C),'MERGING FILES',                   
//    CLASS=0,MSGCLASS=U,NOTIFY=&SYSUID                               
//*                                                                   
// SET    UNIT='SYSALLDA',                                             
//        SPACE='(CYL,(8500,8500),RLSE)',                             
//        VOL='(,,,70)',                                               
//        DATACLAS='DCCOMP',                                           
//        SYSOUT='*',                                                 
//        SYSOUTI='I'                                                 
//****************************************************************     
//* THIS IS TO MERGE THE SPLIT FILES                                   
//****************************************************************     
//**                                                                   
//PS0100   EXEC PGM=SORT,                                             
//    PARM='DYNALLOC=(SYSDA,24),HIPRMAX=OPTIMAL,VSCORE=16M,VSCORET=64M'
//SYSOUT   DD SYSOUT=*                                                 
//SYSPRINT DD SYSOUT=*                                                 
//SORTIN  DD DSN=FILE.SPLIT1,DISP=SHR     
//        DD DSN=FILE.SPLIT2,DISP=SHR     
//        DD DSN=FILE.SPLIT3,DISP=SHR     
//        DD DSN=FILE.SPLIT4,DISP=SHR     
//        DD DSN=FILE.SPLIT5,DISP=SHR     
//        DD DSN=FILE.SPLIT6,DISP=SHR     
//        DD DSN=FILE.SPLIT7,DISP=SHR     
//        DD DSN=FILE.SPLIT8,DISP=SHR     
//        DD DSN=FILE.SPLIT9,DISP=SHR     
//*                                                                   
//SORTOUT DD DSN=FINAL.FILE,
//*          DISP=SHR                                   
//           DISP=(NEW,CATLG,DELETE),                   
//           DCB=*.SORTIN,SPACE=&SPACE,                 
//           DATACLAS=&DATACLAS,VOL=&VOL                 
//*                                                     
//SYSIN    DD *                                         
  SORT FIELDS=COPY                                       
/*           


Job ran through fine...
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Mon Jul 20, 2009 8:26 pm    Post subject:
Reply with quote

Hello,

Quote:
Abend resolved. I used dynamic Allocation.
Why do you believe this now uses "dynamic allocation". . . ?
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Tue Jul 21, 2009 3:32 am    Post subject:
Reply with quote

Hi Gerry,

If karthik won't say it, I will:

"Thanks for your help, your suggestion worked."
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Tue Jul 21, 2009 4:44 am    Post subject:
Reply with quote

Thanks Jack



Gerry
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Tue Jul 21, 2009 6:49 am    Post subject:
Reply with quote

BTW, Karthik, do you know you requested a max of 9 million 520 thousand CYLs of direct access space with your &SPACE and &VOL params for SORTOUT?
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7914
Location: Bellevue, IA

PostPosted: Tue Jul 21, 2009 7:30 am    Post subject:
Reply with quote

Jack, actually the request wouldn't go that high. The limit is 59 disk volumes for a single data set, so I suspect attempting to allocate the 60th volume would cause an abend. Also, unless running z/OS 1.10 with large data sets (which I think is controlled by SMS -- although I haven't checked that for sure), there's a limit of 65,535 tracks per volume so allocating 8500 cylinders won't work, either.

I suspect the site ACS routines are correcting these issues to prevent the otherwise expected abend.
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Tue Jul 21, 2009 7:38 am    Post subject: Reply to: ABEND S837 in JCL
Reply with quote

Dynamically. . .

Now, i see. . . icon_wink.gif
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Tue Jul 21, 2009 4:22 pm    Post subject:
Reply with quote

Hi Robert,

You're right; I forgot about the 56 vol limit. But he did request 9 Mil. icon_smile.gif.
I thought though, that SMS would accept your o'ride and let the chips fall.
As you say, that's probably site dependant.
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm
No new posts hot to get details when "EXEC CI... Andi1982 CICS 11 Tue Sep 20, 2016 5:01 pm
No new posts S213-14 ABEND explantion Apurva Mehta JCL & VSAM 5 Thu Jul 07, 2016 10:56 pm
No new posts How to determine where is error in ab... jackzhang75 PL/I & Assembler 13 Fri Apr 15, 2016 2:01 am


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