RE: more date stuff

Yep....
Try this:

Dtmdy = %date(crdate:*USA0);

Basically you've told the compiler I'm moving a date in USA format with
a '/' separator into my date field dtmdy...then you are actually moving
a USA format date with no separators... 


Thanks,
Tommy Holden


-----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