19.1.2　CプログラムからCOBOLプログラムを呼び出す方法

(a)　引数をポインタ型で受け取る例

Cプログラム

int SAMPLE2(int *,char *);
    :
int SAMPLE1(....)
{
int  cnt;
char  str[80];
    :
  SAMPLE2(&cnt,str);
    :
  return(0);
}

COBOLプログラム

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SAMPLE2.
           :
       LINKAGE SECTION.
       01 CNT PIC S9(9) USAGE COMP.
       01 STR PIC X(80).
           　
       PROCEDURE DIVISION USING BY REFERENCE CNT STR.
           :

• CプログラムからCOBOLプログラムへ引数がアドレスによって渡された場合，COBOLプログラム内で受け取る引数にBY VALUEを指定してはいけません。

• COBOLプログラムは，Cプログラムから数字項目を受け取る場合，内部・外部10進項目，内部・外部浮動小数点数字項目などの数字属性を意識する必要があります。

(b)　引数を値渡しで受け取る例

Cプログラム

int  SAMPLE2(int,char);
int  SAMPLE1(....)
{
int  cnt;
char  str;
    :
  SAMPLE2(cnt,str);
    :
  return(0);
}

COBOLプログラム

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SAMPLE2.
           :
       LINKAGE SECTION.
       01 CNT PIC S9(9) USAGE COMP.
       01 STR PIC X(1).
           　
       PROCEDURE DIVISION USING BY VALUE CNT STR.
           :

• CプログラムからCOBOLプログラムへ引数が値渡しされた場合，PROCEDURE DIVISION USINGでBY VALUE指定する必要があります。

• Cプログラム内で設定する引数は，すべて値渡しである必要があります。

• COBOLのデータ項目とCプログラムの型の対応については，「表19‒1　COBOLのデータ項目とCプログラムの型の対応」を参照してください。

(a)　整数型のデータ項目を返す例

Cプログラム

extern int SAMPLE2();
    :
int main()
    {
    int rtc;
    :
    rtc = SAMPLE2();
    :
    }

COBOLプログラム

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SAMPLE2.
           :
       LINKAGE SECTION.
       01 RTC PIC S9(9) USAGE COMP.
       PROCEDURE DIVISION RETURNING RTC.
           :
           MOVE 12345 TO RTC.
           EXIT PROGRAM.

(b)　構造体型のデータ項目を返す例

Cプログラム

struct tbl{ int a; char b[10];};
extern struct tbl SAMPLE2();
int main()
    {
  struct tbl rtc;
    :
    rtc = SAMPLE2();
    :
    }

COBOLプログラム

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SAMPLE2.
           :
       LINKAGE SECTION.
       01 TBL.
         02 A PIC S9(9) USAGE COMP.
         02 B PIC X(10).
           　
       PROCEDURE DIVISION RETURNING TBL.
           :
           EXIT PROGRAM.

注意事項

C言語の構造体の場合，要素の境界調整でパディング（領域間のギャップを埋めるために挿入される暗黙のFILLER項目）が挿入されます。そのほかに，構造体のサイズを最大の基本要素サイズの倍数に切り上げるため，パディングが挿入されることがあります。この場合，パディングは構造体の末尾に挿入されます。例えば上記の例の構造体tblの場合，要素の合計のサイズはCOBOLの集団項目TBLと同じ14バイトですが，構造体のサイズを4バイト（最大の基本要素のサイズ）の倍数の16バイトにするために，2バイトのパディングが構造体の末尾に挿入されます。このため，COBOLの集団項目TBLとはサイズが不一致になります。プラットフォームによっては，このサイズの不一致が原因で，引数や戻り値の受け渡しで異常終了や結果不正となることがあるため，次のどちらかの方法でC言語の構造体のサイズとCOBOLの集団項目のサイズを一致させる必要があります。

• C言語の構造体のサイズをCOBOLの集団項目のサイズに合わせる方法

  構造体を詰めて配置するC言語の機能（C言語の言語仕様の#pragma packやC言語のコンパイラのコンパイラオプションで提供されている）を使って構造体tblのサイズを14バイトにします。構造体を詰めて配置するC言語の機能については，各システムのCコンパイラのリファレンスを参照してください。

• COBOLの集団項目のサイズをC言語の構造体のサイズに合わせる方法

  COBOLの集団項目TBLのサイズを16バイトにするために，COBOLの集団項目TBLの末尾に次の2バイト分のFILLER項目を追加してください。

　　02 FILLER PIC X(2).