無法為 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. 在主控台樹中,按兩下 [記錄集] 資料夾,確認 TI Designer建立記錄集的類型定義。 類型定義的名稱取自 COBOL 原始程式碼中定義資料表的群組專案。

  3. 按兩下 [方法] 資料夾,然後按一下方法的名稱。 確認記錄集參數會顯示在詳細資料窗格中。 參數名稱應該符合記錄集類型定義的名稱。

  4. 在 [ 編輯 ] 功能表上,按一下 [ 解除鎖定 ] 以解除鎖定方法。

  5. 在詳細資料窗格中,刪除記錄集參數。

  6. 以滑鼠右鍵按一下方法,按一下 [ 屬性],然後按一下 [ 自動化定義 ] 索引標籤。

  7. 在 [傳 回類型 ] 方塊中,按一下記錄集的類型定義名稱。

  8. 按一下 [ 記錄集] 索引 標籤。

  9. 在 [ 群組專案最大值 ] 方塊中,輸入 COBOL 原始程式碼中指定的資料列數目,然後按一下 [ 確定]。

    如需記錄集的詳細資訊,請參閱安裝 Microsoft Data Access Components (MDAC) 時所包含的 ActiveX Data Objects (ADO) 和遠端資料服務 (RDS) 檔。