IGZEDT4 は、4 桁年号を使用した現在日付を YYYYMMDD 形式で戻します。
| CALL IGZEDT4 の構文 |
|---|
|
使用上の注意: 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.