通过

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

  • 项目

在 TI 中， 记录集 由大型机上 COBOL 源代码中定义的表格数据组成。 表格数据由包含 COBOL 数据区域中的 OCCURS 子句的组项定义。 将 COBOL 数据区域导入 TI Designer时，会发生以下 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 Designer时，数据区域的组项被视为新创建的方法的参数。 但是，由于远程数据服务 (基于 Web 的应用程序的 RDS) 要求，因此定义表的组项必须定义为方法的返回值，而不是方法参数。 若要正确定义方法，必须在前面的示例中手动重新定义此组项 (ACCTINFO，) 作为返回值。

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

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

  1. 启动 TI Designer。

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

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

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

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

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

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

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

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

    有关记录集的详细信息，请参阅安装 Microsoft 数据访问组件 (MDAC) 时包括的 ActiveX 数据对象 (ADO) 和 Remote Data Service (RDS) 文档。