COBOL言語の「EXTERNAL句」とファイルの外部属性について | 用語辞典
COBOL(コボル)言語の予約語EXTERNAL句を使った命令文の書き方とは
COBOL(コボル)言語のEXTERNAL句とは?
EXTERNAL句は、データ名やファイル名に外部属性を指定して、プログラム間で共用するときに使用します。ファイル記述項(FD)又は作業場所節のレコード記述項に記述することで、ファイルやデータを共用できます。また、ファイルやデータを共用するプログラムでは、ファイルとレコードの定義は完全に同一に記述する必要があります。
書き方1:ファイルに外部属性を指定する
FD [ファイル項目] IS EXTERNAL.
プログラム1:
プログラム2:
書き方2:データ項目に外部属性を指定する
01 [データ項目] PIC 99 EXTERNAL.
EXTERNAL句のCOBOL(コボル)言語における基本事項やルールについて
- ファイル項目 IS EXTERNAL.などの各要素間における空白や改行有無は自由に設定できます。
- ファイルをEXTERNAL句で指定する場合は、ファイル記述項(FD)に指定します。
- データをEXTERNAL句で指定する場合は、作業場所節のレコード記述項に指定します。
- EXTERNAL句を指定したデータ項目は、レベル番号が01のデータ記述項のみ記述ができます。
- EXTERNAL句を指定したファイル数は、最大で255ファイルまでの範囲となります。
- EXTERNAL句を指定したデータ領域は、最大で32,767までのデータ領域の範囲となります。
- EXTERNAL句を指定した複数のプログラムは、別々のコンパイル単位であっても構いません。
COBOL(コボル)言語のEXTERNAL句を扱う上での注意点
- EXTERNAL句を指定したレベル番号01のデータ項目は、別のEXTERNAL句で指定したレベル番号01のデータ項目名と重複してはいけません。
- EXTERNAL句を指定したファイルとレコードの定義は、複数のプログラム間で完全に同一に記述する必要があります。差異があった場合はエラーになります。
- EXTERNAL句を指定したデータ記述項、またはデータ記述項に従属するデータ記述項にVALUE句を指定することはできません。
- ファイル数(255)またはデータ領域(32,767)が上限を超えた場合はエラーとなります。
EXTERNAL句を使ったCOBOL(コボル)プログラムの活用法
以下にEXTERNAL句を使用して、複数のプログラムでファイルを共用する簡単なサンプルプログラムを紹介します。
使用例:SAMPLEPG.cob
- IDENTIFICATION DIVISION.
- PROGRAM-ID. SAMPLEPG.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN TO 'test.txt'
- ORGANIZATION IS LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- *>外部ファイルとして指定する
- FD TEST-FILE IS EXTERNAL.
- 01 TEST-RECORD-1.
- 03 TEST-ITEM-1 PIC X(50).
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- MAIN SECTION.
- OPEN OUTPUT TEST-FILE.
- CALL "SUBPG01".
- CALL "SUBPG02".
- CLOSE TEST-FILE.
- STOP RUN.
使用例:SUBPG01.cob
- IDENTIFICATION DIVISION.
- PROGRAM-ID. SUBPG01.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN TO 'test.txt'
- ORGANIZATION IS LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- *>外部ファイルとして指定する
- FD TEST-FILE IS EXTERNAL.
- 01 TEST-RECORD-1.
- 03 TEST-ITEM-1 PIC X(50).
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- MOVE "SUBPG01 This is an EXTERNAL write test." TO TEST-RECORD-1.
- WRITE TEST-RECORD-1.
- DISPLAY "SUBPG01:FILE WRITE"
- GOBACK.
- EXIT PROGRAM.
使用例:SUBPG02.cob
- IDENTIFICATION DIVISION.
- PROGRAM-ID. SUBPG02.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- FILE-CONTROL.
- SELECT TEST-FILE ASSIGN TO 'test.txt'
- ORGANIZATION IS LINE SEQUENTIAL.
- DATA DIVISION.
- FILE SECTION.
- *>外部ファイルとして指定する
- FD TEST-FILE IS EXTERNAL.
- 01 TEST-RECORD-1.
- 03 TEST-ITEM-1 PIC X(50).
- WORKING-STORAGE SECTION.
- PROCEDURE DIVISION.
- MOVE "SUBPG02 This is an EXTERNAL write test." TO TEST-RECORD-1.
- WRITE TEST-RECORD-1.
- DISPLAY "SUBPG02:FILE WRITE"
- GOBACK.
- EXIT PROGRAM.
複数の関連するソースファイルをまとめてコンパイルする場合は、関連したファイルを一緒にコンパイルする必要があります。
$ cobc -x --free SAMPLEPG.cob SUBPG01.cob SUBPG02.cob
実行結果:(コンソール出力)
SUBPG01:FILE WRITE
SUBPG02:FILE WRITE
実行結果:(test.txt)
紹介したサンプルプログラムでは、ファイル記述項(FD)でファイルにEXTERNAL句を指定しています。
最初に実行するプログラムであるSAMPLEPGでは、EXTERNAL句を指定したファイルを書き込み可能なOUTPUTでオープンしています。
その後、CALL文で呼び出されるプログラムSUBPG01、SUBPG02では、EXTERNAL句を指定した共用ファイルに対して、書き込みを実施しています。
これはEXTERNAL句を指定したファイルを、既にSAMPLEPGでオープンしているため、個別にOPENを指定しなくても書き込みを行うことが可能です。
実行結果のとおり、SUBPG01、SUBPG02のプログラムからEXTERNAL句を使用した共用ファイルに対して、正常に書き込みが行われていることがわかります。
この記事を読んだ人は、こちらの記事も読んでいます
【未経験者歓迎】COBOLプログラマー・システムエンジニアの募集
COBOL入門のカテゴリー
1. 優良社員が多数在籍しています
2. 即日派遣、又は請負います
3. 安心価格で請負います
4. 同時、協力会社募集中です
1. 正社員
2. 契約社員
3. 個人事業主
などの 求人情報 が閲覧できます。
目指せ!COBOLダントツ一番企業。
創業当初の話や理念が閲覧できます。
応募条件
※2020年5月31日を以って、締切りました。
18歳~28歳の方。
正社員採用において、北川社長の著書『祈り方が9割』を読んで感想文を事前に提出すると、無条件で最終面接まで進むことができます。
COBOLとは、どのようなプログラミング言語なのか、初心者にもわかりやすく、文法の例をあげて解説してます。
COBOL入門の人気記事
- COBOL言語で計算処理をするなら「COMPUTE文」|入門用語辞典
- COBOL言語の「ACCEPT文」の使い方を分かり易く解説|入門用語辞典
- COBOL言語初心者も安心! 難解「CALL文」をスッキリ解決|入門用語辞典
- 徹底解説!一歩先を行くCOBOL言語のCOPY文活用法|応用ガイド
- 一歩先を行くCOBOL言語の表操作!逐次検索と二分検索|応用ガイド
- COBOL言語の加算処理の基本を伝授! 命令文「ADD」とは?|入門用語辞典
- 徹底解説!一歩先を行くCOBOL言語のファイル併合処理|応用ガイド
- COBOL言語でファイルの開閉命令はOPEN文とCLOSE文!|入門用語辞典
- 徹底解説!一歩先を行くCOBOL言語のデータ共有|応用ガイド
- COBOL言語とは?プログラムの書き方やルールを解説!|基礎ガイド
- COBOL言語の歴史とこれまでの進化を知る!廃止・追加機能|基礎ガイド
- COBOL言語のオブジェクト指向について理解しよう!|基礎ガイド
- COBOL言語のディスプレイ出力とコンソール入力について|基礎ガイド
- COBOL言語が得意とする計算処理を体験してみよう!|基礎ガイド
- 一歩先を行くCOBOL言語のユーザ定義関数について|応用ガイド
- 初心者から中級者でも安心!理解できるCOBOL言語の勉強法|学習講座
- 初心者必見!COBOL言語を効率よくマスターする勉強法とは|学習講座
- COBOL初心者が犯しやすいミスとその対策について|学習講座
- COBOL初心者がやってはいけない勉強方法とは?|学習講座
- 一歩先へ行くCOBOLプログラマの知っておくべき4つのヒント|学習講座