COBOL言語の「SAME句」を使ってファイル領域を活用しよう! | 用語辞典
COBOL(コボル)言語の予約語SAME句を使った命令文の書き方とは
COBOL(コボル)言語のSAME句とは?
SAME句で指定した複数のファイルは、ファイルの読み込みやファイル操作中などの処理時にメモリを共有することができます。
SAME句は、昔の基幹業務システムなどに用いられた汎用機のスペックが低かった時代に、ファイル領域を複数ファイルで共用して、限られたリソースを節約するために使われた機能です。
しかし、現在ではSAME句を使用する機会はほとんどありません。
書き方1:
SAME RECORD AREA FOR ファイル名1 [ファイル名2] …
書き方2:
SAME [SORTまたは、SORT-MERGE] AREA FOR ファイル名1 [ファイル名2] …
書き方3:
SAME AREA FOR ファイル名1 [ファイル名2] …
SAME句はI-O-CONTROL(入出力管理段落)に記述し、2つ以上のファイルを指定します。
RECORDを指定すると、現在のレコードを処理するための記憶領域が、SAME句で指定した他のファイルと共用されます。
SORTまたはSORT-MERGEを指定すると、整列併合ファイルでない2つ以上のファイルを処理中に、同じ記憶領域を共用できます。
また、SAME AREA句において、SAME SORTとSAME SORT-MERGEは同義語となります。
使用例:
行順編成の3つのファイルを、SAME句を使用して共用したい場合は、以下のように記述します。
SAME句は必ずI-O-CONTROL(入出力管理段落)に記述する必要があります。
SAME句のCOBOL(コボル)言語における基本事項やルールについて
- SAME RECORD AREA FOR ファイル名などの間の空白や改行は、自由に指定できます。
- 各ファイル名はSAME句と同じブログラムのFILE-CONTROL(ファイル管理段落)に記述する必要があります。
- SAME句はプログラム中に2つ以上指定することができます。
- SAME RECORD AREA句、又はSAME AREA句で指定するファイルは、同じ編成、呼出し法でなくても構いません。
- SAME RECORD AREA句で指定されたファイルは、同時にいくつでもファイルを開くことができます。しかし、SAME AREA句で指定されたファイルは、同時に2つ以上開いておくことはできません。
- WRITE文またはREWRITE文の実行が成功すると、そのレコードはレコード領域中で使用不可となりますが、対象のファイルがSAME RECORD AREA句で指定されていた場合は、レコードが使用不能なることはありません。
COBOL(コボル)言語のSAME句を扱う上での注意点
- SAME句で指定したファイル名は外部結合子を参照してはいけません。
- SAME AREA句では、並列併合用ファイルを指定することはできません。
- ファイル名は予約語または定数、利用者名を指定することができません。
- 同じファイル名を2つ以上SAME RECORD AREA句に記述してはいけません。
- 同じファイル名を2つ以上SAME AREA句に記述してはいけません。
※同じファイル名を指定した場合、以下のように複数参照のコンパイルエラーが発生します。
コンパイルエラー
SAME句を使ったCOBOL(コボル)プログラムの活用法
SAME句を使用すれば、異なるファイル間で記憶領域を共用し、リソースを節約することができます。
また、SAME句はI-O-CONTROL(入出力管理段落)中に複数記述することができます。
以下に通常のファイルと、ソート用ファイルをそれぞれSAME句で指定したサンプルを紹介します。
(プログラムの詳細な処理内容については、ここでは省略します)
- IDENTIFICATION DIVISION.
- PROGRAM-ID. SAME_SAMPLE.
- ENVIRONMENT DIVISION.
- INPUT-OUTPUT SECTION.
- *>ファイル管理段落
- FILE-CONTROL.
- SELECT SORT-FILE-1 ASSIGN TO 'sort1.txt'
- ORGANIZATION IS LINE SEQUENTIAL
- STATUS IS IN-FIlE-STATUS.
- SELECT SORT-FILE-2 ASSIGN TO 'sort2.txt'
- ORGANIZATION IS LINE SEQUENTIAL
- STATUS IS IN-FIlE-STATUS.
- SELECT KOJUN-FILE ASSIGN TO 'kojun.txt'
- ORGANIZATION IS LINE SEQUENTIAL
- STATUS IS IN-KOJUN-STATUS.
- SELECT SHOJUN-FILE ASSIGN TO 'shojun.txt'
- ORGANIZATION IS LINE SEQUENTIAL
- STATUS IS IN-SHOJUN-STATUS.
- SELECT SORT-FILE ASSIGN TO 'sort.wak'.
- SELECT WORK-FILE-1 ASSIGN TO 'work1.txt'
- ORGANIZATION IS LINE SEQUENTIAL.
- SELECT WORK-FILE-2 ASSIGN TO 'work2.txt'
- ORGANIZATION IS LINE SEQUENTIAL.
- SELECT WORK-FILE-3 ASSIGN TO 'work3.txt'
- ORGANIZATION IS LINE SEQUENTIAL.
- *>入出力管理段落
- I-O-CONTROL.
- SAME RECORD AREA FOR WORK-FILE-1 WORK-FILE-2 WORK-FILE-3
- SAME SORT AREA FOR SORT-FILE-1 SORT-FILE-2.
- 省略...
- STOP RUN.
サンプルで紹介したように、I-O-CONTROL(入出力管理段落)でSAME句を記述しておけば、指定されたファイルは、ファイル処理において記憶領域が共用されることになります。
しかし、現在では汎用機のメモリも大容量化しているため、SAME句を使用する頻度は少ないと言えます。
ただし、SAME句の使用はシステムの規模が大きく、頻繁に複数のファイル処理が同時並行で行われるプログラムに対して指定すれば、多少のリソースの節約になるかもしれません。
この記事を読んだ人は、こちらの記事も読んでいます
【未経験者歓迎】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つのヒント|学習講座