COBOL use timestamp

关注

原创最新推荐文章于 2026-07-16 16:33:47 发布 1k 阅读 AI 写同款· GEO 优化 ›

精通COBOL－－16.3.6 获取CICS的时间信息　　获取CICS的时间信息也是关于CICS的一项最基本的应用。该应用主要分为两步操作。其中第一步是通过ASKTIME得到时间的数据。第二步是通过FORMATTIME得到时间的格式。例如，以下代码将根据用户的请求而获得相应的时间信息：IDENTIFICATION DIVISION.PROGRAM-ID. TIMEPGM.* ENVIRONMENT DIVISION.* 阅读详情

Display timestamp in COBOL.

Program Sample:

       IDENTIFICATION DIVISION.
       PROGRAM-ID. TESTTIMESTAMP.
       ENVIRONMENT DIVISION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
        01 WS-CURRENT-DATE-DATA.
           05  WS-CURRENT-DATE.
               10  WS-CURRENT-YEAR         PIC 9(04).
               10  WS-CURRENT-MONTH        PIC 9(02).
               10  WS-CURRENT-DAY          PIC 9(02).
           05  WS-CURRENT-TIME.
               10  WS-CURRENT-HOURS        PIC 9(02).
               10  WS-CURRENT-MINUTE       PIC 9(02).
               10  WS-CURRENT-SECOND       PIC 9(02).
               10  WS-CURRENT-MILLISECONDS PIC 9(02).
               10  WS-GMT-SIGN             PIC X(01).
               10  WS-GMT-TIME             PIC X(04).
*     *(NOTE:  WS-GMT-SIGN AND WS-GMT-TIME IS GREENWICH MEAN TIME OFFSET)

       PROCEDURE DIVISION.
           MOVE FUNCTION CURRENT-DATE to WS-CURRENT-DATE-DATA.
           DISPLAY WS-CURRENT-DATE-DATA.

           STOP RUN.

Execution Result:

2015070620042585-0700

means: 2015-07-06 20:04:25.85 (GMT-7)

The milliseconds fields can be 00-99, so its minimum unit is 10 milliseconds.

Refer to:

http://documentation.microfocus.com/help/index.jsp?topic=%2Fcom.microfocus.eclipse.infocenter.studee60win%2FHRLHLHPDF709.html

收录于