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
