Ibm midrange 在AS400中运行COBOL程序

Ibm midrange 在AS400中运行COBOL程序,ibm-midrange,cobol,control-language,Ibm Midrange,Cobol,Control Language,我们正在尝试将应用程序从大型机迁移到AS400。我们已经将我们的COBOL程序发送到AS400,并在经过大量努力后在AS400中成功编译,因为我的队友都没有AS400的经验。我们现在不得不运行COBOL程序。我们已经检查过的示例CL程序和互联网上的内容没有任何好处 那么,有人能提供一个在AS400中运行COBOL程序的示例程序吗?COBOL程序有两个输入文件和一个输出文件。输入文件存在于AS400库中。还有,如何创建索引文件(如大型机中的KSDS VSAMs)?关于这些命令的简要说明会更好。非常

我们正在尝试将应用程序从大型机迁移到AS400。我们已经将我们的COBOL程序发送到AS400,并在经过大量努力后在AS400中成功编译,因为我的队友都没有AS400的经验。我们现在不得不运行COBOL程序。我们已经检查过的示例CL程序和互联网上的内容没有任何好处

那么,有人能提供一个在AS400中运行COBOL程序的示例程序吗?COBOL程序有两个输入文件和一个输出文件。输入文件存在于AS400库中。还有,如何创建索引文件(如大型机中的KSDS VSAMs)?关于这些命令的简要说明会更好。

非常简单

CALL COBOLPGM PARM('PARM1' 'PARM2')

要创建输出文件,您需要DDS源代码并使用CRTPF命令编译它,或者使用SQL DDL使用您最喜欢的SQL环境或STRSQL命令创建它。

David,感谢您的响应。但我不明白文件和DD名称之间的联系。例如,我的输入文件位于LIBRARY/file/INPUTFILE1中,在源代码中,我们有“分配给input-file-1”,正如您所建议的,如果我使用“CALL COBOLPGM PARM('input-file-1'),它将如何找到存储在上述位置的INPUTFILE1?我对输出文件也有相同的查询。您能详细说明一下吗?对不起,参数与文件没有特定关系。它们只是程序的参数输入值。COBOL不是我的第一语言,所以我不能100%确定您将如何声明这些文件。但是,您的程序必须同时声明输入和输出文件。首选的方法是使用DDS或SQL来定义它们,并对外部定义的COBOL程序进行编码。程序将通过在库列表(或合格位置[library/file])中查找文件来查找这些文件。谢谢David!将尝试使用库列表作为程序连接文件的常用首选方式。但是,在执行调用之前,可以使用OVRDBF(用数据库文件覆盖)语句。在库列表不合适的情况下,OVRDBF将DD名称与提供的库/文件引用相关联。覆盖将在进程的整个生命周期内有效,或者直到它被DLTOVR明确删除。谢谢
OVRDBF文件(LIB/FILE)到文件(COBOL-DD-NAME)共享(*是)
对于输入文件来说,上述内容是否足够?对于输出文件,
OVRDBF文件(COBOL-DD-NAME)到文件(LIB/file)共享(*YES)
就这些吗?