現在の西暦を取り出す ILE API の呼び出し

以下の図 79 の例は、ILE バインド可能 API、ローカル現在時刻取得 (CEELOCT) を使用して、4 桁年を取り出す方法を示すものです。 この API は、3 つの形式で現在のローカル時刻を取り出します。 3 つ目の形式はグレゴリオ暦日付であり、最初の 4 文字が年です。

次のセクション現在の西暦を取り出すための組み込み関数または ACCEPT ステートメントの使用法では、いくつかの組み込み関数と、ACCEPT ステートメントを使用して同じことを行う方法について説明します。

図 79. 現在の西暦を取り出す例
     IDENTIFICATION DIVISION.
     PROGRAM-ID. DATE1.
    * Example program to get the 4 digit year in ILE COBOL for ISERIES
     ENVIRONMENT DIVISION.
     CONFIGURATION SECTION.
       SOURCE-COMPUTER. IBM-ISERIES
       OBJECT-COMPUTER. IBM-ISERIES
     DATA DIVISION.
     WORKING-STORAGE SECTION.
     01 date-vars.
        05 lilian            pic 9(9) usage binary.
        05 lilian-time-stamp usage comp-2.
        05 gregorian-date.
           10 greg-year      pic x(4).
           10 greg-month     pic x(2).
           10 greg-day       pic x(2).
           10 greg-time      pic x(9).
           10 filler         pic x(6).
     PROCEDURE DIVISION.
     TEST-PARA.
         call procedure "CEELOCT" using
             lilian lilian-time-stamp
             gregorian-date.
         display "date is " gregorian-date.
         display "year " greg-year.
         display "month " greg-month.
         STOP RUN.