Page 1 of 1

Icetool report: Display date range calculation.

PostPosted: Wed Apr 14, 2010 7:32 pm
by Narine
I would like to display DATE in the report as a range. The range will be Current Day - 7 days.
Example: If the job runs today the report will display.

Page 1 THIS IS A REPORT TITLE 04/07/2010 - 04/14/2010

Is this possible with ICETOOL?
Thank you.

Re: Icetool report: Display date range calculation.

PostPosted: Wed Apr 14, 2010 11:26 pm
by Frank Yaeger
You can use a DFSORT/ICETOOL job like the following to do what you asked for:

//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) -
  ...
/*