如何计算COBOL85串列中的自定义时间戳？

Question

我想计算自定义日期和时间的时间戳。2022 4:30:45

Answer 1

要计算当前日期和时间的朱利安时间戳，可以使用JULIANTIMESTAMP输入TAL，但是对于自定义时间戳，我们有COMPUTETIMESTAMP GPC。

GPC参考手册中的语法

jval := COMPUTETIMESTAMP ( date-n-time,
                           [error-mask] );

数据类型

jval是64位固定的朱利安时间戳。

date -n- time 是一个包含日期和时间的整数数组，包括YYYY、MM、DD、HH、MM、SS、MIL、MIC所有的数组都是必需的.

错误掩码是长度为8的位1或0的整数数组.

因此，让我们跳到一个主要问题，如何在COBOL85中计算自定义时间戳。我有个小例子。

?ANSI
 ?save param
 ?symbols
 ?inspect
         IDENTIFICATION DIVISION.
             PROGRAM-ID. HELLO.

         ENVIRONMENT DIVISION.

         DATA DIVISION.
             WORKING-STORAGE SECTION.
                 01 USER-FLD-CUST  PIC X(50).
                 01 ARR.
                    03 DT          PIC S9(4) COMP OCCURS 8 TIMES.
                 01 VAL            PIC 9(16).
                 01 JTIME          PIC S9(18) VALUE 0.
                 01 CER.
                    03 ERR         PIC S9(1) COMP OCCURS 8 TIMES.


         PROCEDURE DIVISION.
             PROGRAM-BEGIN.
             MOVE 2022 TO DT(1).
             MOVE 99   TO DT(2).
             MOVE 30   TO DT(3).
             MOVE 10   TO DT(4).
             MOVE 00   TO DT(5).
             MOVE 00   TO DT(6).
             MOVE 000  TO DT(7).
             MOVE 000  TO DT(8).

             ENTER TAL "COMPUTETIMESTAMP" USING ARR , CER
                        GIVING JTIME.
             IF JTIME = -1
                 DISPLAY "INVALID DATE"
             ELSE
                 DISPLAY JTIME.
             STOP RUN.