精通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)