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:IBM-MAIN@LISTSERV.UA.EDU]
> On Behalf Of Bill Ashton
> Sent: Tuesday, June 12, 2018 12:41 PM
> To: IBM-MAIN@LISTSERV.UA.EDU
> 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
> <john.archie.mck...@gmail.com>
> wrote:
> 
> > On Tue, Jun 12, 2018 at 2:01 PM Bill Ashton <bill00ash...@gmail.com>
> > 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN
> >
> 
> 
> --
> Thank you and best regards,
> *Billy Ashton*
> 
> ----------------------------------------------------------------------
> 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

Reply via email to