Re: free-format move *USA date value to 6-digit numeric in YMD format

Dan,

The code you posted below compiled and completed normally and I am on 
V5R2.  I ran both programs.



Michael Jacobsen
System Programmer, IT
First Financial Bank, NA
(812)  238-6319

rpg400-l-bounces@xxxxxxxxxxxx wrote on 12/28/2005 02:04:39 PM:

> On 12/28/05, Dan <dan27649@xxxxxxxxx> wrote:
> >
> > Anyone at v5r2 try TEST2
> >
> 
> Sorry, fat-fingered foolery...
> 
> Can anyone at v5r2 try TEST2 (code re-posted below) to see if it'll 
croak?
>   d DateUSA         s               d   DatFmt(*usa) Inz Dim(32)
>   d YYMMDD60        s              6  0
>    /free
>         DateUSA(1) = d'2005-12-25' ;
>         YYMMDD60 = %int(%char(DateUSA(1):*YMD0 ));
>         *inLR = *On ;
>         DUMP(a) ;
>    /end-free
> 
> TIA,
> Dan
> -- 
> 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.
>