I might say that this would not be a GDG or it would be a GDG of one entry
Once you have something like
&SYSUID..D18080.T0000
So I think you would only see a few GDG entries depending on how many are
created on 2018 Day 80 for Midnight (0000) - once you get to midnight +1 00:01
I think you need a new GDG base. And if you go out to Seconds, then even less
created and more GDG Bases are needed.
I would think there should be alternatives to meet the requirements for the OP.
So from my perspective, this would not very helpful
The OP would be better off without a GDG and to add the &SEQ symbolic to the
name to keep collisions from occurring.
Just a thought
Lizette
> -----Original Message-----
> From: IBM Mainframe Discussion List <[email protected]> On Behalf Of
> Sri h Kolusu
> Sent: Monday, March 12, 2018 1:48 PM
> To: [email protected]
> Subject: Re: GDG with timestamp
>
> > So using dynamic systems symbols I can make use &YYMMDD, but should I
> mention any special value in GDG base to use the dynamic system symbols ?
>
> Peter,
>
> You can create the GDG base with Date and time and also create the
> generations in the same job using EXPORT symbols. Something like this.
>
> // EXPORT SYMLIST=(GDGDATE,GDGTIME)
> /*
> // SET GDGDATE=&LYR4.&LJDAY
> // SET GDGTIME=&LHR.&LMIN.&LSEC
> /*
> //***************************************************************
> //* CREATE THE GDG BASE WITH CURRENT DATE (CCYYDDD) AND CURRENT*
> //* TIME(HHMMSS) *
> //* *
> //* Dccyyddd = Current year and Julian day of the year *
> //* *
> //* EX: HLQ.D2018071.T125339 *
> //***************************************************************
> //STEP0100 EXEC PGM=IDCAMS
> //SYSPRINT DD SYSOUT=*
> //SYSIN DD *,SYMBOLS=JCLONLY
> DELETE '&SYSUID..D&GDGDATE..T%%%%%%.G*' MASK PURGE DELETE
> '&SYSUID..D&GDGDATE..T%%%%%%' MASK GDG FORCE SET MAXCC=0
> DEFINE GDG -
> (NAME(&SYSUID..D&GDGDATE..T&GDGTIME) -
> LIMIT(255) -
> NOEMPTY -
> SCRATCH)
>
> /*
> //***************************************************************
> //* COPY THE DATA INTO +1 GENERARTION *
> //***************************************************************
> //STEP0200 EXEC PGM=SORT,COND=(0,NE,STEP0100)
> //SYSOUT DD SYSOUT=*
> //SORTIN DD *
> ABC
> DEF
> GHI
> //SORTOUT DD DSN=&SYSUID..D&GDGDATE..T&GDGTIME(+1),
> // DISP=(NEW,CATLG,DELETE),
> // SPACE=(CYL,(1,0),RLSE)
> //SYSIN DD *
> OPTION COPY
> /*
> //***************************************************************
> //* PERFORM A LISTCAT ON THE GDG BASE *
> //***************************************************************
> //STEP0300 EXEC PGM=IDCAMS,COND=(0,NE,STEP0100) //SYSPRINT DD SYSOUT=*
> //SYSIN DD *,SYMBOLS=JCLONLY
> LISTCAT LEVEL('&SYSUID..D&GDGDATE..T&GDGTIME') ALL
> /*
>
>
> Thanks,
> Kolusu
>
> IBM Mainframe Discussion List <[email protected]> wrote on
> 03/12/2018 10:32:32 AM:
>
> > From: Peter <[email protected]>
> > To: [email protected]
> > Date: 03/12/2018 10:33 AM
> > Subject: Re: GDG with timestamp
> > Sent by: IBM Mainframe Discussion List <[email protected]>
> >
> > So using dynamic systems symbols I can make use &YYMMDD, but should I
> > mention any special value in GDG base to use the dynamic system
> symbols ?
> >
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
