IBM Mainframe Forum

//STEP1    EXEC PGM=SYNCSORT,REGION=8M,TIME=1439,           
//         PARM='DYNALLOC=SYSDA,VSCORET=2M'
//SORTIN   DD DSN=KSDS.INPUT.FILE.OLD,DISP=SHR     
//         AMP=('AMORG','BUFND=20')             
//SORTOUT  DD DSN=KSDS.OUTPUT.FILE.NEW,DISP=SHR
//         AMP=('AMORG','BUFND=20')                     
//SORTMSG  DD SYSOUT=*                                 
//SYSOUT   DD SYSOUT=*                                 
//SYSUDUMP DD SYSOUT=*                                 
//*                                                     
//SYSIN    DD *                                       
    OPTION COPY                                         
    INCLUDE COND=(5,4,CH,GT,C'0000')         

DEFINE CLUSTER                                      -
      (NAME(KSDS.OUTPUT.FILE.NEW)                   -
       SHAREOPTIONS(2 3)                            -
       INDEXED                                      -
       NOIMBED                                      -
       NOREPLICATE                                  -
       NOREUSE                                      -
       DATACLAS(EXTVSAMC)                           -
       RECORDSIZE(100 500)                          -
       FREESPACE(50 30)                             -
       KEY(28 0))                                   -
      DATA                                          -
      (NAME(KSDS.OUTPUT.FILE.NEW.DATA)              -
       CYL(4000 2500)                               -
       VOLUMES(* * * * * *)                         -
       CISZ(18432))                                 -
      INDEX                                         -
      (NAME(KSDS.OUTPUT.FILE.NEW.INDEX)             -
       CYL(750 150)                                 -
       VOLUMES(* * )                                -