徹底解説！一歩先を行くCOBOLと他言語の連携について｜応用ガイド

COBOL(コボル)言語と他言語のプログラムを連携するには

応用-他言語の連携-イメージ

COBOL(コボル)言語と他言語の連携の必要性とは

COBOL言語ではさまざまな業務用のアプリケーションを作成することができますが、システムの規模や使用するハードウェアによっては、他言語との連携が必要な場合があります。

たとえば、CやJavaで記述されたプログラムをCOBOLから呼出して必要なデータを処理したり、COBOLで作成されたプログラムを他言語から呼び出すこともあります。

そのため、他言語間での連携を実現するために、COBOLでは他言語と連携する機能が用意されています。

COBOL(コボル)とC言語を連携する方法

ここではCOBOLとC言語を連携する方法について解説します。

COBOLは、他言語の中でも特にC言語と連携することが多く、頻繁に相互間で呼出しを行うこともあります。

COBOLからC言語の関数を呼び出す場合は、CALL文を使用します。

CALL文はCOBOLの副プログラムを実行する場合に主に使用されますが、関数名を指定することにより、他言語の関数を呼出して実行することが可能です。

COBOL側で関数を呼び出す場合は、関数名と他言語側で処理する関数名が一致している必要があります。

引数を渡すときはCALL文のUSING指定のあとに引数を指定します。引数指定時は、C言語の関数で定義した引数の数と一致した数の引数を指定する必要があります。

■書式1

CALL "関数名" USING 値1 ….

■書式2

値渡しの場合はUSING指定のあとにBY VALUE等を指定する必要があります。

CALL "関数名" USING BY VALUE 値1 ….

COBOLプログラムの記述例：

応用-他言語の連携-記述例1

C言語プログラムの記述例：

応用-他言語の連携-記述例2

COBOL側とC言語側で関数名の一致及び、引数の数は合わせておきます。

また、C言語と連携するには後述する同時コンパイルでオブジェクトファイルを作成する必要があります。

個別にコンパイルして、COBOL側からCALL文でC言語の関数を呼出してもエラーとなりますので注意しましょう。

■プログラム例

ここで紹介するプログラムはCOBOL側でC言語に渡す値を設定し、CALL文で設定した値をC言語の関数の引数に指定して呼出します。

C言語側のプログラムでは、COBOLから渡された値を元に演算を行い、結果を出力します。

sample_cob.cob

IDENTIFICATION     DIVISION.
PROGRAM-ID.       sample_cob.
ENVIRONMENT        DIVISION.
DATA               DIVISION.
WORKING-STORAGE SECTION.
 
*>Cプログラムに渡す値の定義
01  WORK-NUM.
 03 NUM-1 PIC 9(2) COMP-5.
 03 NUM-2 PIC 9(2) COMP-5.
 
PROCEDURE DIVISION.
DISPLAY "COBOL PROGRAM START".
 
*>C言語に渡す値の設定
MOVE 10 TO NUM-1.
MOVE 20 TO NUM-2.
 
*>C言語の関数の呼出し
CALL "sample_c" USING BY VALUE NUM-1 NUM-2.
 
DISPLAY "COBOL PROGRAM STOP".
STOP RUN.

sample_c.c

#include 
 
//計算を行う関数
int sample_c(int num1, int num2)
{
 printf("C PROGRAM START¥n");
 
 //COBOLプログラムから渡された引数を元に計算を実施
 int sum;
 sum =  num1 + num2;
 printf("sum = %d¥n", sum);
 
 printf("C PROGRAM END¥n");
 
 return 0;
}