RE: diff btw Procedures and Routines -- RPG400-L

This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
--
[ Picked text/plain from multipart/alternative ]
Hmm...'2002-08-12'?  You might want to check the system values qdatsep and
qdatfmt.

If you want the current date, try inz(*sys).

> -----Original Message-----
> From: Medrano, Rudy [mailto:RMedrano@southernwine.com]
> Sent: Thursday, August 15, 2002 12:04 PM
> To: 'rpg400-l@midrange.com'
> Subject: RE: diff btw Procedures and Routines
>
>
> Thanks Ali,  but I tried that also and got the same error
> message.  I must
> have tried 6 different formats for the date all with the same
> error message.
> 8^O
>
> Rodolfo M. Medrano
> Programmer/Analyst
> Southern Wine & Spirits of Central Florida
> (813) 623-1288 Ext. 1318
>
>
>
> -----Original Message-----
> From: Ali Ekinci [mailto:Ali.Ekinci@mapics.com]
> Sent: Thursday, August 15, 2002 1:57 PM
> To: rpg400-l@midrange.com
> Subject: RE: diff btw Procedures and Routines
>
>
> This is a multipart message in MIME format.
> --
> [ Picked text/plain from multipart/alternative ]
> try Inz(D'2002/08/12'), because *ISO is yyyy/mm/dd.
>
>
>
>
>
>
> "Medrano, Rudy" <RMedrano@southernwine.com>
> Sent by: rpg400-l-admin@midrange.com
> 08/15/2002 02:56 PM
> Please respond to rpg400-l
>
>
>         To:     "'rpg400-l@midrange.com'" <rpg400-l@midrange.com>
>         cc:
>         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.
>
>
>
> _______________________________________________
> 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.
> _______________________________________________
> 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.
>
NOTICE:
All e-mail sent to or from this e-mail address will be received or otherwise
recorded by The Sharper Image corporate e-mail system and is subject to
archival, monitoring, review by and/or disclosure to Sharper Image security
and other management. This message is intended only for the use of the
addressee and may contain information that is privileged and confidential.
If you are not the intended recipient, dissemination of this communication
is prohibited.