View previous topic :: View next topic
Author
Message
shan New User Joined: 10 Aug 2006Posts: 7
Could you please help me reduce the Wall Time and CPU Time for the SORT step?
i am splitting the input files into 4 files using include cond
Input file together contains 95 million records, it is running for 09 hours Wall time and 8 minutes CPU time.
Code:
//S10S EXEC PGM=SORT,REGION=6M
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=TST.REFG.ALL.HM82101.DDD361.M0110,
// DISP=OLD,UNIT=(TAP1,2),VOL=(,RETAIN),DCB=BUFNO=80
// DD DSN=TST.REFG.HM82052.DDD361.M0110.ALL,
// DISP=OLD,UNIT=(TAP1,2),VOL=(,RETAIN),DCB=BUFNO=80
//SORTOF2 DD DSN=TST.REFG.ALL.HM82152.DDD361.M0110,
// DISP=(,CATLG,DELETE),
// UNIT=TAP1,
// DCB=(RECFM=FB,LRECL=1589,BLKSIZE=0,BUFNO=80),
// LABEL=RETPD=45,VOL=(,RETAIN,,111)
//SORTOF3 DD DSN=TST.REFG.ALL.HM82153.DDD361.M0110,
// DISP=(,CATLG,DELETE),
// UNIT=TAP1,
// DCB=(RECFM=FB,LRECL=1589,BLKSIZE=0,BUFNO=80),
// LABEL=RETPD=45,VOL=(,RETAIN,,111)
//SORTOF4 DD DSN=TST.REFG.ALL.HM82154.DDD361.M0110,
// DISP=(,CATLG,DELETE),
// UNIT=TAP1,
// DCB=(RECFM=FB,LRECL=1589,BLKSIZE=0,BUFNO=80),
// LABEL=RETPD=45,VOL=(,RETAIN,,111)
//SORTOF5 DD DSN=TST.REFG.ALL.HM82155.DDD361.M0110,
// DISP=(,CATLG,DELETE),
// UNIT=TAP1,
// DCB=(RECFM=FB,LRECL=1589,BLKSIZE=0,BUFNO=80),
// LABEL=RETPD=45,VOL=(,RETAIN,,111)
//SYSIN DD *
SORT FIELDS=COPY
OUTFIL FILES=2,INCLUDE=(1,1,CH,EQ,C'C'),
OUTREC=(1:1,1,2:2,10,12:12,77,
89:C'1',90:90,15,
105:45X,150:150,1440)
OUTFIL FILES=3,INCLUDE=(1,1,CH,EQ,C'C'),
OUTREC=(1:1,1,2:2,10,12:12,77,
89:C'2',90:15X,105:105,
15,120:30X,150:150,1440)
OUTFIL FILES=4,INCLUDE=(1,1,CH,EQ,C'C'),
OUTREC=(1:1,1,2:2,10,12:12,77,
89:C'3',90:90,15,105:15X,
120:120,15,135:15X,150:150,1440)
OUTFIL FILES=5,INCLUDE=(1,1,CH,EQ,C'C'),
OUTREC=(1:1,1,2:2,10,12:12,77,
89:C'4',90:45X,135:135,
15,150:150,1440)
//*
Back to top
CICS Guy Senior Member Joined: 18 Jul 2007Posts: 2146 Location: At my coffee table
Since you are including only the 1,1,CH,EQ,C'C', I assume that there are other records other than those in the input.
If so, move the include to the inrec and all the non 'C' records won't be processed at all.
Back to top
Skolusu Senior Member Joined: 07 Dec 2007Posts: 2205 Location: San Jose
shan,
Use the following JCL with modified control cards and removal of DCB parameters
Code:
//S10S EXEC PGM=SORT,REGION=6M
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=TST.REFG.ALL.HM82101.DDD361.M0110,
// DISP=SHR
// DD DSN=TST.REFG.HM82052.DDD361.M0110.ALL,
// DISP=SHR
//SORTOF2 DD DSN=TST.REFG.ALL.HM82152.DDD361.M0110,
// DISP=(,CATLG,DELETE),
// UNIT=TAP1,
// LABEL=RETPD=45,VOL=(,RETAIN,,111)
//SORTOF3 DD DSN=TST.REFG.ALL.HM82153.DDD361.M0110,
// DISP=(,CATLG,DELETE),
// UNIT=TAP1,
// LABEL=RETPD=45,VOL=(,RETAIN,,111)
//SORTOF4 DD DSN=TST.REFG.ALL.HM82154.DDD361.M0110,
// DISP=(,CATLG,DELETE),
// UNIT=TAP1,
// LABEL=RETPD=45,VOL=(,RETAIN,,111)
//SORTOF5 DD DSN=TST.REFG.ALL.HM82155.DDD361.M0110,
// DISP=(,CATLG,DELETE),
// UNIT=TAP1,
// LABEL=RETPD=45,VOL=(,RETAIN,,111)
//SYSIN DD *
OPTION COPY,SDB=YES
INCLUDE COND=(1,1,CH,EQ,C'C')
INREC BUILD=(1:1,88,X,90,1500)
OUTFIL FILES=2,OVERLAY=(89:C'1',105:45X)
OUTFIL FILES=3,OVERLAY=(89:C'2',90:15X,120:30X)
OUTFIL FILES=4,OVERLAY=(89:C'3',105:15X,135:15X)
OUTFIL FILES=5,OVERLAY=(89:C'4',90:45X)
//*
Back to top
shan New User Joined: 10 Aug 2006Posts: 7
Thank u so much CICS Guy and Skolusu
Back to top
Please enable JavaScript!