Re: Coverting Dates in Free Format

[cozzi@xxxxxxxxx]

You field is not a date field in *CYMD format--there's no such
thing. Your field is a zoned or packed numeric field that your
program is treating like a date value.  

If hstSDate is numeric and is in *CYMD format, why are you telling
%DATE that it is an *MDY value?  

Normally you'd use this to move a zoned or packed field into a date
field.

     D hstDate         S              7S 0 Inz(1030730)
     D myDate          S               D   DATFMT(*MDY)
     C     *CYMD         MOVE      hstDate       MyDate

There is no direct, free-form version of this situation.
You'll probably see some multiple statement compositions that can do
it, but nothing direct/one-to-one.

-Bob


> I'm trying to convert a date that is *CYMD in a 7 digit Signed
field
> to
> *MDY in a 6 digit signed field. I keep getting errors. 
> 
> Here's my code 
> 
> rStDate = %Date(hstSDATE:*MDY);
> 
> Does rStDate have to have a date data type?
> 
> _______________________________________________
> 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.