PowerPoint プレゼンテーション

Size: px

Start display at page:

Download "PowerPoint プレゼンテーション"

りえことじ
4 years ago
Views:

1 ようこそ COBOL へ! 2018/08/17 伊東輝

2 COBOL とは? 1959 年に事務処理用に開発された手続き型言語でありソースコードの記述内容を上から順番に実行する言語である約 60 年前から存在する言語でありながら未だに基本情報処理技術者の午後試験に出題され金融系システム等のレガシーシステムでは現在も COBOL のプログラムが稼働している今回は COBOL のコーディングの基礎を発表する視聴者の方々がリファレンスを引いて自力で調べられるようになることを目的とする

3 漢は黙って HELLO WORLD! IDENTIFICATION DIVISION PROGRAM-ID. SAMPLE AUTHOR. A-ITO * ENVIRONMENT DIVISION * DATA DIVISION * *COMMENT! PROCEDURE DIVISION MAIN DISPLAY "HELLO WORLD!". COMMENT! STOP RUN. 実行結果 :SYSOUT( コンソール ) に HELLO WORLD! が出力される

4 DIVISION とは? COBOL のプログラムは下記の 4 つの DIVISION に分けて記述する IDENTIFICATION DIVISION プログラム名や作者等を記述する ENVIRONMENT DIVISION 入出力ファイルの情報等を記述する DATA DIVISION ワークエリア ( 変数 ) の定義を記述する PROCEDURE DIVISION ロジックを記述する

5 各カラムの記述内容 COBOL のソースコードは 80 カラム ( 列 ) で構成され各カラムで意味が異なる 1~6 カラム目 ( 一連番号領域 ) プログラム行を識別するための番号を記述する 7 カラム目 ( 標識領域 ) 通常は空白 * をつけるとその行はコメントになる 8~11 カラム目 (A 領域 ) 前ページで説明した ~DIVISION やワークエリアのレベル ( 後述 ) ラベル ( 後述 ) 等はここから書き出す 12~72 カラム目 (B 領域 ) ロジックはここに記述する 73~80 カラム目 ( プログラム識別領域 ) この領域に記述した内容はコメントとして扱われる

6 HELLO WORLD! で使用した命令 HELLO WORLD! では下記の命令を使用したラベル MAIN. これはラベルを示すラベル自体に意味はないが GOTO 文等で制御の飛ばし先を指定する際に使用する DISPLAY オペランド ( 変数や定数のこと ) で指定した文字列を SYSOUT( ホスト上のコンソール ) へ出力する STOP RUN プログラムを終了させる C や java で言うと Exit(0)

7 ピリオドの機能ピリオドは文の終わりを示す機能がある例えば IF 文の場合は下記のように最後の END-IF にピリオドを打つ ( 途中でピリオドを打つとコンパイルエラー ) IF FLAG = 1 THEN DISPLAY "HELLO WORLD!" END-IF. 下記のように最後の END-IF を省略してピリオドで止めても処理内容としては同じになるただしピリオドを打ち忘れると以降の処理は IF 文の中として扱われてしまう ( バグを生み出す要因となる ) IF FLAG = 1 THEN DISPLAY "HELLO WORLD!".

8 ファイル出力プログラムの例 (1/3) IDENTIFICATION DIVISION PROGRAM-ID. SAMPLE AUTHOR. A-ITO * ENVIRONMENT DIVISION INPUT-OUTPUT SECTION FILE-CONTROL SELECT F1 ASSIGN TO ASSIGNMENT-NAME * DATA DIVISION FILE SECTION FD F F1R F1-HELLO PIC X(05) FILLER PIC X(01) VALUE SPACE F1-WORLD PIC X(06) WORKING-STORAGE SECTION WK-CONSTANT WK-CON-HELLO PIC X(05) VALUE "HELLO" WK-CON-WORLD PIC X(06) VALUE "WORLD!".

9 ファイル出力プログラムの例 (2/3) * PROCEDURE DIVISION * * 各種処理の呼び出し * CONTROLLER-S PERFORM 100-START-S THRU 100-START-E PERFORM 200-MAIN-S THRU 200-MAIN-E PERFORM 300-END-S THRU 300-END-E STOP RUN CONTROLLER-E * * 前処理 * START-S INITIALIZE F1R OPEN OUTPUT F START-E.

10 ファイル出力プログラムの例 (3/3) * * 主処理 * MAIN-S MOVE WK-CON-HELLO TO F1-HELLO MOVE WK-CON-WORLD TO F1-WORLD WRITE F1 FROM F1R MAIN-E * * 後処理 * END-S CLOSE F END-E. 実行結果 :ASSIGNMENT-NAME で示したファイルに下記レコードが出力される HELLO WORLD!

11 ENVIRONMENT DIVISION の記述内容今回 ENVIRONENT DIVISION にて出力ファイルの定義を行った INPUT-OUTPUT SECTION FILE-CONTROL SELECT F1 ASSIGN TO ASSIGNMENT-NAME. INPUT-OUTPUT SECTION と FILE-CONTROL は入出力ファイルの定義を行う場合の見出しである今回の例で言う F1 は出力ファイル名を示しソースコード中ではこの名前を使用する ASSIGNMENT-NAME にはファイルの物理的な場所を示すパラメータを与えるどのような OS を使用しているかによってパラメータの与え方は異なりホストであれば JCL( ジョブ制御言語 ) で定義したパラメータを与える

12 DATA DIVISION の見出しと FD の説明 DATA DIVISION ではワークエリアの定義を行った FILE SECTION はファイル入出力に関するワークエリアの定義を行う場合の見出しであり WORKING-STORAGE SECTION は計算や文字列操作等を行う際に利用するワークエリアの定義を行う場合の見出しである FD F1. FD は入出力ファイルを読み書きするためのワークエリアであり今回の例ではこのワークエリアに書き込みを行うことで F1 ファイルへの出力が行われる

13 ワークエリアのレベル F1R F1-HELLO PIC X(05) FILLER PIC X(01) VALUE SPACE F1-WORLD PIC X(06). 01 や 03 はワークエリアのレベルを指す下位レベル (03) のワークエリアは上位レベル (01) の下位項目となるロジック中で上位レベルのワークエリアを参照すると下位項目のワークエリアが連結されたワークエリアとして扱われるなお FILLER は特別なワークエリア名でありソースコード中で何度でも定義できるがロジック中での参照はできない

14 ワークエリアのタイプと定数 F1R F1-HELLO PIC X(05) FILLER PIC X(01) VALUE SPACE F1-WORLD PIC X(06). ここで X は 1 バイトの文字タイプを指し X(05) は 5 バイトの文字列を意味する今回は使用していないが 9 は 1 バイトの数値タイプを指し数値計算をする際は 9 タイプを指定する必要がある他にもゼロサプレスを自動的に行うタイプや符号を自動的に付与してくれるタイプ等が存在するなお VALUE 句を使用することで定数として利用できる

15 PERFORM~THRU~ 文による制御 PERFORM 句でラベルを指定するとそのラベルに制御を飛ばすことができ THRU 句で指定したラベルに到達した時に呼び出し元に制御を戻すことができる他言語で言う関数の動きはこれで疑似的に実現できる PERFORM 100-START-S THRU 100-START-E. この例では 100-START-S のラベルの箇所へ処理を飛ばした後 100-START-E のラベルの箇所まで到達した際に呼び出し元へ戻るなお一般的に COBOL には構造化分析のデザイン手法が用いられるため PERFORM~THRU~ 文で前処理主処理後処理に 3 分割することが多い

16 前処理の内容の説明前処理ではワークエリア初期化やファイル等のオープンを行う INITIALIZE F1R OPEN OUTPUT F1. INITIALIZE 文ではワークエリアの初期化を行う X タイプのワークエリアには SPACE 9 タイプのワークエリアには 0 がセットされるが FILLER には初期化が適用されない OPEN 文はファイルオープンを行う入力ファイルに関しては INPUT 句出力ファイルに関しては OUTPUT 句を用いる

17 主処理の内容の説明主処理にはファイル読み込みやファイル書き込み及びビジネスロジックの記述を行う MOVE WK-CON-HELLO TO F1-HELLO MOVE WK-CON-WORLD TO F1-WORLD WRITE F1 FROM F1R. MOVE 文はワークエリアの代入を行うの行では WK-CON-HELLO の内容 ( HELLO ) を F1-HELLO へ代入している WRITE 文はファイルへの書き込みを行う書き込む内容は FROM 句で指定する今回の例では F1R のワークエリアの内容を F1 ファイルへ書き込んでいる

18 後処理の内容の説明後処理ではファイル等のクローズを行う CLOSE F1. CLOSE 文はファイルクローズを行うなお今回の例では記述していないが処理件数を SYSOUT 等へ出力する際は後処理で行うことが多い

19 ワークエリアは全てグローバル! COBOL のワークエリアは全てグローバル変数であり変数のスコープに相当する概念が存在しないことに注意が必要 COBOL では COPY 文を使用して複数のソースファイルを結合することができる一般的に複数のプログラムで使用する共通処理をソースファイルに外出しし COPY 文で結合するしかし共通処理内で定義しているワークエリアは呼び出し元のソースファイルから参照することができその逆もできるため影響範囲を限定することができない上記の仕様があるため COBOL で保守性を確保するためにはコーディングルールの整備と遵守が必要である

20 筆者が考える COBOL の利点 COBOL の一番の利点は固定長のファイルを入出力することが容易である点にあると思う特に帳票の出力は COBOL が圧倒的に楽だと感じるレコードの階層関係やタイプやバイト数がワークエリアの定義を見れば一目瞭然のため可読性が高いまたワークエリアの上位項目と下位項目を上手く定義できれば MOVE 文だけで文字列の結合分割が可能であるしゼロサプレスや符号の付与等の編集も処理を作りこむことなくワークエリアの定義だけで行うことができるなお他のサイトでは小数点以下の数値計算が他の言語よりも容易であるという意見が多い元々事務処理用に開発された言語であるため現在でも事務処理においては一定の合理性がある言語だと思う

21 ご清聴ありがとうございました

スクールCOBOL2002

スクールCOBOL2002 (h) 登録集原文の指定方法 . 登録集原文の指定方法複数の COBOL プログラムに共通の記述を別のソースファイルとしておき COPY 文で取り込むことができます登録集原文の概念図を下欄に示しますこのようにするとコーディング量を削減でき記述ミスもなくなるため開発効率を高めることができますここでは第章で実習した reidai.cbl というソースファイルの DATA0 と YYMMDD