4.2 CEEDATE

リリアン日付を文字形式に変換します。

指定方法

呼出しの記述

CALL "CEEDATE" USING
               BY REFERENCE LILIAN, 
               BY REFERENCE PICSTR, 
               BY REFERENCE CHRDATE,
               BY REFERENCE FC.

パラメタのデータ定義

01 LILIAN PIC S9(9) BINARY.
01 PICSTR.
   02 Vstring-length PIC S9(4) BINARY.
   02 Vstring-text.
      03 Vstring-char PIC X
                 OCCURS 0 TO 256 TIMES
                 DEPENDING ON Vstring-length of PICSTR.
01 CHRDATE PIC X(80).
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 日からの日数です。

PICSTR (入力)

CHRDATEの必要な形式(長さを含む)を指定します。

有効なピクチャー文字のリスト、ならびに有効なピクチャー文字列の例については、IBMのマニュアルを参照してください。

CHRDATE (出力): リリアン日付を表す数を文字形式の日付を格納する領域を指定します。文字形式はPICSTRによって指定された形式です。

FC (出力)

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

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

コード	重大度 (Severity)	メッセージ番号 (Msg-No)	意味
CEE000	0	0	成功
CEE2EG	3	2512	リリアン日付の値がサポートの範囲外です。
CEE2EM	3	2518	正しくないピクチャー文字列が指定されました。
CEE2EQ	3	2522	CEEDATE に渡されるピクチャー文字列に<JJJJ> か<CCCC> または<CCCCCCCC> が使用されたが、リリアン日付の値がサポートの範囲外です。年号を特定することができませんでした。
CEE2EU	3	2526	CEEDATE によって返却された日付文字列が切り捨てられました。