HP Tandem平台下COBOL调用C函数并获取返回数据的实现问题

HP Tandem（现NonStop）平台的COBOL默认不会将C函数的return返回值直接赋值给普通COBOL变量，你可以通过两种方式实现返回值获取： #

方法1：通过特殊寄存器RETURN-CODE获取（仅适用于int返回值场景） #

该方法无需修改现有C函数代码，仅调整COBOL侧逻辑即可：

• 调用C函数后，C返回的int结果会自动写入COBOL内置的RETURN-CODE特殊寄存器，直接读取该寄存器即可拿到返回值：

*> 原有调用逻辑不变
ENTER C "ADD" USING A, B.
*> 将返回值赋值给自定义变量用于后续处理
MOVE RETURN-CODE TO YOUR-COBOL-PROCESS-VAR.

注意：该方法仅支持返回值为32位有符号int的场景，返回其他类型（长整型、字符串、结构体等）不可用 #

方法2：通过参数指针回写结果（全场景通用，兼容性更高） #

该方法不依赖平台特殊特性，所有跨语言调用场景都适用，稳定性更高：

1. 修改C函数，将求和结果写入传入的指针参数，无需使用return返回：

void ADD(int a, int b, int *result)
{
    *result = a + b;
}

2. COBOL侧先定义对应类型的结果存储变量，注意变量类型要和C严格匹配：

WORKING-STORAGE SECTION.
01  A        PIC S9(9) COMP VALUE 10. *> 对应C的int入参a
01  B        PIC S9(9) COMP VALUE 20. *> 对应C的int入参b
01  SUM-RES  PIC S9(9) COMP.          *> 对应C的int*指向的结果变量

3. 调用C函数时传入结果变量，调用完成后直接读取该变量即可：

ENTER C "ADD" USING A, B, SUM-RES.
*> 后续逻辑直接使用SUM-RES即可，示例：
DISPLAY "求和结果为：" SUM-RES.

注意事项 #

• 变量类型必须严格对齐：COBOL的PIC S9(9) COMP对应32位有符号int，PIC S9(4) COMP对应16位短整型，避免类型不匹配导致的数值异常
• HP Tandem平台为大端字节序，跨语言传递多字节变量时不要手动做字节序转换
• 较新版本的NonStop OS中，CALL "ADD" USING ...语法和ENTER C效果完全一致，可以互换使用

内容的提问来源于stack exchange，提问作者GoudSaab