D* BINARY宣言
D lilian          S              9B 0
D dywk_youbi      S              9B 0
 *
C     *ENTRY        PLIST
C                   PARM                    in_DATE           8
C*
C                   MOVEL     in_DATE       days_date
C                   MOVEL     'YYYYMMDD'    days_fmt
C*
C* 日付のリリアン形式への変換(CEEDAYS)APIは
C* 日付を表すストリングを1582年10月14日から
C* 経過した日数を表す数値に変換します。
C                   CALLB(D)  'CEEDAYS'
C                   PARM                    days_date         8
C                   PARM                    days_fmt          8
C                   PARM                    lilian
C                   PARM                    *OMIT
C*
C* リリアン日付による曜日の計算(CEEDYWK)APIは
C* １から７までの数で曜日を返します。
C                   CALLB     'CEEDYWK'
C                   PARM                    lilian
C                   PARM                    dywk_youbi
C                   PARM                    *OMIT
C*
C                   SELECT
C     dywk_youbi    WHENEQ    1
C     'Sunday'      DSPLY
C     dywk_youbi    WHENEQ    2
C     'Monday'      DSPLY
C     dywk_youbi    WHENEQ    3
C     'Tuesday'     DSPLY
C     dywk_youbi    WHENEQ    4
C     'Wednesday'   DSPLY
C     dywk_youbi    WHENEQ    5
C     'Thursday'    DSPLY
C     dywk_youbi    WHENEQ    6
C     'Friday'      DSPLY
C     dywk_youbi    WHENEQ    7
C     'Saturday'    DSPLY
C                   ENDSL
C*
C                   SETON                                        LR
C                   RETURN