RPGIV @ Work

A unique site for RPG and System i Lovers

Welcome!

Hi, this site will provide all what you need in System i and RPG developments.

My Name is Chamara Withanachchi, System i Expert and RPG Developer. And in the field for last 11 years.

I hope you will find lot of valuable information from this site

Day of Week Print E-mail
User Rating: / 3
PoorBest 

Written by Chamara Withanachchi   
 
 
  *-------------------------------------------------------------------------------------------
 D DayOfWeek       S              9                                       
  *-------------------------------------------------------------------------------------------
  
 C                   Eval      DayOfWeek = %SubST( ('Sunday   ' +
 C                                                  'Monday   ' +
 C                                                  'Tuesday  ' +
 C                                                  'Wednesday' +
 C                                                  'Thursday ' +
 C                                                  'Friday   ' +
 C                                                  'Saturday ' ) :
 C                               ( ( ( %REM (
 C                               %DIFF( %DATE() : %DATE('1941-12-07') : *D)
 C                                : 7 ) + 1 ) * 9 ) ) - 8 : 9 )
  
 C     DayOfWeek     Dsply
  
 C                   Eval        *INLR = *ON
 C                   Return
                
User Comments

Please login or register to add comments

<Previous   Next>