Rational Developer for System z
COBOL for Windows バージョン 7.5 プログラミング・ガイド


IGZEDT4 - 現在日付の取得

IGZEDT4 は、4 桁年号を使用した現在日付を YYYYMMDD 形式で戻します。

CALL IGZEDT4 の構文
構文図を読む構文図をスキップする>>-CALL--"IGZEDT4"--USING--output_char_date.-------------------><
 
output_char_date (出力)
現在の年、月、日を表す、YYYYMMDD 形式の 8 バイト固定長文字ストリング。

使用上の注意: IGZEDT4 は、CICS ではサポートされません。

CBL LIB
      **************************************************
      ** Function: IGZEDT4 - get current date in the  **
      **                     format YYYYMMDD.         **
      **************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. CBLEDT4.
       . . .
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  CHRDATE                 PIC S9(8) USAGE DISPLAY.
       . . .
       PROCEDURE DIVISION.
       PARA-CBLEDT4.
      **************************************************
      ** Call IGZEDT4.
      **************************************************
           CALL 'IGZEDT4' USING BY REFERENCE CHRDATE.
      **************************************************
      ** IGZEDT4 has no nonzero return code to
      **     check, so just display result.
      **************************************************
           DISPLAY 'The current date is: '
               CHRDATE
           GOBACK.

ご利用条件 | フィードバック

Copyright IBM Corporation 1996, 2008.
このインフォメーション・センターでは Eclipse テクノロジーが採用されています。(http://www.eclipse.org)