OUTREC IFTHEN=(WHEN=INIT,OVERLAY=(125:X'01',55,6,UFF,PD,LENGTH=3)),
IFTHEN=(WHEN=(53,2,ZD,LT,20),OVERLAY=(125:X'00'))
OUTFIL INCLUDE=(37,8,CH,EQ,C'CREATION'),
BUILD=(81,44,C' IS CREATED ON : ',125,4,DT1,EDIT=(TTTT-TT-TT))
//*
The output from the above job is
Code:
B5355.G5299.NIKE.DATA IS CREATED ON : 2008-02-25
B5355.G5299.NIKE.DATA.G0001V00 IS CREATED ON : 2009-07-28
B5355.G5299.NIKE.DATA.G0002V00 IS CREATED ON : 2009-07-29
B5355.G5299.NIKE.DATA.G0003V00 IS CREATED ON : 2009-07-30
Good Question ... even I was also wondering when I got that kind of requirement ... but I guess it may help in deciding whether to go ahead with deleting the unused GDGs.
i tried the same code but getting abend.
If says the INREC statement has syntax error. i referred to the syntax in other sites and its fine. Please guide me
Code:
SYSIN :
INCLUDE COND=(01,8,CH,EQ,C'GDG BASE',OR,
04,7,CH,EQ,C'NONVSAM',OR,
37,8,CH,EQ,C'CREATION')
OUTREC IFTHEN=(WHEN=INIT,OVERLAY=(125:X'01',55,6,UFF,PD,LENGTH=3)),
IFTHEN=(WHEN=(53,2,ZD,LT,20),OVERLAY=(125:X'00'))
OUTFIL INCLUDE=(37,8,CH,EQ,C'CREATION'),
BUILD=(81,44,C' IS CREATED ON : ',125,4,DT1,EDIT=(TTTT-TT-TT))
WER268A INREC STATEMENT : SYNTAX ERROR
WER211B SYNCSMF CALLED BY SYNCSORT; RC=0000
WER449I SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE
I am looking for Get All the GDG Versions Created for a Day. We have one proc which is running in different Job and creating the different versions in one day and some time it will create 10 versions and another time it will create 5 based on the transactions . I want to know that how many version created for the day and these all are needs to go to another job for the process end of the day and need to exclude the previous days versions . Is there any way to identify that .. If you have any sample JCL can you please share it ..