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

(a)　引数をポインタ型で引き渡す例

COBOLプログラム

           :
       WORKING-STORAGE SECTION.
       01 CNT PIC S9(9) USAGE COMP.
       01 STR.
         02 STRCHAR PIC X(79).
         02 FILLER  PIC X VALUE LOW-VALUE.
           :
       PROCEDURE DIVISION.
           :
         CALL 'sample2' USING BY REFERENCE CNT STR.
           : 

Cプログラム

int  sample2(int *cnt, char *str)
{
    :
  return(0);
}

• COBOLプログラムからCプログラムにBY VALUE指定なしで引き渡す引数は，すべてポインタ型として引き渡されます。このため，Cプログラム内で受け取る引数は，すべてポインタ型で宣言する必要があります。

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

(b)　引数を値渡しで引き渡す例

COBOLプログラム

           :
       WORKING-STORAGE SECTION.
       01 CNT PIC S9(9) USAGE COMP.
       01 STR PIC X(1).
           :
       PROCEDURE DIVISION.
           :
         CALL 'sample2' USING BY VALUE CNT STR.
           :

Cプログラム

int  sample2(int cnt, char str)
{
    :
  return(0);
}

• Cプログラム内で受け取る引数は，BY VALUE指定の場合は値渡しで受け取ります。CALL文のBY VALUEで指定したCOBOLのデータ項目に対するC言語のデータ型の対応については，「表19‒1　COBOLのデータ項目とCプログラムの型の対応」を参照してください。

• BY VALUE指定時，引数は次のように設定されます。

  • 単精度内部浮動小数点数字項目は4バイトで，倍精度内部浮動小数点数字項目は8バイトで設定されます。

  • 数字定数，およびZEROは4バイトの2進形式として設定されます。

  • 浮動小数点数字定数は倍精度浮動小数点形式として設定されます。

(c)　CALL文の引数にADDRESS OF 一意名，LENGTH OF 一意名を指定した例

COBOL主プログラム

       IDENTIFICATION DIVISION.
       PROGRAM-ID. SAMPLE1.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WK-1.
         02 W01    PIC X(30)
            VALUE 'ABCDEFGHIJKLMNOPQRSTUVWXYZ1234'.
         02 FILLER PIC X VALUE LOW-VALUE. …5.
       PROCEDURE  DIVISION.
           CALL 'SAMPLE2'
                USING BY REFERENCE WK-1. …1.
           CALL 'SAMPLE3'
                USING BY REFERENCE ADDRESS OF WK-1. …2.
           CALL 'SAMPLE4'
                USING BY CONTENT LENGTH  OF WK-1. …3.
           CALL 'SAMPLE5'
                USING BY VALUE LENGTH  OF WK-1. …4.
           STOP RUN.
       END PROGRAM SAMPLE1.

C副プログラム

#include <stdio.h>
 int SAMPLE2(char *p_ptr_r)
 {
   printf("first char(r) =(%s)\n",p_ptr_r);   … 1.
    :
 }
 int SAMPLE3(char **p_ptr_ra)
 {
   printf("first char(ra)=(%s)\n",*p_ptr_ra);   … 2.
    :
 }
 int SAMPLE4(
     int *p_ptr_cl  /* この引数の型は32bitアプリケーションの場合  */
                    /* 64bitアプリケーションの場合は long long *  */
     )
 {
   printf("length(p)     =(%d)\n",*p_ptr_cl);   … 3.
                    /* この書式指定は32bitアプリケーションの場合  */
                    /* 64bitアプリケーションの場合  %lld          */
    :
 }
 int SAMPLE5(
     int p_ptr_vl   /* この引数の型は32bitアプリケーションの場合  */
                    /* 64bitアプリケーションの場合は long long    */
     )
 {
   printf("length(p)     =(%d)\n",p_ptr_vl);   … 4.
                    /* この書式指定は32bitアプリケーションの場合  */
                    /* 64bitアプリケーションの場合  %lld          */
    :
 }

1. BY REFERENCE指定のCALL文で渡される値は，指定された一意名のアドレスです。

2. ADDRESS OFで修飾した場合に渡される値は，一意名のアドレスではなく，一意名のアドレスが入っている領域のアドレスとなります。

3. LENGTH OFで修飾したCONTENT指定では，一意名の長さが入っている領域のアドレスが渡されます。

4. LENGTH OFで修飾したVALUE指定では，一意名の長さが値として渡されます。

5. Cプログラム中で文字列として参照するため，COBOLプログラム中で英数字項目の終端にNULL文字（X'00'）を設定しています。

BY REFERENCE指定で渡される引数の値

実行結果

first char(r) =(ABCDEFGHIJKLMNOPQRSTUVWXYZ1234)
    :
first char(ra)=(ABCDEFGHIJKLMNOPQRSTUVWXYZ1234)
    :
length(p)     =(31)
    :
length(p)     =(31)
    :

(a)　整数型のデータ項目をリターンする例

COBOLプログラム

       WORKING-STORAGE SECTION.
       01 RTC PIC S9(9) USAGE COMP.
           :
       PROCEDURE DIVISION.
           :
           CALL 'sample2' RETURNING RTC.

Cプログラム

int sample2()
  {
  int rtc;
    :
  return (rtc);
  }

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

構造体型のデータ項目をリターンする場合，COBOLプログラムとCプログラムでは境界調整によってデータのマッピング方法が異なることがあるので注意が必要です。

COBOLプログラム

       WORKING-STORAGE SECTION.
       01 TBL.
         02 A PIC S9(9) USAGE COMP.
         02 B PIC X(10).
           :
       PROCEDURE DIVISION.
           :
           CALL 'sample2' RETURNING TBL.

Cプログラム

struct tbl {int a; char b[10];};
struct tbl sample2()
{
    struct tbl rtn;
    :
    return (rtn);
}