例 8 (事前にパッケージ化されたクエリ)

この例では、事前にパッケージ化されたクエリを呼び出し、データの最初の行を返します。これは、ユーザーが shared フォルダーの下にpqAccess、という名前の事前にパッケージ化されたクエリを持っていることを前提としています。

PROCEDURE prepackaged_query_example () 

BEGIN

  -- Declare a cursor to retrieve from the prepackaged query

  DECLARE myRow ROW (a1 INT, a2 VARCHAR, a3 VARCHAR, a4 DECIMAL, a5 INT,                              a6 DECIMAL, a7 VARCHAR, a8 VARCHAR) ;

  DECLARE crs cursor (a1 int, a2 VARCHAR, a3 VARCHAR, a4 DECIMAL, a5 INT,                              a6 DECIMAL, a7 VARCHAR, a8 VARCHAR) ;  

  CALL /shared/pqAccess (crs) ;

  -- Fetch the first row

  FETCH crs INTO myRow;

END