COBOL言語の「SHARING句」を活用してファイル共有をしよう｜用語辞典

COBOL(コボル)言語の予約語SHARING句を使った命令文の書き方とは

辞典・辞書-SHARING-イメージ

COBOL(コボル)言語のSHARING句とは？

COBOL(コボル)におけるSHARING句は、ファイルの共有及び共有時のレコードへのアクセス制限を行うときに指定します。

共有モードの指定は、SELECT句またはOPEN文のどちらかにSHARING句を記述します。

書き方:

SHARING WITH 共有モード

SHARING句における共有モードは「NO OTHER（排他モード）」「READ ONLY（読み取り専用モード）」「ALL OTHER（全てのユーザーと共有）」の3種類があります。

NO OTHER（排他モード）

ファイルの制御が排他的であることを示します。指定したファイルが他のプログラムでOPENした場合、排他ロックがかかり、ファイルのOPENは失敗します。

NO OTHERではレコードのロックは有効となりません。

READ ONLY（読み取り専用モード）

指定したファイルが、他のプログラムと同時にアクセスした場合に入力モードのみとなります。

READ ONLYではレコードのロックが有効となります。

ALL OTHER（全てのユーザーと共有）

他のプログラムと同じOPENモードを指定したファイルに対して、ファイル共有の制限モードに従ってファイルのアクセスを許可します。

ALL OTHERではレコードのロックは有効となります。

使用例:

ファイルのレコードの共有指定を行う簡単なサンプルを紹介します。

読み込むファイルは事前に用意しておきます。ここでは、行順編成のフラット形式で以下のように記述したレコードを使用します。

test.txt-------------------

AAAAA

BBBBB

CCCCC

DDDDD

----------------------------

辞典・辞書-SHARING-使用例

実行結果:

辞典・辞書-SHARING-実行結果

サンプルではSELECT句でファイルの共有をREAD ONLY（読み取り専用モード）で指定しています。

読み取り専用モードを指定しておけば、READ文のファイルを読み込むときに自動的にレコードがロックされるため、他のプログラムから同じファイルに対してレコードの書き込みができなくなります。

SHARING句のCOBOL(コボル)言語における基本事項やルールについて

SHARING WITH、共有モードなどの間の空白や改行は自由に指定できます。
SHARING句は「NO OTHER（排他モード）」「READ ONLY（読み取り専用モード）」「ALL OTHER（全てのユーザーと共有）」のいずれかを指定する必要があります。
SHARING句を指定してOPENされたファイルに対して、別のプログラムから同じファイルを実行した場合、モードによってはファイルのOPENが成功したり、失敗したりします。
OPEN文でWITH LOCK句を指定した場合は、共有モードが「WITH NO OTHER（排他モード）」となります。
SELECT句でLOCK句のEXCLUSIVE（排他ロック）を指定した場合は、共有モードが「WITH NO OTHER」となります。
LOCK句でAUTOMATIC（自動ロック）またはMANUAL（手動ロック）をSELECT句で指定した場合は、共有モードが「ALL OTHER（全てのユーザーと共有）」となります。
OPEN文でのモードがOUTPUT、I-O、EXTENDの場合は、共有モードが「WITH NO OTHER（排他モード）」となります。

COBOL(コボル)言語のSHARING句を扱う上での注意点

SHARING句はSELECT句でのファイル記述項と、OPEN文で記述することができますが、SELECT句とOPEN文で両方にSHARING句の記述があった場合、OPEN文での指定を優先してしまいます。

そのため、プログラムを担当者から引き継いだときなど、新たにSHARING句を使用する場合は、前担当者がOPEN文にSHARING句の記述をしていないか、確認する必要があります。

特にファイルを扱った複雑な処理ではファイル操作でOPEN文を多用しますので、注意が必要です。

以下のようにファイル記述項でSHARING句のREAD ONLYを、OPEN文でALL OTHERを指定した場合は、ALL OTHERが優先されます。

   FILE-CONTROL.
      SELECT TEST-FILE ASSIGN TO 'test.txt'
        ORGANIZATION IS LINE SEQUENTIAL
        SHARING WITH READ ONLY
 
... 
 
OPEN I-O SHARING WITH ALL OTHER TEST-FILE.

SHARING句を使ったCOBOL(コボル)プログラムの活用法

ファイルの共有・非共有をする上で、ファイルの競合を防ぐためにSHARING句は有効な手段です。

ここでは、SHARING句を使用して、実際に他のプログラムとファイル操作が競合したときの動作を紹介します。

以下のサンプルでは、sharing02-1.cobをループで1000000回書き込みを実施し、sharing02-2.cobではSHARING句のNO OTHER（排他モード）を指定して、書き込み処理を実行しています。

また、ここではプログラムの並列処理を実現するために、Unix/Linux系OSやMac OSで使用できる簡単なシェルスクリプトを実行して、動作を確認しています。

sharing02-1.cob:

IDENTIFICATION        DIVISION.
PROGRAM-ID.          SHARING_SAMPLE02-1.
ENVIRONMENT           DIVISION.
  INPUT-OUTPUT        SECTION.
 
 
  FILE-CONTROL.
    SELECT WORK-FILE ASSIGN TO 'work.txt'
      ORGANIZATION IS LINE SEQUENTIAL.
 
 
DATA               DIVISION.
  FILE            SECTION.
    FD WORK-FILE.
      01 OUT-FILE-REC     PIC 9(5). 
 
  WORKING-STORAGE         SECTION.
   01 LINE-COUNT       PIC 9(5) VALUE 0.
 
PROCEDURE             DIVISION.
 
*>------------------------------
*>  ファイルの書き込み
*>------------------------------
 
  OPEN OUTPUT WORK-FILE.
 
  *>1000000回ループする
  PERFORM 1000000 TIMES
    *>1を加算する
    ADD 1 TO LINE-COUNT
 
 
    MOVE LINE-COUNT TO OUT-FILE-REC
 
 
    WRITE OUT-FILE-REC
 
 
  END-PERFORM.
 
 
  CLOSE WORK-FILE.
 
 
  STOP RUN.

sharing02-2.cob:

IDENTIFICATION        DIVISION.
PROGRAM-ID.          SHARING_SAMPLE02-2.
ENVIRONMENT           DIVISION.
  INPUT-OUTPUT        SECTION.
 
 
  FILE-CONTROL.
    SELECT WORK-FILE ASSIGN TO 'work.txt'
      ORGANIZATION IS LINE SEQUENTIAL
      SHARING WITH NO OTHER.
 
 
DATA             DIVISION.
  FILE          SECTION.
     FD WORK-FILE.
       01 OUT-FILE-REC     PIC 9(5).
 
 
  WORKING-STORAGE         SECTION.
     01 LINE-COUNT       PIC 9(5) VALUE 6.
 
PROCEDURE             DIVISION.
 
*>------------------------------
*>  ファイルの書き込み
*>------------------------------
 
 
  OPEN EXTEND WORK-FILE.
 
 
  PERFORM 5 TIMES
    ADD 1 TO LINE-COUNT
 
    MOVE LINE-COUNT TO OUT-FILE-REC
 
    WRITE OUT-FILE-REC
 
  END-PERFORM.
 
 
  CLOSE WORK-FILE.
 
 
  STOP RUN.

sharing.sh:

#!/bin/sh
for i in `seq 10` 
do
 
./sharing02-2
sleep 1
echo $i
 
done

実行結果:

辞典・辞書-SHARING-実行結果

紹介したサンプルの確認手順として、sharing02-2を1秒間隔で10回繰り返すシェルスクリプトであるsharing.shを実行し、シェルスクリプト実行中にsharing02-1を実行します。sharing02-1は書き込み処理を1000000回繰り返すので、その間にsharing02-2の書き込み処理が入るとファイルの競合が発生して、SHARING句で指定した排他ロックがかかります。

その結果、実行結果のようにファイル共有の競合(STATUS = 61) のエラーが発生します。

この記事を読んだ人は、こちらの記事も読んでいます

【未経験者歓迎】COBOLプログラマー・システムエンジニアの募集

株式会社COBOLの求人・転職・募集情報を見る

COBOL入門のカテゴリー

｜　基礎　｜　応用　｜　勉強　｜　試験　｜　辞書　｜