4.12 CEESECI

1582 年10 月14 日00:00:00 からの秒数を表す値2進整数(年、月、日、時間、分、秒、およびミリ秒)に変換します。

指定方法

呼出しの記述

CALL "CEESECI" USING
               BY REFERENCE INSECS, 
               BY REFERENCE YEAR, 
               BY REFERENCE MONTH, 
               BY REFERENCE DAYS, 
               BY REFERENCE HOURS, 
               BY REFERENCE MINUTES, 
               BY REFERENCE SECONDS, 
               BY REFERENCE MILLSEC, 
               BY REFERENCE FC.

パラメタのデータ定義

01 INSECS  COMP-2.
01 YEAR    PIC S9(9) BINARY.
01 MONTH   PIC S9(9) BINARY.
01 DAYS    PIC S9(9) BINARY.
01 HOURS   PIC S9(9) BINARY.
01 MINUTES PIC S9(9) BINARY.
01 SECONDS PIC S9(9) BINARY.
01 MILLSEC 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.

INSECS(入力): 1582 年10 月14 日00:00:00 からの秒数を指定します。

YEAR (出力): 年を格納する領域を指定します。YEAR の有効範囲は1582 から9999 までです。

MONTH (出力): 月を格納する領域を指定します。MONTH の有効範囲は1 から12 までです。

DAYS (出力): 日を格納する領域を指定します。DAYS の有効範囲は1 から31 までです。

HOURS (出力): 時間を格納する領域を指定します。HOURS の有効範囲は0 から23 までです。

MINUTES (出力): 分を格納する領域を指定します。MINUTES の有効範囲は0 から59 までです。

SECONDS (出力): 秒を格納する領域を指定します。SECONDS の有効範囲は0 から59 までです。

MILLSEC (出力): ミリ秒を格納する領域を指定します。MILLSEC の有効範囲は0 から999 までです。

FC (出力)

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

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

コード	重大度 (Severity)	メッセージ番号 (Msg-No)	意味
CEE000	0	0	成功
CEE2E9	3	2505	INSECS 値がサポート範囲外です。