Hi,
I have file produced by FDREPORT with this format:
1FDR400 FDRABR CUSTOM REPORTS - FDREPORT VER 5.4/90P INNOVATION DATA
PROCESSING DATE -
0
DATA SET NAME VOLSER CREATJOB CRDATE
LRDATE FILE SIZE
------------- ------ -------- ----------
---------- -----------
0PRODSN1.ZOS.MLQAAA01.SAAA0001.D230320.T0541 TP0070 PACTD01 2015/07/21
2025/08/21 57K
PRODSN2.ZOS.MLQAAA01.SBBB0001.D230321.T0538 TPX327 PACTD02 2021/02/03
2021/02/03 57K
----+----1----+----2----+----3----+----4----+----5----+----
6----+----7----+----8----+----9----+-
Using this file as input, I need to create one with only the records for
which the LRDATE are is equal to today's date less one year.
I am using these SORT statements:
//SYMNAMES DD *
* DCOLLECT information symbols *
ASACCC,001,01,CH * carriage control character
DSNAME,002,44,CH * TAPE Dataset Name
VOLSER,047,06,CH * Tape Volser
JOBNAM,054,08,CH * Creation Job
CRDATE,063,10,CH * Tape Creation Date
LRDATE,074,10,CH * Tape Last Ref Date
TPSIZE,087,08,UFF * RMM Tape size
KBTYPE,95,01,CH * "K", for Kilobyte size
/*
//SYSIN DD *
OPTION VLSCMP,DYNALLOC=(,4),COPY
SORT FIELDS=COPY
INCLUDE COND=(KBTYPE,EQ,C'K',AND,
LRDATE,CH,LE,DATE1(-)-365)
INREC BUILD=(DSNAME,
X,
CRDATE,
X,
LRDATE,
X,
TPSIZE,
C' KB')
/*
//*
As I am not getting a lot of the records that I should (not a single one
for 2022 and there are a lot of those on the input file), it must be the
"DATE1". So, what format should I be using for a date format YYYY/MM/DD ?
Best wishes
Jack
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
