IBM Mainframe Forum

//SORT     EXEC PGM=SORT                           
//SORTLIB  DD DSN=SYS1.SORTLIB,DISP=SHR           
//SYSOUT   DD SYSOUT=H,HOLD=YES                   
//SYSUDUMP DD SYSOUT=H,HOLD=YES                   
//SORTIN   DD  DISP=SHR,                           
//         DSN=XDSN.FCVD             
//OUT1     DD DISP=(NEW,CATLG,CATLG),             
//         SPACE=(CYL,(1,1),RLSE),UNIT=DISK,       
//         DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920), 
//         DSN=FCB.TECHTIE       
//OUT2     DD DISP=(NEW,CATLG,CATLG),             
//         SPACE=(CYL,(1,1),RLSE),UNIT=DISK,       
//         DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920), 
//         DSN=PSG.TECHPA       
//SYSIN    DD *                                   
  OPTION COPY                                     
  OUTFIL FNAMES=OUT1,                             
   INCLUDE=(19,1,CH,EQ,C'T',                 
            AND,10,6,CH,EQ,C'TCFT',       
            AND,17,1,CH,EQ,C'P',             
            AND,30,8,CH,NE,C'00000000'),     
   BUILD=(30,8,C'TC',70X)                   
   OUTFIL FNAMES=OUT2,                       
   INCLUDE=(19,1,CH,EQ,C' ',                 
            AND,10,6,CH,EQ,C'TCFT',       
            AND,17,1,CH,EQ,C'P',             
            AND,30,8,CH,NE,C'00000000'),     
   BUILD=(30,8,C'TC',70X)                   
 //