通过

为 Web-Based 应用程序定义记录集时遇到问题

在 TI 中， 记录集 由大型机的 COBOL 源代码中定义的表格数据组成。 表格数据是由 COBOL 数据区内包含 OCCURS 子句的组项定义的。 将 COBOL 数据区域导入 TI 设计器时，会发生以下 COBOL 到自动化转换：

  • COBOL 数据区域定义新创建的方法的参数和任何记录集的成员。

  • 定义表（包含 OCCURS 子句）的组项表示为方法记录集的类型定义和方法参数。

  • 其他组项表示为方法参数。

  • 元素数据项（表字段的定义）表示为记录集的成员。

    以下 COBOL 数据区域描述了使用 CICS LINK 远程环境的基于 Web 的应用程序的类型库。 应用程序对于作为输入的每个客户名称和匹配的 PIN 返回最多六个帐户的信息。

01         DFHCOMMAREA.  
*                    ACCTINFO IS (INPUT, OUTPUT)  
           O5        ACCTINFO OCCURS 6 TIMES.  
                     10 ACCOUNTNUMBER                       PIC X(6).  
                     10 ACCOUNTTYPE                         PIC X(20).  
                     10 CURRENTBALANCE                      PIC S9(13)V9(2) COMP-3.  
  
                     10 INTERESTBEARING                     PIC S9(4) COMP.  
                     10 INTERESTRATE                        COMP-1.  
                     10 MONTHLYSVCCHG                       PIC S9(13)V9(2) COMP-3.  
  
*                    NAME IS (INPUT, OUTPUT)  
                     05                                     NAMEPIC X(30).  
*                    PIN IS (INPUT, OUTPUT)  
                     05                                     PIN PIC X(10).

导入 TI 设计器时，数据区域的组项被视为新创建方法的参数。 但是，由于基于 Web 的应用程序的远程数据服务（RDS）要求，定义表的组项必须定义为方法的返回值，而不是作为方法参数。 若要正确定义方法，必须手动重新定义此组项（上一示例中的 ACCTINFO）作为返回值。

导入 COBOL 数据区域之前，请注意 OCCURS 子句中指定的行数。 导入 COBOL 数据区域后，使用以下过程为基于 Web 的应用程序定义记录集。

为基于 Web 的应用程序定义记录集

  1. 启动 TI 设计器。

  2. 在控制台树中，双击 Recordsets 文件夹以验证 TI 设计器是否创建了记录集的类型定义。 类型定义的名称取自在 COBOL 源代码中定义表的组项。

  3. 双击 “方法” 文件夹，然后单击方法的名称。 验证记录集参数是否显示在详细信息窗格中。 参数名称应与记录集的类型定义的名称匹配。

  4. 在 “编辑 ”菜单上，单击“ 解锁 ”以解锁方法。

  5. 在详细信息窗格中，删除记录集参数。

  6. 右键单击该方法，单击“ 属性”，然后单击“ 自动化定义 ”选项卡。

  7. 单击 “返回类型 ”框中记录集的类型定义的名称。

  8. 单击“ 记录集 ”选项卡。

  9. 在 “Group-Item 最大值 ”框中，键入 COBOL 源代码中指定的行数，然后单击“ 确定”。

    有关记录集的详细信息，请参阅安装Microsoft数据访问组件（MDAC）时随附的 ActiveX 数据对象（ADO）和远程数据服务（RDS）文档。