¶
11.18.7. KEYSET (traditional cursor statement) Example
Example 11.14. Procedure using keyset cursor
create procedure TEST_KEYSET () { declare cr keyset cursor for select KEY_ID from DB.DBA.SYS_KEYS; declare inx, data integer; inx := 0; whenever not found goto done; open cr; while (1) { fetch cr into data; inx := inx + 1; } done: close cr; result_names (data); result (inx); }; TEST_KEYSET ();