在 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 函数中获取总和值，以便在 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;
}

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

Sending data from C to COBOL on HP Tandem

c

cobol

tandem