Re: convert a date --> (WARNING) <-- -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

In a message dated 1/16/2001 4:56:30 PM Eastern Standard Time,
tuohyp@attglobal.net writes:

Adam, I am sure this will be one of many replies - but there are none there
at
the moment!

    D NumDate         S              8 0
    D ISODate         S               D
    C     *YMD          Move      NumDate       ISODate

HTH

Paul Tuohy

"Ray, Adam" wrote:

> This one's probably easy, but I wanted to know the BEST way to do this.
> I have a date stored in the format yyyymmdd (packed decimal, 8 digits, 0
> decimal). I want to convert it to the *ISO standard format (YYYY-MM-DD)
so I
> can perform the SUBDUR calculation on it. What is the easiest/fastest/most
> efficient way to do this? I am using ILE RPG on V4R2M0.

Only one thing missing...

Don't forget to do:

*MDY TEST(D) NumDate 50

Only move the date to the ISO field if it passes the test.

Otherwise you will get an invalid date error if it encounters something like
a zero date field or even if something has 022999 because it knows when a
leap year is.

Just thought I would warn you ...

Bill