IGZEDT4: 获取当前日期

IGZEDT4 返回格式为 YYYYMMDD 的四位数年份的当前日期。

CALL IGZEDT4 语法

output_char_date (输出): 格式为 YYYYMMDD 的 8 字节固定长度字符串，表示当前年，月和日。

用法说明: IGZEDT4 在 CICS®下不受支持。

示例


**************************************************
** 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.

或者，可以使用 ACCEPT 语句来获取具有四位数年份的当前日期。以下是示例：

01 todays-date.
03 todays-yyyy pic 9(04).
03 todays-mm pic 9(02).
03 todays-dd pic 9(02).
. . .
accept todays-date from date yyyymmdd.