以下の図 79 の例は、ILE バインド可能 API、ローカル現在時刻取得 (CEELOCT) を使用して、4 桁年を取り出す方法を示すものです。 この API は、3 つの形式で現在のローカル時刻を取り出します。 3 つ目の形式はグレゴリオ暦日付であり、最初の 4 文字が年です。
次のセクション現在の西暦を取り出すための組み込み関数または ACCEPT ステートメントの使用法では、いくつかの組み込み関数と、ACCEPT ステートメントを使用して同じことを行う方法について説明します。
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.
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.