CREATE OR REPLACE PACKAGE BODY DORIS.p_test_security IS PROCEDURE sp_test_security_init (pi_s_user_id IN VARCHAR2, po_arr_user_info OUT sec_array, po_n_status OUT NUMBER) IS CURSOR cur_sec_user (pi_s_user_id IN VARCHAR2) IS SELECT '1', '1', '1', '1', '1', '1', '1', '1','1', '1', '1', '1', '1', '1', '1', '1', '1' FROM dual; l_n_status NUMBER := 0; BEGIN OPEN cur_sec_user(pi_s_user_id); FETCH cur_sec_user INTO po_arr_user_info (1), po_arr_user_info (2), po_arr_user_info (3) ,po_arr_user_info (4), po_arr_user_info (5), po_arr_user_info (6) ,po_arr_user_info (7), po_arr_user_info (8), po_arr_user_info (9) ,po_arr_user_info (10), po_arr_user_info (11), po_arr_user_info (12) ,po_arr_user_info (13), po_arr_user_info (14), po_arr_user_info (15) ,po_arr_user_info (16), po_arr_user_info (17); CLOSE cur_sec_user; po_n_status := l_n_status; END sp_test_security_init; END p_test_security;