获取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.