RE: Date Manipulation

["Bob Cozzi \(RPGIV\)" <cozzi@xxxxxxxxx>]

The MOVE operation code only works with DATE datatype fields. That is at
least one of either Factor 2 or the Result _must_ be a date datatype
field in order for it to work. The value in Factor 1 is the format of
the data in the non-date field being moved to, or copied from the
corresponding date field. So you have to create a "work" variable and
move the non-date field into it first, then move the date field to the
PXLMDT field. Remember, to set the DATEDIT keyword on the H spec so that
*DATE's format matches what you expect it to be.

Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of Troy.C.Dills@blum.com
> Sent: Tuesday, December 11, 2001 1:52 PM
> To: rpg400-l@midrange.com
> Subject: Date Manipulation
>
> Maybe I'm having a brain fa*t today
>
> I need help using  *date.  This is the way I'm using it now ( but
doesn't
> work)
>
>   *FORMAT DATE TO YYYYMMDD FORMAT
>  C                           Z-ADD     *DATE         PXHOLD
8 0
>  C     *YMD          MOVE      PXHOLD     PXLMDT
>
>
> I need *date into an eight digit numeric field with no decimal places,
> then I want to take that field and put it in *ymd format.  ( I know
this
> sounds out of whack)
>
> Could someone please help me with this little problem?
> RPGIV  (ILE)  V5R1
>
> Thanks
> Troy Dills
> Julius Blum Inc.
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.