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
