COBOLの学習7日目（参照:COBOL入門 条件命令 -Ｍｉｓｓｉｏｎ２ →

CNT003.cob:29: warning: more warnings inhibited

CNT003.cob:8: syntax error, unexpected LITERAL, expecting EXTERNAL or GLOBAL

CNT003.cob:9: group item `CNT' cannot have PICTURE clause
CNT003.cob:9: warning: alphanumeric value is expected
CNT003.cob:17: numeric identifier is expected `CNT'

ソースコード（参照:COBOL入門　条件命令 -Ｍｉｓｓｉｏｎ２ → サンプルCNT003）

IDENTIFICATION DIVISION.
PROGRAM-ID. CNT003.

*

DATA DIVISION.
WORKING-STORAGE SECTION.
01 CNT PIC 9(04) VALUE 0.
01 CNT1 PIC 9(02) VALUE 0.
01 WTIME.
03 HH PIC 9(02).
03 MM PIC 9(02).
03 SS PIC 9(02).
01 STIME PIC 9(06) VALUE 0.
01 ETIME PIC 9(06) VALUE 0.
01 XTIME PIC 9(06) VALUE 0.

*

PROCEDURE DIVISION.

ACCEPT WTIME FROM TIME *>WTIMEに開始時刻を取得
COMPUTE STIME = (HH * 3600) + (MM * 60) + SS *> 開始時刻を秒換算