在 HIS 2009 和 AS/400 Cobol 程序之间传递参数答案

【问题标题】：Passing parameters between HIS 2009 and AS/400 Cobol program在 HIS 2009 和 AS/400 Cobol 程序之间传递参数
【发布时间】：2013-01-09 07:48:11
【问题描述】：

我们正在使用 Microsoft.HostIntegration.TI.ClientContext.dll 和 Transaction Integrator Host Application 库将 HIS 2009 与 AS/400 Cobol 程序连接起来。

我们收到以下 QSYSOPR 日志消息“在 COBOL 语句中检测到消息 MCH0801……与未传递的外部或内部参数关联的参数。”

如下测试COBOL程序。

 IDENTIFICATION DIVISION.
 PROGRAM-ID. TSTEBANK.
 DATA DIVISION.
 LINKAGE SECTION.
 01 NAME                         PIC X(30).
 01 ACCNUM                       PIC X(6).
 01 ACCBAL                       PIC S9(1)V9(2).

 PROCEDURE DIVISION USING NAME ACCNUM ACCBAL.
                 MOVE 555 TO ACCBAL.
                 MOVE “TEST” TO NAME.

发送的 .net 数据类型对于 PIC X 是字符串，对于 S9(1)V9(2) 是十进制

【问题讨论】：

能否请您显示调用方？

标签： .net ibm-midrange cobol

【解决方案1】：

我们在与 AS400 平台通信时应该使用 DPC 编程模型。使用 VS TI Projects 从 cobol 文件链接部分生成 dll 很容易，配置相关的 DCOM 组件也很容易。

【讨论】：