从 Cobol 程序调用 C 函数

【问题标题】：Calling a C function from a Cobol program从 Cobol 程序调用 C 函数
【发布时间】：2017-08-03 18:26:35
【问题描述】：

我们有一个共享库，它的功能是 Web 服务客户端。客户端是使用gsoap 创建的，并且此客户端被旧版进度 4GL 应用程序用于使用加密 Web 服务。

现在有人问我，用 Cobol 编写的其他遗留系统是否可以使用相同的机制。

那么，如果我有这个共享库，这个库中的函数可以被 Cobol 程序调用吗？

如果可能，任何人都可以分享参考文档的示例吗？

【问题讨论】：

标签： c cobol

【解决方案1】：

如果您使用的是 Micro Focus COBOL 产品，然后看一个 C 示例，我希望您单独做以下几行：

1) 对“soaph.h”执行 h2cpy 以获得“soaph.cpy” 2) 然后....

    01 ws-soap  soap.

    call "soap_init" using
         by reference ws-soap
    end-call


    call "soap_call_ns1__...." using
         by reference ws-soap
         by value omitted   *> endpoint address
         by value omitted   *> soapAcition
        .... your parameters
    end-call

    if return-code not equals SOAP-OK
      call "soap_pint_fault" using
     else
        ...
    end-if

    call "soap_destroy" using
          by reference ws-soap
    end-call

    call "soap_end" using
          by reference ws-soap
    end-call

    call "soap_done" using
          by reference ws-soap
    end-call

【讨论】：