精通COBOL－－16.3.7 获取CICS的日期信息

　　获取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
IF ERR-CODE = DFHRESP(LENGERR)
MOVE ‘INPUT DATA TOO LONG: MAX IS 9 CHARS’
TO MSG
EXEC CICS SEND CONTROL CURSOR(1760)
END-EXEC
EXEC CICS SEND FROM(MSG)
LENGTH(40)
END-EXEC
EXEC CICS RETURN END-EXEC.
IF REQUEST = ‘DATE’
EXEC CICS ASKTIME ABSTIME(GETDATE)
END-EXEC
EXEC CICS FORMATTIME ABSTIME(GETDATE)
DATESEP
YYYYMMDD(DATEOUT)
END-EXEC
STRING ‘DATE IS: ‘ DATEOUT
DELIMITED BY SIZE INTO MSG
EXEC CICS SEND CONTROL CURSOR(80)
END-EXEC
EXEC CICS SEND FROM(MSG)
LENGTH(20)
END-EXEC
EXEC CICS RETURN END-EXEC.
GOBACK.
以上程序中，将日期的输出格式设置为了“YYYYMMDD”。其中“YYYY”代表4位数字的年份，“MM”代表2位数字的月份，“DD”代表2位数字的日期。在CICS TS版本中，一共支持以下几种日期输出格式：
q YYYYMMDD
q YYYYDDMM
q DDMMYYYY
q MMDDYYYY
q YYYYDDD
需要注意的是，最后一种格式使用“DDD”表示该日期在一年中的绝对天数。例如，对于平年的12月31日，此处使用“365”进行表示。
最后，以下这段程序综合了终端信息、时间信息、日期信息的获取与输出。将该程序连接到相应交易后，用户便可利用这一个交易，通过输入不同的请求而得到不同的信息。该程序代码如下：
IDENTIFICATION DIVISION.
PROGRAM-ID. MIXPGM.
*
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 TSTAMP PIC S9(15) COMP-3.
05 TIMEOUT PIC X(8).
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
IF ERR-CODE = DFHRESP(LENGERR)
MOVE ‘INPUT DATA TOO LONG: MAX IS 9 CHARS’
TO MSG
EXEC CICS SEND CONTROL CURSOR(1760)
END-EXEC
EXEC CICS SEND FROM(MSG)
LENGTH(40)
END-EXEC
EXEC CICS RETURN END-EXEC.
*
IF REQUEST = ‘TERM’
STRING ‘TERMINAL ID IS: ‘ EIBTRMID
DELIMITED BY SIZE INTO MSG
PERFORM 100-OUTPUT-RESULT
EXEC CICS RETURN END-EXEC.
*
IF REQUEST = ‘TIME’
EXEC CICS ASKTIME ABSTIME(GETTIME)
END-EXEC
EXEC CICS FORMATTIME ABSTIME(GETTIME)
TIMESEP
TIME(TIMEOUT)
END-EXEC
STRING ‘TIME IS: ‘ TIMEOUT
DELIMITED BY SIZE INTO MSG
PERFORM 100-OUTPUT-RESULT
EXEC CICS RETURN END-EXEC.
*
IF REQUEST = ‘DATE’
EXEC CICS ASKTIME ABSTIME(GETTIME)
END-EXEC
EXEC CICS FORMATTIME ABSTIME(GETTIME)
DATESEP
DDMMYYYY(DATEOUT)
END-EXEC
STRING ‘DATE IS: ‘ DATEOUT
DELIMITED BY SIZE INTO MSG
PERFORM 100-OUTPUT-RESULT
EXEC CICS RETURN END-EXEC.
GOBACK.
100-OUTPUT-RESULT.
EXEC CICS SEND CONTROL CURSOR(80)
END-EXEC
EXEC CICS SEND FROM(MSG)
LENGTH(20)
END-EXEC.