CEELOCT は、現在の現地日時をリリアン日付 (1582 年 10 月 14 日から数えた日数)、リリアン秒数 (1582 年 10 月 14 日の 00:00:00 から数えた秒数)、グレゴリオ文字ストリング (YYYYMMDDHHMISS999) としてそれぞれ返します。
これらの値は、他の日時の呼び出し可能サービスや、既存の組み込み関数と互換性があります。
CEELOCT は、CEEGMT、CEEGMTO、および CEEDATM の各サービスを個別に呼び出すのと同じ機能を実行します。ただし、CEELOCT の呼び出しの方が、はるかに高速です。
| CALL CEELOCT の構文 |
|---|
|
システムから現地時間を使用できない場合は、output_Lilian が 0 に設定され、CEELOCT が終了して非 CEE000 シンボリック・フィードバック・コードが戻されます。
システムから現地時間を使用できない場合は、output_seconds が 0 に設定され、CEELOCT が終了して非 CEE000 シンボリック・フィードバック・コードが戻されます。
output_Gregorian の形式が必要な形式と合わない場合は、CEEDATM 呼び出し可能サービスを使用して、output_seconds を別の形式に変換することができます。
| シンボリック・フィードバック・コード | 重大度 | メッセージ番号 | メッセージ・テキスト |
|---|---|---|---|
| CEE000 | 0 | — | サービスが正しく完了した。 |
| CEE2F3 | 3 | 2531 | システムから現地時間を使用できませんでした。 |
使用上の注意
CBL LIB
************************************************
** **
** Function: Call CEELOCT to get current **
** local time **
** **
** In this example, a call is made to CEELOCT **
** to return the current local time in Lilian **
** days (the number of days since 14 October **
** 1582), Lilian seconds (the number of **
** seconds since 00:00:00 14 October 1582), **
** and a Gregorian string (in the form **
** YYYMMDDMISS999). The Gregorian character **
** string is then displayed. **
** **
************************************************
IDENTIFICATION DIVISION.
PROGRAM-ID. CBLLOCT.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 LILIAN PIC S9(9) BINARY.
01 SECONDS COMP-2.
01 GREGORN PIC X(17).
01 FC.
02 Condition-Token-Value.
COPY CEEIGZCT.
03 Case-1-Condition-ID.
04 Severity PIC S9(4) COMP.
04 Msg-No PIC S9(4) COMP.
03 Case-2-Condition-ID
REDEFINES Case-1-Condition-ID.
04 Class-Code PIC S9(4) COMP.
04 Cause-Code PIC S9(4) COMP.
03 Case-Sev-Ctl PIC X.
03 Facility-ID PIC XXX.
02 I-S-Info PIC S9(9) COMP.
PROCEDURE DIVISION.
PARA-CBLLOCT.
CALL 'CEELOCT' USING LILIAN, SECONDS,
GREGORN, FC.
************************************************
** If CEELOCT runs successfully, display **
** Gregorian character string **
************************************************
IF CEE000 of FC THEN
DISPLAY 'Local Time is ' GREGORN
ELSE
DISPLAY 'CEELOCT failed with msg '
Msg-No of FC UPON CONSOLE
STOP RUN
END-IF.
GOBACK.