Re: Date question

Thanks Scott as always you put it in language that a two year old could 
understand...now that I have stroked your ego a bit, do I get any free 
sausage? LOL.....just kidding.....

Hope your daughter is doing well...



On Mon, 10 Oct 2005 11:32:57 -0500 (CDT), Scott Klement wrote
> Hello,
> 
> > MYDATE         S           L         DATFMT(*USA)
> > EVAL   MYDATE = %date(%date:*USA)
> 
> The data date type is "D" in RPG.  (But, it's "L" in DDS). Also, 
> it's not necessary to tell %date() what the date format is.  Since 
> you've given the format on the D-spec, it knows what format to put 
> the date in.
> 
> The following works on my box:
> 
>       D myDate          s               D   datfmt(*USA)
>       c                   eval      myDate = %date()
> 
> Another way to do it is to omit the %date() BIF, and use INZ(*SYS) 
> instead.  For example:
> 
>       D myDate          s               D   datfmt(*USA) inz(*SYS)
> 
> -- 
> 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.


If you bought, it was hauled by a truck - somewhere, sometime.