RE: %Date BIF

["Johnson, Duane" <djohnson@xxxxxxxxxxxxx>]

Griz,
  I've found that it works best to first convert to a date data type, then
convert to character *MDY that is overlaid over a 6 digit numeric field
i.e.

     duedate = %date(numericCYYMMDD:*CYMD);   
     charMMDDYY = %char(duedate:*MDY0);  // that's a zero not an O

(that's what I did at V5R1, I've been told that you can go directly to
numeric at V5R2, but I haven't had it long enough to try that yet)
Duane
> -----Original Message-----
> From: Malchow, Grizzly [SMTP:GMalchow@xxxxxxxxxxxxxxxxxxxxx]
> Sent: Tuesday, July 08, 2003 1:46 PM
> To:   rpg400-l@xxxxxxxxxxxx
> Subject:      %Date BIF
> 
> I'm trying to convert a date in *CYMD to *MDY. Both fields are numeric.
> I'm trying to use the %Date BIF and I can't seem to get anything to
> work. I noticed that %Date doesn't accept numeric values. Is there a way
> to do that with 2 numeric values, or should I just use MOVE opcode? 
> 
> _______________________________________________
> 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.