Hello Kolusu,
Thanks for help. This is exactly what I was looking for to code. But I
still have one doubt in this,
Your code works only when I have empty memeber to update with yesterday's
and today's date . But how this process works, when we updating dates in
JCL like below.
Ex : In this below DD name, from JCL should be updated with today's date
in OV='D18611'
//IEB PROC OV='D18611',DS='DS',LB='LB',GDG='(0)'
Or like below. in DD name TAPE with VOL=SER=(D18611) .
//TAPE DD DSN=RETP.DATA.QSAMCPY1,DISP=(,PASS),
// UNIT=359D,VOL=SER=(D18611),LABEL=(193,SL)
//*=====================================
Can you please suggest, how to handle such situation and update required
date
On Mon, Jun 11, 2018 at 11:26 PM, Sri h Kolusu <skol...@us.ibm.com> wrote:
> >>> is the date format YYMDD ? > or Julian , yeah WTH ?
>
> Carmen,
>
> I am guessing that OP date format is YYMMDD but needs to remove the
> leading zero for Month (January thru September ) and the same for Day (01
> thru 09). Since the year is already 18, we don't have worry about it for
> another 82 years. :)
>
> Saurabh,
>
> You can try this
>
> /* REXX */
> "ALLOC FI(OUTDD) DA('BKP.JCL.CNTL(BKPDABD1)') SHR REUSE"
>
> TODAY = DATE('S')
> YESTERDAY = TODAY - 1
> CDAYMM = STRIP(SUBSTR(TODAY,5,2),'L','0')
> CDAYDD = STRIP(SUBSTR(TODAY,7,2),'L','0')
> YDAYMM = STRIP(SUBSTR(YESTERDAY,5,2),'L','0')
> YDAYDD = STRIP(SUBSTR(YESTERDAY,7,2),'L','0')
>
> LINEOUT = 'D' ||,
> SUBSTR(YESTERDAY,3,2) ||,
> YDAYMM ||,
> YDAYDD ||,
> '<' ||,
> 'D' ||,
> SUBSTR(TODAY,3,2) ||,
> CDAYMM ||,
> CDAYDD ||,
> '<' ||,
> 'VOL=SER<'
> QUEUE LINEOUT
> "EXECIO 1 DISKW OUTDD (FINIS"
> "FREE FI(OUTDD)"
>
>
> I will let you ponder about updating the stats upon updating the contents
> of the member
>
> Thanks,
> Kolusu
>
> IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on
> 06/11/2018 12:57:09 PM:
>
> > From: Carmen Vitullo <cvitu...@hughes.net>
> > To: IBM-MAIN@LISTSERV.UA.EDU
> > Date: 06/11/2018 12:57 PM
> > Subject: Re: REXX to change Date in PDS member
> > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU>
> >
> > is the date format YYMDD ?
> > or Julian , yeah WTH ?
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
>
--
Thanks & Regards
Saurabh Khandelwal
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
