RE: diff btw Procedures and Routines

[Scott Mildenberger <Smildenber@xxxxxxxxxxxx>]

According to the manual

Date literals take the form D'xx-xx-xx' where:

D indicates that the literal is of type date
xx-xx-xx is a valid date in the format specified on the control
specification (separator included)
xx-xx-xx is enclosed by apostrophes

If you don't have the format specified on the control spec then it is *ISO,
the correct format for *ISO is Inz(D'2002-08-12').  The error message tells
you that your literal is "not a valid *ISO Date literal".

Scott Mildenberger

> -----Original Message-----
> From: Medrano, Rudy [mailto:RMedrano@southernwine.com]
> Sent: Thursday, August 15, 2002 12:57 PM
> To: 'rpg400-l@midrange.com'
> Subject: RE: diff btw Procedures and Routines
>
>
> I am getting a "Thje Date Literal is not valid"  error
> message whenever I
> compile my RPG program.   Below is how I have defined the date:
>
>
>    40 DTodaysDate       S               D   DatFmt(*ISO)
> Inz(D'08/12/2002')
>
>  ======>
>              a
>
>  *RNF0305 20 a      004000  The value D'08/12/2002' is not a
> valid *ISO-
> Date literal.
>      41
>
>
> I want to initialize a the date field to that value.
> I have consulted manuals and they all indicate this is the
> way to define and
> initialize a date field.
>
> Any help is greatly appreciated.
>
>
> Thanks, Rudy.
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
> mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>