IBM Mainframe Forum

//S1   EXEC  PGM=ICEMAN                                             
//SYSOUT DD  SYSOUT=*                                               
//SORTIN DD DSN=...  input file                                                       
//OUT DD DSN=...  output file                                                   
//SYSIN DD *                                                       
  OPTION COPY                                                       
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(31:SEQNUM,7,ZD)),               
    IFTHEN=(WHEN=INIT,OVERLAY=(31:31,7,ZD,SUB,+2,TO=ZD,LENGTH=7))   
  OUTFIL FNAMES=OUT,REMOVECC,NULLOFL=RC16,                         
    INCLUDE=(1,7,CH,EQ,C'TRAILER',AND,                             
     (18,7,ZD,EQ,31,7,ZD)),                                         
    BUILD=(C'No of records in input file = ',18,7,/,               
           C'TRailer record count = ',18,7)                         

//D1   EXEC  PGM=ICEMAN
//SYSOUT DD  SYSOUT=*
//SORTIN DD DSN=...  Date file
//SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//SYSIN DD *
  OPTION COPY
  INREC BUILD=(C'TDATE,''',4,10,UFF,M11,LENGTH=8,C'''',80:X)
/*
//D2   EXEC  PGM=ICEMAN
//SYSOUT DD  SYSOUT=*
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)
//SORTIN DD DSN=...  input file (w/TRAILER)
//OUT DD DSN=...     output file
//SYSIN DD *
  OPTION COPY
  OUTFIL FNAMES=OUT,REMOVECC,NULLOFL=RC16,
    INCLUDE=(1,7,CH,EQ,C'TRAILER',AND,
     (9,8,CH,EQ,TDATE)),
    BUILD=(C'Date in the trailer record = ',9,8,/,
           C'Date in the Date file = ',9,8)
/*