演習 3: open および forEach を使用したカーソルの管理

この演習では、forEach ステートメントを使用して結果セットをステップスルーし、データベースの項目のうち、ある価格を上回るものを取得します。

1. programs パッケージ内に、selectItems という名前の新規プログラムを作成します。
2. プログラムからデフォルトのコードを除去して、プログラムを次のようにします。

   package programs;
   
   program selectItems type BasicProgram {}
     
     function main()
     end
     
   end

3. データベースへのアクセス中に EGL で発生する可能性のあるすべてのエラーを処理するために、次の関数を追加します。

   function handleDBException(exception SQLException)
     SysLib.writeStdout("Error accessing database. "::
       "See Troubleshooting section");
     SysLib.writeStdout(exception.message);
   end

   データベース・アクセスで発生したエラーの処理については、この後のチュートリアルで学習します。
4. 次の関数を追加して、最大コストの Price パラメーターに基づいてデータベースから行を除去します。

   function printExpensiveItems(maxPrice Price in)
     
   end

   Price dataItem パーツは、DECIMAL プリミティブ型のものです。 このパーツは、ファイル eglderbyr7/primitivetypes/data に定義されています。
5. 関数宣言で Price 変数を追加する際にコンテンツ・アシストを使用しなかった場合は、次の import ステートメントをファイル上部の package ステートメントの下に追加します。

   import eglderbyr7.primitivetypes.data.*;

   コンテンツ・アシストを使用すると、キーワードおよびタイプの名前を、最初の数文字を入力し、Ctrl + スペースを押すことで入力できることを覚えておいてください。コンテンツ・アシストを使用して、Price dataItem パーツなどのタイプを挿入すると、コンテンツ・アシストにより、適切な import ステートメントがファイルに追加されます。

6. 新規関数内に、カーソルおよび結果セットを作成するための open ステートメントを追加します。カーソルで示される行を保持する一時 Item 変数も必要になります。

     tempItem Item;
     open expensiveItems for tempItem;

7. この場合も、Item レコード・タイプを挿入する際にコンテンツ・アシストを使用しなかった場合は、次の import ステートメントを追加して Record パーツをスコープに入れます。

   import eglderbyr7.data.Item;

8. open ステートメント上にカーソルを置いて右クリックし、「SQL ステートメント」 > 「追加」の順にクリックして、SQL コードを明示します。 open ステートメントは次のようになります。

     open expensiveItems for tempItem with
       #sql{
         select
           EGL.ITEM.ITEM_ID, EGL.ITEM.NAME, EGL.ITEM.IMAGE, 
           EGL.ITEM.PRICE, EGL.ITEM.DESCRIPTION
         from EGL.ITEM
         where
           EGL.ITEM.ITEM_ID >= :tempItem.ItemId
         order by
           EGL.ITEM.ITEM_ID asc
       };

9. 明示的な SQL コードの Where 文節を変更して、関数に渡される maxPrice 変数より大きいか等しい EGL.ITEM.PRICE 列の値を持つ行のみを選択するようにします。

     open expensiveItems for tempItem with
       #sql{
         select
           EGL.ITEM.ITEM_ID, EGL.ITEM.NAME, EGL.ITEM.IMAGE, 
           EGL.ITEM.PRICE, EGL.ITEM.DESCRIPTION
         from EGL.ITEM
         where
           EGL.ITEM.PRICE >= :maxPrice
         order by
           EGL.ITEM.ITEM_ID asc
       };

   maxPrice 変数 が SQL のキーワードや値ではなく、EGL 変数であることを示すために、maxPrice 変数の前にコロンを入れることを忘れないでください。
10. open ステートメントの後に、項目についての情報をコンソールに出力する forEach ループを追加します。

      forEach (tempItem)
        SysLib.writeStdout(tempItem.Name :: " " ::
          tempItem.Description :: " $" :: tempItem.Price);
      end

    完成した関数は次のようになります。

    function printExpensiveItems(maxPrice Price in)
      
    tempItem Item;
    open expensiveItems for tempItem with
      #sql{
        select
          EGL.ITEM.ITEM_ID, EGL.ITEM.NAME, EGL.ITEM.IMAGE, 
          EGL.ITEM.PRICE, EGL.ITEM.DESCRIPTION
        from EGL.ITEM
        where
          EGL.ITEM.PRICE >= :maxPrice
        order by
          EGL.ITEM.ITEM_ID asc
      };
      
    forEach (tempItem)
      SysLib.writeStdout(tempItem.Name :: " " ::
        tempItem.Description :: " $" :: tempItem.Price);
    end

11. main 関数から関数を呼び出し、maxPrice の値を渡します。

    function main()
      try
        printExpensiveItems(200);
      onException(exception SQLException)
        handleDBException(exception);
      end
    end

12. プログラムを生成し、実行します。

Laptop PC Great little machine.  Take it anywhere with you. $1111.11
Combination Safe Keep your valuables safe and secure.  Put 'em in here. $222.22
Desktop PC Lots'a power, at the right price.  Includes monitor. $888.55

この演習では、結果セットの 1 行を open および forEach を使用して一度に処理する方法を学習しました。