IBM Mainframe Forum

//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
RECORD
/*
//SORTOUT DD DSN=&&S1,UNIT=SYSDA,SPACE=(TRK,(1,1)),DISP=(,PASS)
//SYSIN DD *
  OPTION COPY
  INREC IFOUTLEN=80,
    IFTHEN=(WHEN=INIT,
     BUILD=(DATE1(/)-7,DATE1(/))),
    IFTHEN=(WHEN=INIT,
     BUILD=(C'My_title,''THIS IS A REPORT TITLE ',
        6,5,C'/',1,4,C' - ',16,5,C'/',11,4,C''''))
/*
//S2 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYMNAMES DD DSN=&&S1,DISP=(OLD,PASS)
//SYMNOUT DD SYSOUT=*
//IN DD DSN=...  input file
//OUT DD DSN=...  output file
//TOOLIN DD *
DISPLAY FROM(IN) LIST(OUT) -
   TITLE(My_title) -
  ...
/*