RE: more date stuff

I got it !   Thanks to all !

Cindy Major
Programmer/Analyst 
Nucor Steel Auburn
315.258.4275
cmajor@xxxxxxxxxxxxxxx
 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Peter Dow (ML)
Sent: Monday, March 20, 2006 12:26 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: more date stuff

Hi Cindy,

In your %date bif, the *USA/ is telling the compiler that crdate is in 
mm/dd/yyyy format, but you've initialized it without the slashes.

You can either initialize it with slashes, or change the format to *USA0

(that's a zero on the end) which says there are no slashes in crdate.

hth,
Peter Dow
Dow Software Services, Inc.
909 793-9050

Cindy Major wrote:
> 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
>
>  
>
>  
>
>