IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Sort two input files and write into more than one file


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
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
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: 3156
Location: Tucson AZ

PostPosted: Tue Jul 10, 2007 8:42 pm
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 Developer


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

PostPosted: Tue Jul 10, 2007 8:44 pm
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
Reply with quote

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

1ICE143I 0 BLOCKSET SORT TECHNIQUE SELECTED
ICE250I 0 VISIT 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 Developer


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

PostPosted: Tue Jul 10, 2007 10:13 pm
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
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
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 Developer


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

PostPosted: Wed Jul 11, 2007 8:23 pm
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
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 Developer


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

PostPosted: Wed Jul 11, 2007 10:02 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts How to split large record length file... DFSORT/ICETOOL 7
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
No new posts Write line by line from two files DFSORT/ICETOOL 7
No new posts Access to non cataloged VSAM file JCL & VSAM 18
Search our Forums:

Back to Top