Changed to DATEs

[Raul A Jager <raul@xxxxxxxxxx>]

Welcome to free!  Carola.

Yo can change a field tipe date to char using   %char(date: format), 
then use %subst.  In free you can do both calls in one line.  

Like this:   year4 = %subst(%char( date: *iso): 1: 4);
     month = %subst(%char( date: *iso): 6: 2);
     day = %subst(%char( date: *iso): 9: 2);
     year2 = %subst(%char( date: *iso): 3: 2);
     century  = %subst(%char( date: *iso): 1: 2);

Good luck.

CarollaT@xxxxxxxxxxxxxx wrote:

> I am (trying to) use free-form specs finally, but I am having some
> difficulty performing date functions.  I figured out that I can use the
> %DAYS/%MONTHS, etc. BIFs for date arithmetic, but when I want to extract the
> date to an alpha field, MOVE is the only way I know of, except for using the
> %SUBDT, then converting each component to an alpha sub-field component of a
> DS, etc. etc.  This way seems clunky to me, and so my solution, for now, is
> to /End-Free, MOVE the date into the alpha field, then re- /FREE again
> (messy).  Isn't there a way to alpha-ize a date field in free form specs? 
>
> Tony Carolla
> MedAmerica Billing Services, Inc. 
> _______________________________________________
> 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.
>