COBOLの学習5日目 - (参照:COBOL入門 Mission2 - 時間を

COBOLの動かし方
  1. OpenCOBOL Master(OpenCOBOL 学習キット)(試用は無料)をダウンロードしてインストールする
  2. OpenCOBOL Masterを起動させる。
  3. 登録ボタンを押す。
  4. OKボタンを押す。
  5. 起動したエディタにCOBOLソースコードをコピーする。
  6. SAVEボタン(左から3番目)を押す。
  7. 保存する(テキトーな名前でテキト―な場所に)。
  8. BUILDボタン(右から4番目)を押す。
  9. RUNボタン(右から3番目)を押す。
  10. 実行成功 (゜∀゜ )!!!
CNT002.cob:13: numeric entry cannot be larger than 18 digits
COMPUTE
abnormal program termination


ソースコード(参照:COBOL入門 Mission2 - 時間を取り込んでみよう模範プログラム CNT002)

***見出し部(プログラムの名前などを記述する)*****

IDENTIFICATION DIVISION.
PROGRAM-ID. DSP001. *>プログラムの名前を書く

****データ部(プログラムで使用するデータ項目について記述する)*****

DATA DIVISION. *>データ部の宣言

作業場所節(データ処理の途中結果を入れるための場所を定義する)**

WORKING-STORAGE SECTION. *>作業領域節の宣言
01 CNT PIC 9(5) VALUE 0.
01 WTIME. *>作業用
03 HH PIC 9(2).
03 MM PIC 9(2).
03 SS PIC 9(2).
01 STIME PIC 9(8) VALUE 0. *>始業時間
01 ETIME PIC 9(8) VALUE 0. *>終業時間
01 XTIME PIC 9(8) VALUE 0. *>所要時間を求めるための計算作業用

****手続き部(実際のプログラム(命令語)を記述する)*****

PROCEDURE DIVISION.