共用方式為


定義 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 Designer 設計工具時,數據區的群組項目會被視為新建立方法的參數。 不過,由於 Web 型應用程式的遠端資料服務 (RDS) 需求,定義資料表的群組項目必須定義為方法的傳回值,而不是方法參數。 若要正確定義方法,您必須手動將此群組項目(上一個範例中的 ACCTINFO)重新定義為傳回值。

匯入 COBOL 資料區域之前,請注意 OCCURS 子句中指定的數據列數目。 匯入 COBOL 資料區域之後,請使用下列程式來定義 Web 應用程式記錄集。

定義 Web 應用程式記錄集

  1. 啟動 TI 設計工具。

  2. 在主控台樹中,按兩下 Recordsets 資料夾,確認 TI Designer 已建立記錄集的類型定義。 類型定義的名稱取自在 COBOL 原始碼中定義資料表的群組項目。

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

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

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

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

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

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

  9. [Group-Item 最大值 ] 方塊中,輸入 COBOL 原始程式碼中指定的數據列數目,然後按兩下 [ 確定]。

    如需記錄集的詳細資訊,請參閱安裝 Microsoft 資料存取元件 (MDAC) 時所包含的 ActiveX 資料物件 (ADO) 和遠端資料服務 (RDS) 檔。