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
 

 

Sort two input files and write into more than one file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
shrinivas

New User


Joined: 23 Dec 2005
Posts: 10
Location: At my desk

PostPosted: Tue Jul 10, 2007 8:07 pm    Post subject: Sort two input files and write into more than one file
Reply with quote

Hi,
I have two input files, both have some million records.
Both files need to be merged and sorted, and then to be written into the output PS.
Currently I am using single file for output for which I have tried maximum allocation of tracks and maximum allocation of cylinders. But still while writing into the output file, its giving space abend SB37.
Can we have some procedure, in which, if one file is full than automatically the data is written into the next file.
Back to top
View user's profile Send private message

William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Tue Jul 10, 2007 8:42 pm    Post subject:
Reply with quote

Have you tried to calculate the space needed for the output?
Are the inputs dasd and what is their current disk allocations?
What did you specify for the output allocation?
What is the current lrecl and blksize of the input?
What lrecl and blksize did you specify for the output?
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Jul 10, 2007 8:44 pm    Post subject:
Reply with quote

Quote:
Can we have some procedure, in which, if one file is full than automatically the data is written into the next file.


Isn't that what multivolume output data sets are for?

You really haven't given enough information.

How many records do the input files have? What is their LRECL and BLKSIZE? How much space do they occupy? What are you specifying for SPACE for the output file?

Pease show the job you're using and the JES and //SYSOUT messages you received.
Back to top
View user's profile Send private message
shrinivas

New User


Joined: 23 Dec 2005
Posts: 10
Location: At my desk

PostPosted: Tue Jul 10, 2007 9:18 pm    Post subject:
Reply with quote

Hers is the jes message and the JCL that was used.

1ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 17:20 ON TUE JUL 10, 2007 -
0 SORT FIELDS=(7,16,CH,A,5,2,CH,A)
ICE201I E RECORD TYPE IS V - DATA STARTS IN POSITION 5
ICE751I 0 C5-K90007 C6-K90007 C7-K90000 C8-K90007 E4-K90007 C9-BASE E5-K18181 E6-K18181 B0-Q96745 FF-BASE C4-K18181
ICE751I 0 E7-K11698
ICE193I 0 ICEAM1 ENVIRONMENT IN EFFECT - ICEAM1 INSTALLATION MODULE SELECTED
ICE088I 4 LBHYPDAB.PPDABAB1. , INPUT LRECL = 1437, BLKSIZE = 27998, TYPE = VB
ICE093I 0 MAIN STORAGE = (MAX,23190358,23190358)
ICE156I 0 MAIN STORAGE ABOVE 16MB = (23021214,23021214)
ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=256
ICE128I 0 OPTIONS: SIZE=23190358,MAXLIM=524288,MINLIM=450560,EQUALS=Y,LIST=Y,ERET=ABEND,MSGDDN=SYSOUT
ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=(3390 ,008),ABCODE=MSG
ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,STIMER=Y,COBEXIT=COB2
ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=Y,DSA=64
ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=Y,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
ICE133I 0 OPTIONS: HIPRMAX=OPTIMAL,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
ICE235I 0 OPTIONS: NULLOUT=RC0
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTOUT
ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN
ICE750I 0 DC 3707385390 TC 0 CS DSVT0 KSZ 22 VSZ 22
ICE752I 0 FSZ=3707385390 BC IGN=0 E AVG=718 0 WSP=4815257 C DYN=87024 56664
ICE751I 2 FE-K10929 FB-K08051 FA-K10929 F9-K08051 EA-K10929 F1-BASE DA-K12640
ICE185A 0 AN SB37 ABEND WAS ISSUED BY DFSORT, ANOTHER PROGRAM OR AN EXIT (PHASE S 3)




JCL
=====================================================================================
//LBHYPDAB JOB (,BUS),'SW091 RUN',MSGLEVEL=(1,1),MSGCLASS=X,
// REGION=0M,CLASS=A,NOTIFY=&SYSUID,
// COND=((12,EQ),(16,EQ),(1000,LT))
//JCLLIB JCLLIB ORDER=(MS.LLBHY.$INCLUDE,
// MS.LL$$$.INCLUDE)
//JOBLIB DD DSN=MS.LLBHY.PDSEXEC.BATCH,DISP=SHR
// INCLUDE MEMBER=LSTBLIB
//******************************************************
//* DELETE THE OUTPUT FILE *
//******************************************************
//DPDABAB0 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
DELETE MS.LLBHY.GITS0103
//******************************************************
//PPDABAB1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTLIB DD DSN=SYS1.SORTLIB,DISP=SHR
//SORTIN DD DSN=MS.LLBHY.GITS0101,DISP=SHR
// DD DSN=MS.LLBHY.GITS0102,DISP=SHR
//SORTOUT DD DSN=MS.LLBHY.GITS0103,DISP=(NEW,CATLG,DELETE),
// DCB=(RECFM=VB,LRECL=1437,DSORG=PS,BLKSIZE=0),
// SPACE=(CYL,(4250,4250),RLSE)
//SYSIN DD *
SORT FIELDS=(7,16,CH,A,5,2,CH,A)
//*************************************************************
//* RUN ONE SHOT PROGRAM SW091
//*************************************************************
//PPDABAB4 EXEC PGM=SW091
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSDGRPT DD SYSOUT=*
//ACCF DD DSN=MS.LLBHY.ACCF0000,DISP=SHR
//ACCR DD DSN=MS.LLBHY.ACCR0000,DISP=SHR
//OIPF DD DSN=MS.LLBHY.OIPF0000,DISP=SHR
//GITS200 DD DSN=MS.LLBHY.GITS0103,DISP=SHR
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Tue Jul 10, 2007 10:13 pm    Post subject:
Reply with quote

How much space do the two input files occupy?

Have you considered using a multivolume output data set?
Back to top
View user's profile Send private message
shrinivas

New User


Joined: 23 Dec 2005
Posts: 10
Location: At my desk

PostPosted: Wed Jul 11, 2007 10:30 am    Post subject:
Reply with quote

Hi
The space allocated for the the first file is
Tracks - 42,090, Extents - 11
The space allocated for the second file is
Tracks - 32,090, extents - 3
Back to top
View user's profile Send private message
shrinivas

New User


Joined: 23 Dec 2005
Posts: 10
Location: At my desk

PostPosted: Wed Jul 11, 2007 10:43 am    Post subject:
Reply with quote

Hi
Frank
I don know how to use multi volume dataset .Can you please tell me how we can use .

Thanks & Regards
Shrinivas
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed Jul 11, 2007 8:23 pm    Post subject:
Reply with quote

I think the calculation for the number of output cylinders needed would be:

42090+32090 = 74180 tracks / 15 tracks per cylinder = 4945 cylinders

Quote:
I don know how to use multi volume dataset


You should be able to look this kind of thing up yourself. I believe you use something like this on the DD statement:

VOL=(,,,n)

where n is the number of volumes.

Hopefully, somebody will correct me if that's not the right syntax.
Back to top
View user's profile Send private message
shrinivas

New User


Joined: 23 Dec 2005
Posts: 10
Location: At my desk

PostPosted: Wed Jul 11, 2007 9:15 pm    Post subject:
Reply with quote

Hi
I have specified the same in my JCL ie vol = ( )
with differnt vol names but is showing JCL error don know why

But problem is resolved thanks all for the help now i am writing directly to tape


Regards
Shrinivas
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 7130
Location: San Jose, CA

PostPosted: Wed Jul 11, 2007 10:02 pm    Post subject:
Reply with quote

Quote:
I have specified the same in my JCL ie vol = ( )
with differnt vol names but is showing JCL error don know why


Well, since you didn't show the JCL statement you used or the error you received, nobody is going to be able to tell you why. We can't read your mind.
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
This topic is locked: you cannot edit posts or make replies. Fetching data from BAI File arunsoods JCL & VSAM 1 Wed Jul 19, 2017 4:28 pm
No new posts Write out NODUPS but just from one file Jay Villaverde DFSORT/ICETOOL 8 Fri Jul 14, 2017 12:44 am
No new posts SORT to unpack a feild shr_amar DFSORT/ICETOOL 7 Fri Jul 07, 2017 4:32 am
No new posts How to add header with Date(YYMMDD) i... Rajan Moorthy DFSORT/ICETOOL 2 Thu Jul 06, 2017 11:44 pm
No new posts How to write Specific Fields from Mul... Padhu SYNCSORT 6 Thu Jul 06, 2017 10:26 am


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