RE: diff btw Procedures and Routines

ISO is YYYYMMDD

Try:
DTodaysDate       S               D   DatFmt(*ISO) Inz(D'2002-08-12')

Benjamin Deaver
Programmer
Labatt Food Service

-----Original Message-----
From: Medrano, Rudy [mailto:RMedrano@southernwine.com]
Sent: Thursday, August 15, 2002 1: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.