Re: Date Manipulation

[DRittenberg@xxxxxxxxxxxxx]

Try *CYMD          MOVE      PXHOLD     PXLMDT

-----Original Message-----
Message: 12
Subject: Date Manipulation
To: rpg400-l@midrange.com
From: Troy.C.Dills@blum.com
Date: Tue, 11 Dec 2001 14:52:01 -0500
Reply-To: rpg400-l@midrange.com

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.