Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
SORT Performance tuning

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

New User


Joined: 10 Aug 2006
Posts: 7

PostPosted: Tue Mar 30, 2010 11:16 pm    Post subject: SORT Performance tuning
Reply with quote

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
View user's profile Send private message

CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Tue Mar 30, 2010 11:29 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Tue Mar 30, 2010 11:33 pm    Post subject:
Reply with quote

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
View user's profile Send private message
shan

New User


Joined: 10 Aug 2006
Posts: 7

PostPosted: Wed Mar 31, 2010 1:50 am    Post subject:
Reply with quote

Thank u so much CICS Guy and Skolusu
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
No new posts Sort numeric fields with trailing spaces sancraig16 SYNCSORT 7 Tue Apr 03, 2018 1:21 am
No new posts Find & Replace string in CA-SORT mrgnndhmk CA Products 1 Fri Mar 30, 2018 12:58 am
No new posts SORT 3 files,extract specific fields ... Kiransr DFSORT/ICETOOL 13 Fri Mar 23, 2018 10:54 am
No new posts How to Generate JCL using Sort naveen katkuri DFSORT/ICETOOL 7 Tue Mar 13, 2018 3:50 pm
No new posts Need better approach to create a sort... Vamshi Veludandi DFSORT/ICETOOL 8 Thu Mar 08, 2018 5:59 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us