输入和输出数组设置指示信息

在导入样本之前

  1. 确保工作空间中没有其它内容。
  2. 如果想要在 IMS 服务器上执行 InEqualsOut IMS 程序 InEqualsOut.cbl.,则需要在该服务器上进行一些设置。这些步骤在此处未作讨论;请与 IMS 服务器管理员联系以获取有关 IMS 服务器的设置和连接信息。

在导入样本之后

需要配置服务器并使用下列步骤将样本与服务器相关联:

  1. 要将样本与 IMS 服务器相关联,需要更改 Bean 实现类中的连接信息。
  2. 在 Java 编辑器中打开 InOutImpl.java,并更改以下标记以使用 IMS 服务器连接信息。
     /*
     * @j2c.managedConnectionFactory class="com.ibm.connector2.ims.ico.IMSManagedConnectionFactory"
     * @j2c.managedConnectionFactory-property name="HostName" value="csdmecxx.sss.ibm.com"
     * @j2c.managedConnectionFactory-property name="PortNumber" value="9999"
     * @j2c.managedConnectionFactory-property name="DataStoreName" value="IMS1"
     * @generated
     */
               
使用 TestInOut.java 程序测试应用程序

要直接调用并运行 TestInOut 程序,应使用 TestInOut.java 文件。

TestInOut.java 样本仅供参考。您可能需要更改 TestInOut.java 文件中的事务代码。详细情况请咨询 IMS 管理员。要修改事务代码,先找到语句 input.setWs__trcd("SKS7 ");,然后进行修改。

  1. 浏览至项目 InOutArray 包 sample.ims 下面的 TestInOut.java。
  2. 右键单击以调用运行 -> 作为应用程序运行

将在控制台中显示以下内容:


祝贺您,您已经完成了包含数组的 IMS 事务输入和输出消息样本。

InEqualsOut.cbl    返回顶部
     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.           
   
返回顶部