「処理パターン(３) テーブルの利用」をメインプログラムとサブプログラムの二つに分割する。サブプログラムでは、前処理で行っていた顧客マスターファイルの読み込みとテーブル展開を行う。メインプトグラムは前処理でサブプログラムを呼び出し、戻り値として顧客マスターテーブルを受け取る。（分割する意味はあまりなさそうだが、サブプログラムの説明の一例として挙げてみる。）

COBOLでは、ソースファイルがコンパイル単位となり、そこから一つの実行ファイルが作成される。サブプログラムもこの一種である。プログラムを呼び出すには PROGRAM-IDを指定して CALL文を実行する。

引数と戻り値

メインプログラムとサブプログラムのデータの受け渡しは、メインプログラムでデータを格納するメモリ領域を確保し、その参照（アドレス）をサブプログラムに渡すという方法をとる。メイン側でデータをセットすればプログラムの引数に、サブ側でセットすれば戻り値になるわけである。

WORKING-STORAGE SECTIONにサブプログラムに引き渡す変数を定義し、サブプログラムを呼び出す CALL文の USING句に指定する。デフォルトでは変数の受け渡しは参照渡し（BY REFERENCE）となる。（BY CONTENTを指定すれば変数を値渡しにすることができる）

サブプログラムで　RERURN-CODE変数（予約語、グローバル変数の一種）に値をセットすると、メインプログラムの CALL文　GIVING句に指定した変数に値が渡る。狭義にはこれが戻り値であるが、数値しか扱えないので、一般的にはコンディションコードとして利用する。

顧客マスターの検索処理

メインプログラムに展開されている顧客マスターテーブルを検索する。このコードは 「処理パターン(３) テーブルの利用 と全く同じである。

LINKAGE　SECTIONに、呼び出し元との間で受け渡すデータの領域を定義する。これは、メインプログラムの CALL文の USING句に指定したインタフェース領域と等しくなくてはいけない。

PROCEDURE DIVISIONには、LINKAGE　SECTIONに定義した変数を USING句で指定する。処理終了後は、GOBACK文により制御を呼び出し元に返す。

GnuCOBOL Manual