For the record, I find the idea of trying to cram a date into a tape volser very strange, non-intuitive and of dubious value.
> -----Original Message----- > From: IBM Mainframe Discussion List [mailto:[email protected]] > On Behalf Of Bill Ashton > Sent: Tuesday, June 12, 2018 12:41 PM > To: [email protected] > Subject: Re: REXX to change Date in PDS member > > I hadn't thought about that, John. In that case, I would probably change the > xmonths to be a collated value: > xmonths = "ABCDEFGHIJKL" - not as intuitive, but easy enough to get the hang > of after a short while. > > On Tue, Jun 12, 2018 at 3:20 PM John McKown > <[email protected]> > wrote: > > > On Tue, Jun 12, 2018 at 2:01 PM Bill Ashton <[email protected]> > > wrote: > > > > > Since the OP is trying to fit D + date into a 6-character field, why > > > not use a modified format like Dyyxdd, where x is a hex value for the > month. > > In > > > this case, Jan = 1, Sep = 9, Oct = A, Nov = B, and Dec = C. That > > > would > > make > > > the vol reference earlier D18611 as expected. and then if it were > > November > > > 11, it would be D18B11. > > > > > > > That's a decent solution. The only possible problem is that the DSN > > will not collate correctly in EBCDIC because A..C come before 0..9 . > > > > > > > > > > > > The simple Rexx for this is: > > > xmonths = "123456789ABC"; > > > myvalue = "D" || Left(Date("O"),2) || Substr(xmonths, > > Left(Date("U"),2),1) > > > || Left(Date("N"),2); > > > > > > > > -- > > A computer once beat me at chess, but it was no match for me at kick > > boxing. > > > > Emo Philips > > > > Maranatha! <>< > > John McKown > > > > ---------------------------------------------------------------------- > > For IBM-MAIN subscribe / signoff / archive access instructions, send > > email to [email protected] with the message: INFO IBM-MAIN > > > > > -- > Thank you and best regards, > *Billy Ashton* > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
