Question

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

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

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

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

Answer 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

从Cobol程序调用C函数

1 个答案: