...
  DECLARE SQLCODE INT;
  DECLARE l_REVENUE_MATH decimal(28,14);
  DECLARE l_REVENUE decimal(28,14);
  DECLARE L1 RESULT_SET_LOCATOR VARYING;
...
declare global temporary table SESSION.TEMP_REVEN (REVENUE_MATH decimal(28,14), REVENUE DECIMAL (28,14))
with replace on commit preserve rows not logged;
...
  call DAT3.TEST_MAP (13399);
  ASSOCIATE LOCATOR (L1) WITH PROCEDURE DAT3.TEST_MAP;
  ALLOCATE C1 CURSOR FOR RESULT SET L1;
  FETCH C1 INTO l_REVENUE_MATH, l_REVENUE;       
  WHILE (SQLCODE!=100) DO
    insert into SESSION.TEMP_REVEN(REVENUE_MATH, REVENUE) values (l_REVENUE_MATH, l_REVENUE);
    FETCH C1 INTO l_REVENUE_MATH, l_REVENUE;       
  END WHILE;
  CLOSE C1;
...

CREATE TYPE DAT3.TEST_MAP_T    AS ROW (REVENUE_MATH decimal(28,14), REVENUE decimal(28,14))/
CREATE TYPE DAT3.TEST_MAP_T_A AS DAT3.TEST_MAP_T ARRAY[]/

CREATE OR REPLACE FUNCTION "WEB"."GET_SAFE_ALL" ( )
RETURNS DAT3.TEST_MAP_T_A
BEGIN
  DECLARE l_a DAT3.TEST_MAP_T_A;
  DECLARE l_idx INT DEFAULT 1;
  ...
  loop1: LOOP
    FETCH C1 INTO l_a [l_idx];
    if (SQLCODE=100) then leave loop1; end if;
    SET l_idx = l_idx + 1;
  END LOOP loop1;
  CLOSE C1;
  RETURN l_a;
END/

SELECT * FROM UNNEST(WEB.GET_SAFE_ALL())/