Re: Eliminating MOVE (was Milliseconds)

["Michael Naughton" <mnaughton@xxxxxxxxxxxx>]

Out of curiosity, is there a way to eliminate the MOVE in the following
code:

D Date8           S              8  0 INZ(20031231)      
D IsoDate         S               D                      
                                                         
C                   Eval      IsoDate = %date(Date8:*iso)
C     isodate       adddur    1:*DAYS       IsoDate      
C                   move      IsoDate       Date8        

WITHOUT using /free format?

I am at V5R1

Thanks!

RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx> writes:
>Peter, regarding your last question:
>
>To put current date into a character variable with no separators, 
>you can code:
>
>    CurDate = %char(%date():*mdy0);
>
>Likewise, to put current time into a character variable with no 
>separators, you can code:
>
>    CurTime = %char(%time():*hms0);
>
>To go from current time to number of milliseconds past midnight, you 
>can code:
>
>    Millisecs = %diff(%time():t'00.00.00':*seconds) * 1000;
>
>BTW, *MS duration code is not allowed when you're computing the 
>difference between two times.
>
>Cheers! Hans


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