DAY OF WEEK TEXT


start figure

       ** Return the day of the week as a string .....PProcName+++++++..B...................Functions++++++++++++++++++++++++++++ 0020 P WeekDay         B                   EXPORT .....DName+++++++++++EUDS.......Length+TDc.Functions++++++++++++++++++++++++++++ 0021 D WeekDay         PI            32A 0022 D  InputDate                      D   CONST DATFMT(*ISO) 0023 D Days            DS 0024 D  Sunday                       10A   Inz('Sunday') 0025 D  Monday                       10A   Inz('Monday') 0026 D  Tuesday                      10A   Inz('Tuesday') 0027 D  Wednesday                    10A   Inz('Wednesday') 0028 D  Thursday                     10A   Inz('Thursday') 0029 D  Friday                       10A   Inz('Friday') 0030 D  Saturday                     10A   Inz('Saturday') 0031 D  Day                          10A   Dim(7) Overlay(Days) .....CSRn01Factor1+++++++OpCode(ex)Factor2+++++++Result++++++++Len++DcHiLoEq.... 0032 C                   TEST(E)                 InputDate 0033 C                   If        %ERROR 0034 C                   Return    'Invalid Date' 0035 C                   Endif       **  Note: Date validation is done her to avoid -1 return value       **        by the DAYOFWEEK function. 0036 C                   return    Day(DayOfWeek(InputDate)) .....PProcName+++++++..B...................Functions++++++++++++++++++++++++++++ 0037 P WeekDay         E 

end figure

Figure D.3: ZTOOLS example procedures— Day of Week Text.




The Modern RPG IV Language
The Modern RPG IV Language
ISBN: 1583470646
EAN: 2147483647
Year: 2003
Pages: 156
Authors: Robert Cozzi

flylib.com © 2008-2017.
If you may any questions please contact us: flylib@qtcs.net