CREATE OR REPLACE PACKAGE Pkg_Eval IS
TYPE clmusr IS RECORD (
unam VARCHAR2(50),
cuname VARCHAR2(50));
success CONSTANT NUMBER :=0;
TYPE clm_usr_ref IS REF CURSOR RETURN clmusr;
--TYPE clm_usr_tab IS TABLE OF clmusr INDEX BY BINARY_INTEGER;

PROCEDURE query_procedure (resultset IN OUT clm_usr_ref, d_name IN VARCHAR2);

END;

CREATE OR REPLACE PACKAGE BODY Pkg_Eval IS

FUNCTION get_success RETURN NUMBER IS
BEGIN
RETURN(success);
END;

PROCEDURE query_procedure (resultset IN OUT clm_usr_ref, d_name IN OUT VARCHAR2) IS
BEGIN
OPEN resultset FOR
SELECT a.username, a.complete_name
FROM CLM_USR a
WHERE a.username = d_name;
END query_procedure;

END;
/