RE: Eliminating MOVE

Brian,

You could make it even easier by puuting the code in a subprocedure

Cheers
Colin.W

-----Original Message-----
From: Brian Parkins [mailto:PARKIB@xxxxxxxxxx] 
Sent: 07 August 2003 10:25
To: RPG programming on the AS400 / iSeries
Subject: Eliminating MOVE



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

       // Semi-free format at V5R2
       // NOTE: %INT, %DEC, etc. enhanced to convert from character
     C                   Eval      IsoDate = %date(Date8:*iso)
     C                   Eval      IsoDate = IsoDate + %Days(1)
     C                   Eval      Date8 = %Int(%Char(IsoDate:*Iso0))


         // Free format style would allow the code (in both examples) to be
         //  shifted left and the EVAL to be dropped, e.g.
      /Free
         IsoDate = %date(Date8:*iso);
         IsoDate = IsoDate + %Days(1);
         Date8 = %Int(%Char(IsoDate:*Iso0));
         *InLR = *On;
      /End-Free

Brian Parkins

_______________________________________________
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.

For the latest on Bertram Books products and services and for up-to-the-minute 
book news visit www.bertrams.com


This e-mail and any attachments may contain information that is confidential 
and privileged and is solely for the use of the intended recipient. If you are 
not the intended recipient please notify the sender and delete this e-mail and 
any attachments immediately