RE: more date stuff

["Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx>]

I think you meant to say run time error.

When using *USA/, you are telling the program that the input date field
has / as the separator.  ==>  Need to change the crdate inz('03172006
') statement to inz('03/17/2006') 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Cindy Major
Sent: Monday, March 20, 2006 11:18 AM
To: RPG programming on the AS400 / iSeries
Subject: more date stuff

Can you tell me what is wrong with this code?

 

 

D dtmdy           s               d   datfmt(*USA)

D crdate          s             10a  inz('03172006  ')

 /free                          

   dtmdy = %date(crdate: *USA/);

 /end-free                      

 

 

Error when compiling:

Program Status . . . . . . . . . . . . :   00112                  

             Date, Time or Timestamp value is not valid (C G D F).

    CRDATE                CHAR(10)             '03172006  '

    DTMDY                 DATE(10)             '01/01/0001'

 

Cindy Major

Programmer/Analyst 

Nucor Steel Auburn

315.258.4275

cmajor@xxxxxxxxxxxxxxx

 

 

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
http://archive.midrange.com/rpg400-l.