Frosty the Coder
Legendary Poster
Re: Xe - 8 pos date to 6 pos jde date
I've not had the pleasure of playing in XE, but I found
these in 733
B0800013 - Convert date to string
jdWork_UPMJ <- JDDateConvertedDate
szMMDDYY -> szStringToConvert
I also have notes on a call to help desk where they suggested
B41B0470 - Format Date from DMY
mnYY_MATH01 -> mnYear
mnMM_MATH01 -> mnMonth
mnDD_MATH01 -> mnDay
jdWork_UPMJ <- jdDate
Both would require that you substring your input date to remove
the delimeters. The second would also require that you
Convert String to Math Numeric (B0000580).
I'd be _thrilled_ to find something like the X0028 date routines
from World.
Gene Piekarski, Jr
AS/400, B733, SP11.2, NT client
I've not had the pleasure of playing in XE, but I found
these in 733
B0800013 - Convert date to string
jdWork_UPMJ <- JDDateConvertedDate
szMMDDYY -> szStringToConvert
I also have notes on a call to help desk where they suggested
B41B0470 - Format Date from DMY
mnYY_MATH01 -> mnYear
mnMM_MATH01 -> mnMonth
mnDD_MATH01 -> mnDay
jdWork_UPMJ <- jdDate
Both would require that you substring your input date to remove
the delimeters. The second would also require that you
Convert String to Math Numeric (B0000580).
I'd be _thrilled_ to find something like the X0028 date routines
from World.
Gene Piekarski, Jr
AS/400, B733, SP11.2, NT client