4.5 CEEDYWK

リリアン日付から曜日を計算します。曜日は、1 から7 までの間の数字として返します。

指定方法

呼出しの記述

CALL "CEEDYWK" USING
               BY REFERENCE LILIAN, 
               BY REFERENCE DAYNUM, 
               BY REFERENCE FC.

パラメタのデータ定義

01 LILIAN PIC S9(9) BINARY.
01 DAYNUM PIC S9(9) BINARY.
01 FC.
   02 Condition-Token-Value.
   COPY CEEIGZCT.
       03 Case-1-Condition-ID.
           04 Severity PIC S9(4) BINARY.
           04 Msg-No   PIC S9(4) BINARY.
       03 Case-2-Condition-ID
           REDEFINES Case-1-Condition-ID.
           04 Class-Code PIC S9(4) BINARY.
           04 Cause-Code PIC S9(4) BINARY.
       03 Case-Sev-Ctl PIC X.
       03 Facility-ID PIC XXX.
   02 I-S-Info PIC S9(9) BINARY.

LILIAN (入力): リリアン日付(1582 年10 月14 日からの日数) を指定します。

DAYNUM (出力)

LILIAN の曜日を格納する領域を指定します。

1 = 日曜日、2 = 月曜日、...,7 = 土曜日。

FC (出力)

フィードバック・コード域を指定します。

返却されるフィードバック・コードとコードの意味は以下のとおりです。

コード	重大度 (Severity)	メッセージ番号 (Msg-No)	意味
CEE000	0	0	成功
CEE2EG	3	2512	リリアン日付の値が、サポートされている範囲外です。