Re: Eliminating MOVE

["Michael Naughton" <mnaughton@xxxxxxxxxxxx>]

Thanks, Brian! That worked great. :-)

RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> writes:
>Try this:
>
>     D Date8           S              8  0 INZ(20031231)
>     D IsoDate         S               D
>
>     D DateDS          DS
>     D  NumDate                       8S 0
>     D  CharDate                      8A   Overlay(NumDate)
>
>       // Original code
>     C                   Eval      IsoDate = %date(Date8:*iso)
>     C     isodate       adddur    1:*DAYS       IsoDate
>     C                   move      IsoDate       Date8
>
>       // Semi-free format at V5R1
>       // NOTE: All BIFs can be used in semi-free or free format coding
>style
>     C                   Eval      IsoDate = %date(Date8:*iso)
>     C                   Eval      IsoDate = IsoDate + %Days(1)
>     C                   Eval      CharDate = %Char(IsoDate:*Iso0)
>     C                   Eval      Date8 = NumDate


Mike Naughton
Senior Programmer/Analyst
Judd Wire, Inc.
124 Turnpike Road
Turners Falls, MA  01376
413-863-4357 x444
mnaughton@xxxxxxxxxxxx