COBOL use timestamp

最新推荐文章于 2025-04-29 10:58:24 发布

假装80后

最新推荐文章于 2025-04-29 10:58:24 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

分类专栏： COBOL

本文链接：https://blog.youkuaiyun.com/HiHui/article/details/52853098

COBOL 专栏收录该内容

30 篇文章

订阅专栏

本文介绍了一个简单的COBOL程序示例，用于获取并显示当前日期与时间的时间戳，包括年、月、日、小时、分钟、秒及毫秒，并解释了如何通过COBOL内置函数获取当前格林尼治标准时间的偏移。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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