精通COBOL－－16.3.6 获取CICS的时间信息

 

　　获取CICS的时间信息也是关于CICS的一项最基本的应用。该应用主要分为两步操作。其中第一步是通过ASKTIME得到时间的数据。第二步是通过FORMATTIME得到时间的格式。例如，以下代码将根据用户的请求而获得相应的时间信息：

IDENTIFICATION  DIVISION.

PROGRAM-ID.  TIMEPGM.

*

 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   GETTIME     PIC  S9(15)  COMP-3.            /*该变量用于接受时间数据*/

     05   TIMEOUT     PIC  X(8).                       /*该变量用于接受时间格式，并输出时间信息*/

 01  INAREA.

     05   TRANID      PIC   X(4).

     05   FILLER       PIC   X.

     05&n