> 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
