在HP Tandem上将数据从C发送到COBOL

Question

我正在尝试从COBOL调用一个C函数，并等待它的响应。我是第一次接触这种接口。

COBOL代码：

ENTER C "ADD" USING A,B.

C代码：

int ADD(int a,int b)
{
    return a+b;
}

我想从C函数中获得sum值，以便在COBOL中进一步处理。

Answer 1

在COBOL中

EXTENDED-STORAGE SECTION.
01 MYVAR EXTERNAL.
   05 DATA-01 PIC X(20).

在C中

 /*Add necessary includes */
 extern char MYVAR[21];

 void change_Cobol_Variable()
 {
   /*you can use MYVAR as normal C-variable*/
   sprintf(MYVAR, "%s","Something");
 }

如果是整数，则根据需要声明相应的变量:)

Answer 2

在Cobol中：

EXTENDED-STORAGE SECTION.
01 C EXTERNAL.
   05 DATA-01 PIC 9(1).

在C中：

/*Add necessary includes */
extern int C;

void ADD(int A,int B)
{
/*you can use C as normal C-variable*/
  C=A+B;
}