COBOLにてシステム時刻を

COBOL（OPEN）にてシステム時刻を取得するコード
を作成したいのですがうまく作成できません。
誰か教えてください。

行動規範の内容に同意します

回答1件

ベストアンサー

システム時刻は

lang
1ACCEPT [システム時刻を格納する変数] FROM TIME.

で取得することができます。

形式は10進数8桁の整数で、HHMMSSmm
（HH : 時（0～23） / MM : 分（0～59） / SS : 秒（0～59） / mm : 100分の1秒（0～99））
となっています。

参考までに、先ほどのACCEPT文で取得した時刻の値から、時・分・秒を求めて表示するプログラムを載せておきますね。

lang
1       IDENTIFICATION DIVISION.
2       PROGRAM-ID. systime.
3
4       DATA DIVISION.
5       WORKING-STORAGE SECTION.
6      
7      * 現在の時刻を格納するためのデータ群です。
8       77 STIME PIC 9(8).
9       01 NOW.
10           03 NHOUR PIC 9(2).
11           03 NMIN PIC 9(2).
12           03 NSEC PIC 9(2).         
13
14       PROCEDURE DIVISION.
15       MAIN.
16      * 現在の時刻を取得します。
17      * 形式: HHMMSSmm
18      * ※ HH : 時（0～23） / MM : 分（0～59） / SS : 秒（0～59） / mm : 100分の1秒（0～99）
19           ACCEPT STIME FROM TIME.
20
21           DISPLAY "STIME = ", STIME UPON CONSOLE.
22
23           DIVIDE 1000000 INTO STIME GIVING NHOUR REMAINDER STIME.
24           DIVIDE 10000 INTO STIME GIVING NMIN REMAINDER STIME.
25           DIVIDE 100 INTO STIME GIVING NSEC REMAINDER STIME.
26
27           DISPLAY "Now Time: ", NHOUR, "時", NMIN, "分", NSEC, "秒" 
28           UPON CONSOLE.
29
30           STOP RUN.