Wednesday, February 2, 2011

Sort - Copy records from input to output based on certain condition from input

//STEP010  EXEC PGM=SORT                                               
//SYSPRINT DD  SYSOUT=*                                                
//SYSOUT   DD  SYSOUT=*                                                
//SORTIN   DD  DSN=PCCCD.CD0041DP.CHGO.BENCHEK.IMAGE(0),               
//             DISP=SHR                                                
//SORTOUT  DD  DSN=TCCPU.PU0700DP.CHGO.BENCHEK.IMAGE.TEST.TDY16,       
//             DISP=(,CATLG,DELETE),                                   
//             UNIT=SYSDA,                                             
//             SPACE=(CYL,(1,1),RLSE),                                 
//             DCB=RECFM=FB                                            
//SYSIN    DD  *                                                       
  SORT FIELDS=COPY                                                     
  INCLUDE COND=(1,1,CH,EQ,C'1',AND,2,6,CH,EQ,C'      ',OR,             
               (9,8,CH,NE,C'        ',                                 
               AND,17,6,CH,EQ,C'      ',AND,23,7,CH,NE,C'       ',     
               AND,28,7,CH,EQ,C'       ',AND,35,1,CH,NE,C' '))         
/*
                                                                     

No comments:

Post a Comment