RPG の演算中で曜日を検出したい場合がある。

1899年12月30日との差を 7で割った余りによって判断することができる。

1. フィールド DATE が *DATE として定義されている場合

C                   EVAL      DAY = %REM(%DIFF(DATE: D'1899-12-30':
C                             *DAYS): 7)

2. フィールド DATE が 20YYMMDD として定義されている場合

C                   EVAL      DAY = %REM(%DIFF(%DATE(DATE):
C                             D'1899-12-30':*DAYS): 7)