获取CICS的日期信息同获取时间信息比较类似。日期信息也是依次通过CICS的命令ASKTIME和FORMATTIME得到的。不过在FORMATTIME中,需要指明获取的为日期信息,同时设置日期信息的相应输出格式。例如,以下程序将用于获取日期信息:
IDENTIFICATION DIVISION.
PROGRAM-ID. DATEPGM.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WKAREA.
05 LEN PIC S9(4) USAGE IS COMP.
05 ERR-CODE PIC S9(8) COMP.
05 GETDATE PIC S9(15) COMP-3. /*该变量用于接受日期数据*/
05 DATEOUT PIC X(10). /*该变量用于接受日期格式,并输出日期信息*/
01 INAREA.
05 TRANID PIC X(4).
05 FILLER PIC X.
05 REQUEST PIC X(4).
01 MSG PIC X(80).
*
PROCEDURE DIVISION.
MOVE 9 TO LEN.
EXEC CICS RECEIVE INTO(INAREA)
LENGTH(LEN)
RESP(ERR-CODE)
END-EXEC