输入和输出数组设置指示信息 |
在导入样本之前
在导入样本之后 需要配置服务器并使用下列步骤将样本与服务器相关联:
要直接调用并运行 TestInOut 程序,应使用 TestInOut.java 文件。 TestInOut.java 样本仅供参考。您可能需要更改 TestInOut.java 文件中的事务代码。详细情况请咨询 IMS 管理员。要修改事务代码,先找到语句 input.setWs__trcd("SKS7 ");,然后进行修改。
将在控制台中显示以下内容: ![]() 祝贺您,您已经完成了包含数组的 IMS 事务输入和输出消息样本。 |
IDENTIFICATION DIVISION. program-id. pgm1. ENVIRONMENT DIVISION. CONFIGURATION SECTION. DATA DIVISION. LINKAGE SECTION. 01 IN-OUT-MSG. 05 WS-LL PIC S9(3) COMP VALUE +0. 05 WS-ZZ PIC S9(3) COMP VALUE +0. 05 WS-TRCD PIC X(5). 05 INDX PIC 99. 05 WS-CUSTOMER OCCURS 1 TO 8 TIMES DEPENDING ON INDX. 15 WS-CUST-NUMBER PIC X(5). 15 WS-CUST-NAME PIC X(20). 05 WS-FUNC-CODE PIC X(6). PROCEDURE DIVISION. 返回顶部