COBOLについて議論している人たちがいる。
議論している暇があったらCOBOL動かそう。
とても楽しい。
４０年前と比べたら地獄と天国。
JavaScriptを勉強しはじめた。COBOLみたいなもんだと思った。COBOLは出力を設計し、入力との論理関係を記述する言語。
JavaScriptが書ける人で、英語が嫌いじゃない人は、90%の確率でCOBOLが３時間で書けるようになると思った。
ゼロから始めるJavaScript。英語のYoutubeで勉強しようと思った。初日。
https://qiita.com/kaizen_nagoya/items/15b222be5bfe7f26979a
COBOLがない計算機の前に座って、40年ぶりにCOBOL動かした。
お題は、
Beginning COBOL for Programmers
https://www.apress.com/jp/book/9781430262534
githubにソースがある。
https://github.com/Apress/beg-cobol-for-programmers
<この項は書きかけです。順次追記します。>
docker hubからの利用
下で導入したcobolのシステムをdocker hubからrunするだけで、もうあなたはCOBOL World
なお、下記はMacosのdockerで、ユーザ名がwatashiの場合。Documentsの下でcobolというフォルダがある場合。
$ docker run -v /Users/watashi/Documents/cobol:/home/cobol -it kaizenjapan/cobol /bin/bash
/Users/watashi/Documents/cobol
のところは、自分が読み書きできる場所を指定してください。
COBOLを動かす場所まで移動して
pwd
コマンドを実行して、コピペするのが間違いない。
現在の知見
- 左側に行番号があってもなくてもよい。
- 行番号がない場合は、コンパイルオプションをつけないと空白またはタブが必要。
- 「cobc -x ソースファイル名」 で実行プログラムを作成できる。
- 「./実行プログラム名」 で実行できる。
- 上記２つをスクリプトにしてみる。
- 先頭にタブを入れるプログラムをcobolで作ってみる。(未着手)
- -freeをつければ左の行番号、空白、タブが要らない
- ファイルの読み込みで大文字小文字の違いでエラーになることあり。
ファイル名の大文字、小文字の違いでエラーになる場合
# ../co.sh Listing5-6
libcob: File does not exist (STATUS = 35) File : 'Listing5-6-TData.Dat'
# mv Listing5-6-TData.dat Listing5-6-TData.Dat
# ./Listing5-6
Teresa Casey 08712351 LM042
Padraig Quinlan 08712352 LM051
Kevin Tucker 08712353 LM051
Maria Donovan 08712354 LM042
Liam Lorigan 98712355 LM110
Fiachra Luo 98712356 LM051
プログラムの中のファイル指定を変更してもよい。
IDENTIFICATION DIVISION.
PROGRAM-ID. Listing5-6.
AUTHOR. Michael Coughlan.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT StudentFile ASSIGN TO "Listing5-6-TData.Dat"
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD StudentFile.
01 StudentDetails.
88 EndOfStudentFile VALUE HIGH-VALUES.
02 StudentId PIC X(8).
02 StudentName PIC X(25).
02 CourseCode PIC X(5).
PROCEDURE DIVISION.
Begin.
OPEN INPUT StudentFile
READ StudentFile
AT END SET EndOfStudentFile TO TRUE
END-READ
PERFORM UNTIL EndOfStudentFile
DISPLAY StudentName SPACE StudentId SPACE CourseCode
READ StudentFile
AT END SET EndOfStudentFile TO TRUE
END-READ
END-PERFORM
CLOSE StudentFile
STOP RUN.
SELECT StudentFile ASSIGN TO "Listing5-6-TData.Dat"
を
SELECT StudentFile ASSIGN TO "Listing5-6-TData.dat"
にしてもよい。
スクリプトにしてみる。
#!/bin/bash
cobc -x -free $1.cbl
./$1
ファイルとして作るには
cd ..
vi co.sh
iをおしてから、上記をコピペ
[esc]キーを押して
:wq
現在のフォルダにadd.cblというファイルがあり、co.shが一つしたのディレクトリにあれば
$ ../co.sh add
chap07
| Number | OK/ERROR |
|---|---|
| Listing 7-1 Reading the Employee file.cbl | E1->O |
| Listing 7-2 Reading the Employee file and displaying the records.cbl | O |
| Listing 7-3 Writing and Reading the Employee file.cbl | O |
| Listing 7-4 Displays the value of the gadgets in stock.cbl | E2 |
| Listing 7-5 Adds two records and then displays stock values again.cbl | E2 |
E1
In paragraph 'Begin':
Error: Unknown statement 'Listing'
No such file or directory
最後にListingとうい文字列のある行が付け加わっていた。
削除したらエラーは取れた。
E2:
Error: syntax error, unexpected $undefined, expecting "end of file"
No such file or directory
chap08
8-4
Listing8-4.cbl:32: Error: No previous data item of level 08
../co.sh: line 4: ./Listing8-4: No such file or directory
Listing8-4.cbl:36: Error: No previous data item of level 04
Listing8-4.cbl:32: Error: PICTURE clause required for 'MOBandDOB'
ファイル名が長いと
File does not exist (STATUS = 35)
8-5
ファイル名が長い。短くすると通った。
Chapter 9
9.2
# ../co.sh Listing9-2
Listing9-2.cbl:9: Error: syntax error, unexpected DATA
../co.sh: line 4: ./Listing9-2: No such file or directory
# cat Listing9-2.cbl
IDENTIFICATION DIVISION.
PROGRAM-ID. Listing9-2.
AUTHOR. Michael Coughlan.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
CURRENCY SIGN IS "?"
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Edit1 PIC ???,??9.99.
PROCEDURE DIVISION.
Begin.
MOVE 12345.95 TO Edit1
DISPLAY "Edit1 = " Edit1
STOP RUN.
7行目の最後にピリオドがない。CURRENCY SIGN IS "?"の後にピリオドを付け加えたらコンパイル通った。
# ../co.sh Listing9-2
Edit1 = ?12,345.95
9.3
# ../co.sh Listing9-3
Listing9-3.cbl:15: Error: Invalid picture string - '$$$,$$9.99'
Listing9-3.cbl:17: Error: Invalid picture string - '???,??9.99'
Listing9-3.cbl: In paragraph 'Begin':
Listing9-3.cbl:30: Error: 'PrnPoundValue' is not numeric or numeric-edited name
../co.sh: line 4: ./Listing9-3: No such file or directory
背景
日本でCOBOLが落ち目なのは、PCのCOBOLを真面目にやる人がすくなかったからだけだと思う。
座って１時間で、COBOLを導入し、ソースをもってきて、コンパイルして動かす。
30年ほど前に、マイクロソフトのカンファレンスでサンフランシスコ近郊に行った時には、PCでCOBOLうごかしている人たちいっぱいいた。
日本は当時、その１００倍以上する機材でうごかしていたような気がする。
富士通、日立ではPCのCOBOLやってた人もいた気がする。
私はPCでアセンブラ, BASIC, メインフレームでCOBL, FORTRAN, またPCに戻ってCと移って行ったのでPCでCOBOLは仕事ではうごかしていない。
COBOLは紙カードを打って、穴をあけてcodingしていた。
それを紙カードリーダにかける順番を待って、よみこんで、コンパイルして実行するのに、
それぞれの機材が混んでいると１日に午前と午後の２回しかコンパイルできないことも。
んで、エラーがあると、また紙カード打ち直して。紙カードリーダにかけて。
コンパイルの実行や、走らせるのを
JCL(Job Control Language)という、今で言うスクリプト言語で書いたものも、
紙カードでパンチしたり。あれ、何打ったかわすれちゃった。
１時間に１０回も２０回もコンパイルできる今とでは、地獄と天国だって。
100分の１の費用でできることを、やらずに下降線をたどるままに今日まで来たんだろうか。
動かすのが１時間、docker hubに登録するのが３０分。この資料の整理時間を入れて。１時間半の間に、お風呂にお湯をはったり、お湯をわかして緑茶を４杯飲んだりの雑用もこなして。
留意点
今回gitから持って来たソースは、前処理が２つ要る。
-
ファイル名がPCだと空白の処理がうまくできない場合がある。空白のない名前のファイルに移動(mv)。
-
行頭にtab もしくは行番号を入れる。そうしないとコンパイルエラーになることがある。
cobol文書
日本工業規格
JIS X3002：2011(ISO/IEC 1989：2002)電子計算機プログラム言語 COBOLInformation technology-Programming languages-COBO
http://kikakurui.com/x3/X3002-2011-01.html
ISO/IEC 1989:2014
https://www.iso.org/standard/51416.html
Information technology -- Programming languages, their environments and system software interfaces -- Programming language COBOL
Beginning COBOL
for Programmers
https://www.apress.com/jp/book/9781430262534
$ docker run -v /home/ogawakiyoshi/Documents/cobol/home/cobol -it ubuntu /bin/bash
# apt update; apt -y upgrade
# apt install open-cobol, vim, git
# git clone https://github.com/Apress/beg-cobol-for-programmers.git
IDENTIFICATION DIVISION.
PROGRAM-ID. ShortestProgram.
PROCEDURE DIVISION.
DisplayPrompt.
DISPLAY "I did it".
# cobc -x 'Listing 2-1 Shortest COBOL program.cbl'
Listing 2-1 Shortest COBOL program.cbl:1: Error: Invalid indicator 'F' at column 7
今日から始めるCOBOL（1/2）
http://blog.adjust-work.com/680/
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. SAMPLE-01.
000030*
000040 ENVIRONMENT DIVISION.
000050*
000060 DATA DIVISION.
000070*
000080 PROCEDURE DIVISION.
000090 MAIN.
000100 DISPLAY "Hello world!" UPON CONSOLE.
000110 STOP RUN.
# cobs -x hoge.cob
# ./hoge
Hello world!
行番号があっても大丈夫。
IDENTIFICATION DIVISION.
PROGRAM-ID. SAMPLE-01.
*
ENVIRONMENT DIVISION.
*
PROCEDURE DIVISION.
DISPLAY "I did it!".
行番号がなくても大丈夫。
# cobc -x Listing\ 2-3\ \ The\ DoCalc\ example\ program.cbl
gcc: error: 2-3: No such file or directory
gcc: error: The: No such file or directory
gcc: error: DoCalc: No such file or directory
gcc: error: example: No such file or directory
gcc: error: program: No such file or directory
root@266eec874239:/home/ogawakiyoshi/Documents/cobol/beg-cobol-for-programmers/978-1-4302-6253-4_Coughlan_Ch02# cobc -x 'Listing 2-3 The DoCalc example program.cbl'
gcc: error: 2-3: No such file or directory
gcc: error: The: No such file or directory
gcc: error: DoCalc: No such file or directory
gcc: error: example: No such file or directory
gcc: error: program: No such file or directory
# cp 'Listing 2-3 The DoCalc example program.cbl' docal.cbl
# cobc -x docal.cbl
# ./docal.cbl
Please enter two single digit numbers
1
2
Result is = 03
拡張子はcobでもcblでも大丈夫。
IDENTIFICATION DIVISION.
PROGRAM-ID. CobolGreeting.
*>Program to display COBOL greetings
DATA DIVISION.
WORKING-STORAGE SECTION.
01 IterNum PIC 9 VALUE 5.
PROCEDURE DIVISION.
BeginProgram.
PERFORM DisplayGreeting IterNum TIMES.
STOP RUN.
DisplayGreeting.
DISPLAY "Greetings from COBOL".
# cp 'Listing 2-2 The COBOL Greeting program.cbl' tcgp.cbl
# cobc -x tcgp.cbl
# ./tcgp.cbl
Greetings from COBOL
Greetings from COBOL
Greetings from COBOL
Greetings from COBOL
Greetings from COBOL
説明 01 Iternum PIC 9 VALUE 5.
が変数の定義と値を５で初期化
PERFORM DisplayGreeting IterNum TIMES.
で、IterNum回数DisplayGreetingルーチンを実行。
COBOLって、英語が読めればわかる言語。すごく簡単。COBOLERって職業いらない。英語がよみかきできれば計算して結果を出せる。
データの構造定義も楽。関数呼び出し風じゃないのが抵抗がある人はいるかも。英語は関数呼び出しじゃないからいいじゃん。
DATA DIVISION
PROCEDURE DIVISION
ってデータと処理が分離してあって構造的。
dockerに保存
うごかしているdockerとは別のPCのOSのコマンドプロンプトで
$ docker ps
CONTAINER ID IMAGE COMMAND CREATED STATUS PORTS NAMES
266eec874239 ubuntu "/bin/bash" About an hour ago Up About an hour ecstatic_easley
$ docker commit 266eec874239 kaizenjapan/cobol
sha256:2eaafd2ced044b906e15b2276e1fe5987b7202f4816065efd725cd3988bc7e98
$ docker push kaizenjapan/cobol
The push refers to repository [docker.io/kaizenjapan/cobol]
98f34bdd40b3: Pushed
27a216ffe825: Mounted from library/ubuntu
9e9d3c3a7458: Mounted from library/ubuntu
7604c8714555: Mounted from library/ubuntu
adcb570ae9ac: Mounted from library/ubuntu
latest: digest: sha256:dfaf8a3e5c910197465469fac68d35948dcabdc0341dccb668196599b5fd5bb3 size: 1363
参考資料(reference)
QiitaでもCOBOL
https://qiita.com/kaizen_nagoya/items/60596bad631956127cf8
help
# cobc --help
Usage: cobc [options] file...
Options:
--help Display this message
--version, -V Display compiler version
-v Display the programs invoked by the compiler
-x Build an executable program
-m Build a dynamically loadable module (default)
-std=<dialect> Compile for a specific dialect :
cobol2002 Cobol 2002
cobol85 Cobol 85
ibm IBM Compatible
mvs MVS Compatible
bs2000 BS2000 Compatible
mf Micro Focus Compatible
default When not specified
See config/default.conf and config/*.conf
-free Use free source format
-fixed Use fixed source format (default)
-O, -O2, -Os Enable optimization
-g Produce debugging information in the output
-debug Enable all run-time error checking
-o <file> Place the output into <file>
-b Combine all input files into a single
dynamically loadable module
-E Preprocess only; do not compile, assemble or link
-C Translation only; convert COBOL to C
-S Compile only; output assembly file
-c Compile and assemble, but do not link
-t <file> Generate and place a program listing into <file>
-I <directory> Add <directory> to copy/include search path
-L <directory> Add <directory> to library search path
-l <lib> Link the library <lib>
-D <define> Pass <define> to the C compiler
-conf=<file> User defined dialect configuration - See -std=
--list-reserved Display reserved words
--list-intrinsics Display intrinsic functions
--list-mnemonics Display mnemonic names
-save-temps(=<dir>) Save intermediate files (default current directory)
-MT <target> Set target file used in dependency list
-MF <file> Place dependency list into <file>
-ext <extension> Add default file extension
-W Enable ALL warnings
-Wall Enable all warnings except as noted below
-Wobsolete Warn if obsolete features are used
-Warchaic Warn if archaic features are used
-Wredefinition Warn incompatible redefinition of data items
-Wconstant Warn inconsistent constant
-Wparentheses Warn lack of parentheses around AND within OR
-Wstrict-typing Warn type mismatch strictly
-Wimplicit-define Warn implicitly defined data items
-Wcall-params Warn non 01/77 items for CALL params (NOT set with -Wall)
-Wcolumn-overflow Warn text after column 72, FIXED format (NOT set with -Wall)
-Wterminator Warn lack of scope terminator END-XXX (NOT set with -Wall)
-Wtruncate Warn possible field truncation (NOT set with -Wall)
-Wlinkage Warn dangling LINKAGE items (NOT set with -Wall)
-Wunreachable Warn unreachable statements (NOT set with -Wall)
-ftrace Generate trace code (Executed SECTION/PARAGRAPH)
-ftraceall Generate trace code (Executed SECTION/PARAGRAPH/STATEMENTS)
-fsyntax-only Syntax error checking only; don't emit any output
-fdebugging-line Enable debugging lines ('D' in indicator column)
-fsource-location Generate source location code (Turned on by -debug or -g)
-fimplicit-init Do automatic initialization of the Cobol runtime system
-fsign-ascii Numeric display sign ASCII (Default on ASCII machines)
-fsign-ebcdic Numeric display sign EBCDIC (Default on EBCDIC machines)
-fstack-check PERFORM stack checking (Turned on by -debug or -g)
-ffold-copy-lower Fold COPY subject to lower case (Default no transformation)
-ffold-copy-upper Fold COPY subject to upper case (Default no transformation)
-fnotrunc Do not truncate binary fields according to PICTURE
-ffunctions-all Allow use of intrinsic functions without FUNCTION keyword
-fmfcomment '*' or '/' in column 1 treated as comment (FIXED only)
-fnull-param Pass extra NULL terminating pointers on CALL statements
参考資料(reference)
そういえば弊社もCOBOL保守してるけど全然触ったこと無いなという人向け、COBOLを完全理解できる記事
https://qiita.com/e99h2121/items/47857957fd549c83b5cb
2020年はCOBOL元年なので1時間でHello Worldに挑戦
https://qiita.com/glassmonkey/items/695e0b021cdcb3092b98
オブジェクト指向言語じゃない、COBOLで依存性逆転の法則を実践してみる
https://qiita.com/madilloar/items/f5126dbd03f69b5b986c
自己参照(self reference)
QiitaでもCOBOL
https://qiita.com/kaizen_nagoya/items/60596bad631956127cf8
３大オブジェクト指向言語
https://qiita.com/kaizen_nagoya/items/36338b623a6a7cb81903
プログラミング言語教育のXYZ
https://qiita.com/kaizen_nagoya/items/1950c5810fb5c0b07be4
廃棄ソフトウェアまたは現在使っていないソフトウェア
https://qiita.com/kaizen_nagoya/items/ff5e76544e7e1015db9f
データサイエンティストの気づき!「勉強して仕事に役立てない人。大嫌い!!」『それ自分かも?』ってなった!!!
https://qiita.com/kaizen_nagoya/items/d85830d58d8dd7f71d07
一覧
物理記事 上位100
https://qiita.com/kaizen_nagoya/items/66e90fe31fbe3facc6ff
量子(0) 計算機, 量子力学
https://qiita.com/kaizen_nagoya/items/1cd954cb0eed92879fd4
数学関連記事１００
https://qiita.com/kaizen_nagoya/items/d8dadb49a6397e854c6d
統計(0)一覧
https://qiita.com/kaizen_nagoya/items/80d3b221807e53e88aba
言語・文学記事 １００
https://qiita.com/kaizen_nagoya/items/42d58d5ef7fb53c407d6
医工連携関連記事一覧
https://qiita.com/kaizen_nagoya/items/6ab51c12ba51bc260a82
自動車 記事 １００
https://qiita.com/kaizen_nagoya/items/f7f0b9ab36569ad409c5
通信記事１００
https://qiita.com/kaizen_nagoya/items/1d67de5e1cd207b05ef7
日本語（０）一欄
https://qiita.com/kaizen_nagoya/items/7498dcfa3a9ba7fd1e68
英語(0) 一覧
https://qiita.com/kaizen_nagoya/items/680e3f5cbf9430486c7d
転職(0)一覧
https://qiita.com/kaizen_nagoya/items/f77520d378d33451d6fe
仮説（0）一覧
https://qiita.com/kaizen_nagoya/items/f000506fe1837b3590df
Qiita(0)Qiita関連記事一覧（自分）
https://qiita.com/kaizen_nagoya/items/58db5fbf036b28e9dfa6
鉄道（０）鉄道のシステム考察はてっちゃんがてつだってくれる
https://qiita.com/kaizen_nagoya/items/26bda595f341a27901a0
安全（0）安全工学シンポジウムに向けて: 21
https://qiita.com/kaizen_nagoya/items/c5d78f3def8195cb2409
一覧の一覧( The directory of directories of mine.) Qiita(100)
https://qiita.com/kaizen_nagoya/items/7eb0e006543886138f39
Ethernet 記事一覧 Ethernet(0)
https://qiita.com/kaizen_nagoya/items/88d35e99f74aefc98794
Wireshark 一覧 wireshark(0)、Ethernet(48)
https://qiita.com/kaizen_nagoya/items/fbed841f61875c4731d0
線網（Wi-Fi）空中線(antenna)(0) 記事一覧
https://qiita.com/kaizen_nagoya/items/5e5464ac2b24bd4cd001
OSEK OS設計の基礎 OSEK(100)
https://qiita.com/kaizen_nagoya/items/7528a22a14242d2d58a3
Error一覧 error(0)
https://qiita.com/kaizen_nagoya/items/48b6cbc8d68eae2c42b8
プログラマによる、プログラマのための、統計(0)と確率のプログラミングとその後
https://qiita.com/kaizen_nagoya/items/6e9897eb641268766909
官公庁・学校・公的団体（NPOを含む）システムの課題、官（０）
https://qiita.com/kaizen_nagoya/items/04ee6eaf7ec13d3af4c3
「はじめての」シリーズ ベクタージャパン
https://qiita.com/kaizen_nagoya/items/2e41634f6e21a3cf74eb
AUTOSAR(0)Qiita記事一覧, OSEK(75)
https://qiita.com/kaizen_nagoya/items/89c07961b59a8754c869
プログラマが知っていると良い「公序良俗」
https://qiita.com/kaizen_nagoya/items/9fe7c0dfac2fbd77a945
LaTeX(0) 一覧
https://qiita.com/kaizen_nagoya/items/e3f7dafacab58c499792
自動制御、制御工学一覧（０）
https://qiita.com/kaizen_nagoya/items/7767a4e19a6ae1479e6b
Rust(0) 一覧
https://qiita.com/kaizen_nagoya/items/5e8bb080ba6ca0281927
小川清最終講義、最終講義（再）計画, Ethernet(100) 英語(100) 安全(100)
https://qiita.com/kaizen_nagoya/items/e2df642e3951e35e6a53
＜この記事は個人の過去の経験に基づく個人の感想です。現在所属する組織、業務とは関係がありません。＞
文書履歴(document history)
ver. 0.01 初稿 20190201 午後8時
ver. 0.02 docker hub登録 20190201 午後9時
ver. 0.03 留意点追記 20190201 午後20時ちょい前
ver. 0.04 スクリプト作成、-free、ファイル名の大文字小文字関係のエラー追記 20190203 午前
ver. 0.05 chap07 ファイルエラー 20190203 夜
ver. 0.06 chap08 ファイル名の長さ 20190203 深夜
ver. 0.07 書籍紹介 20190206 午前
ver. 0.08 表題追記 20190514
ver. 0.09 一部加筆 20190515
ver. 0.10 URL追記 20210615
ver. 0.11 加筆 20220527
ver. 0.12 @R2-2021 さんのコメントでのご指摘にもとづき訂正。20220604
ver. 0.13 ありがとう追記 20230423
最後までおよみいただきありがとうございました。
いいね 💚、フォローをお願いします。
Thank you very much for reading to the last sentence.
Please press the like icon 💚 and follow me for your happy life.
