Hi Kolusu, No problem with your guess as to what the OP is looking for. Actually I was kind of hoping you had some kind of trick that would differentiate the dates somehow! :-) I'm hoping that the OP simply typo'd and missed a 0 somewhere.
Rex -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Sri h Kolusu Sent: Monday, June 11, 2018 4:55 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: [External] Re: REXX to change Date in PDS member >>> Regarding the removal of leading zeros, how does one tell the > difference between, for example, January 11 and November 1? It's possible, albeit unlikely, that the OP is using hex notation for the > month? :-) >>If that's the case, what date is 19117? Rex/Tom It was merely a guess from me about the date format from OP. He needs to clarify about the format or how he plans to use that format later on. Thanks, Kolusu IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 06/11/2018 01:35:30 PM: > From: "Pommier, Rex" <rpomm...@sfgmembers.com> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 06/11/2018 01:36 PM > Subject: Re: [External] Re: REXX to change Date in PDS member > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > Regarding the removal of leading zeros, how does one tell the > difference between, for example, January 11 and November 1? It's > possible, albeit unlikely, that the OP is using hex notation for the > month? :-) > > Rex > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU > ] On Behalf Of Sri h Kolusu > Sent: Monday, June 11, 2018 3:27 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: [External] Re: REXX to change Date in PDS member > > >>> 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 > > > The information contained in this message is confidential, protected > from disclosure and may be legally privileged. If the reader of > this message is not the intended recipient or an employee or agent > responsible for delivering this message to the intended recipient, > you are hereby notified that any disclosure, distribution, copying, > or any action taken or action omitted in reliance on it, is strictly > prohibited and may be unlawful. If you have received this > communication in error, please notify us immediately by replying to > this message and destroy the material in its entirety, whether in > electronic or hard copy format. Thank you. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN The information contained in this message is confidential, protected from disclosure and may be legally privileged. If the reader of this message is not the intended recipient or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any disclosure, distribution, copying, or any action taken or action omitted in reliance on it, is strictly prohibited and may be unlawful. If you have received this communication in error, please notify us immediately by replying to this message and destroy the material in its entirety, whether in electronic or hard copy format. Thank you. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
