IBM Mainframe Forum

//STEP0010 EXEC PGM=SORT                                         
//SORTIN   DD *                                                   
VID-PR06,VID38971                                                 
VID-XXXX,VIDYYYYY                                                 
/*                                                               
//SYSOUT   DD SYSOUT=*                                           
//TMPPRINT DD SYSOUT=*                                           
//TMPFILE1 DD DSN=&&TMPSYMB1,DISP=(,PASS),                       
//             UNIT=VIO,SPACE=(TRK,(1),RLSE),                     
//             LRECL=80,RECFM=FB                                 
//SORTOUT  DD SYSOUT=*                                           
//SYSIN DD *                                                     
  OPTION COPY                                                     
  OUTFIL FNAMES=(TMPFILE1,TMPPRINT),                             
  OUTREC=(16:C'IFTHEN=(WHEN=(57,8,SS,EQ,C''',1,8,C'''),'/,       
          24:C'OVERLAY=(57:C''',10,8,C''')),',                   
          80:X)                                                   
//*                                                               
//STEP0020 EXEC PGM=SORT                                         
//SYSOUT   DD SYSOUT=*                                           
//SORTIN   DD DISP=SHR,DSN=D948.QACCREL2.D12M04.STAGE05.DATA     
//SORTOUT  DD SYSOUT=*                                           
//SYSIN DD *                                                     
  INREC IFTHEN=(WHEN=INIT,                                       
        BUILD=(1,80)),                                           
//      DD DISP=SHR,DSN=&&TMPSYMB1     <- containing IFTHEN-stmts
//      DD *                                                     
        IFOUTLEN=80                   concatenate SYSIN           
        OPTION COPY                                               
*