Package and Function:
SPEC
CREATE OR REPLACE PACKAGE PACKAGE_SUHUATEST AS
type resp is record
(resp_key varchar(30),
app_name varchar2(15));
type resp_tab is table of resp INDEX BY BINARY_INTEGER;
FUNCTION MyFunction(invar in varchar) return resp_tab ;
END PACKAGE_SUHUATEST;
/
BODY
CREATE OR REPLACE PACKAGE BODY MVL_SOX.PACKAGE_SUHUATEST AS
FUNCTION MyFunction(invar in varchar) return resp_tab IS
record1 resp;
record2 resp;
allresult resp_tab;
BEGIN
record1.resp_key :='key1';
record1.app_name :='name1';
record2.resp_key :='key2';
record2.app_name :='name2';
allresult(1) := record1;
allresult(2) := record2;
RETURN allresult;
EXCEPTION
WHEN NO_DATA_FOUND THEN
NULL;
WHEN OTHERS THEN
-- Consider logging the error and then re-raise
RAISE;
END MyFunction;
DO my best.