例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