Web ベース アプリケーションのレコードセットの定義の問題

  • [アーティクル]

TI では、 レコードセット はメインフレーム上の COBOL ソース コードで定義された表形式データで構成されます。 表形式データは、COBOL データ域の OCCURS 句を含むグループ項目によって定義されます。 TI Designerに COBOL データ域をインポートすると、次の COBOL から自動化への変換が行われます。

  • COBOL データ域は、新しく作成されたメソッドのパラメーターと、任意のレコードセットのメンバーを定義します。

  • テーブルを定義するグループ項目 (OCCURS 句を含む) は、メソッドのレコードセットの型定義とメソッド パラメーターの両方として表されます。

  • その他のグループ項目は、メソッド パラメーターとして表されます。

  • 要素データ項目 (テーブル フィールドの定義) は、レコードセットのメンバーとして表されます。

    次の COBOL データ域では、CICS LINK リモート環境を使用する Web ベースのアプリケーションのタイプ・ライブラリーについて説明します。 アプリケーションは、入力として入力された顧客名と一致する PIN ごとに、最大 6 つのアカウントに関する情報を返します。

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. Methods フォルダーをダブルクリックし、メソッドの名前をクリックします。 詳細ウィンドウにレコードセット パラメーターが表示されていることを確認します。 パラメーター名は、レコードセットの型定義の名前と一致する必要があります。

  4. [ 編集 ] メニューの [ ロック解除 ] をクリックして、メソッドのロックを解除します。

  5. 詳細ウィンドウで、レコードセット パラメーターを削除します。

  6. メソッドを右クリックし、[ プロパティ] をクリックし、[ オートメーション定義 ] タブをクリックします。

  7. [戻り値の型] ボックスで、レコードセットの型定義の名前 をクリック します。

  8. [ レコードセット ] タブをクリックします。

  9. [ Group-Item Maximum]\(グループ項目の最大\ ) ボックスに、COBOL ソース コードで指定された行数を入力し、[OK] をクリック します。

    レコードセットの詳細については、Microsoft Data Access Components (MDAC) のインストール時に含まれる ActiveX データ オブジェクト (ADO) とリモート データ サービス (RDS) のドキュメントを参照してください。