从Cobol调用Java程序

Question

我正在尝试与Java和Cobol进行通信。我需要从Cobol调用一个Java程序（带有参数）。

我阅读了Microfocus的一些文档：http://supportline.microfocus.com/documentation/books/nx40/dijafc.htm http://supportline.microfocus.com/documentation/books/nx40/dijaco.htm

但我没有找到真正的解决方案，因为我需要调用整个程序，而不是Java类。

提前感谢。

Answer 1

你发布的链接很好地解释了我们如何实例化一个java类。如果您关心参数，那么使用参数构造函数编写Java类，并在从Cobol实例化类时传递参数。

如果你对Java类和Java程序感到困惑，那么你需要知道Java程序最多被编译成. class文件，你有包含. class文件的可执行罐。但是没有什么比. exe更适合java。

Answer 2

下面是一个示例程序，它将从COBOL97应用程序中启动EXE。

在中检查CallEXE演示http://www.netcobol.com/support/code-samples/

说到微焦点。。。

不能从Micro Focus INT或GNT调用EXE，但可以调用非大型机程序（MFE中的Micro Focus方言）并向DOS发出一个shell，然后从那里执行执行EXE的命令行或直接在Micro Focus调用中传递的EXE文件（x'91'函数代码=35）。

此外，您不会返回任何传递的参数，因为一旦关闭DOS shell，就不能返回任何参数。因此，让parm返回的最好方法是将它们写入一个文件。

我包括一个示例程序，显示这个x'91'FC=35调用。如您所见，您可以直接执行批处理文件、命令或EXE。

Working-Storage Section.

1  Cmd-Line-Str.

 2              Pic X(45)

  *      value 'RUN $IMSDIR\PCIMS RUNIMS BMP,DBUTIL,DEMO001T'.

  *      value 'run lorince'.

     value 'dir c:\ /o > d.d'.

2   N-1         Pic X Value Low-Value.

   1   Call-Func    Pic X Comp-X Value 35.

   1   Result       Pic X Comp-X.

   1   Cmd-Line-Len Pic X Comp-X Value 0.

   Procedure Division.

   P1.

   Display Cmd-Line-Str upon Command-Line

   Call x'91' using Result, Call-Func, Cmd-Line-Len

   If Result = Zeroes

      Display 'Call worked'

   End-If

    Goback.   

我希望这篇文章能给你提供更多的信息，我只有大型机方面的知识，没有尝试过以上任何一种。