MY FUNCTION DEBUG FOR MY PACKAGE 02 4.sql
create or replace FUNCTION MY_FUNCTION_DEBUG_FOR_MY_PACKAGE_02_4
RETURN NUMBER IS
i number := 0; --indexを1から開始させる
IN_NUM_LIST KAKIP2.MY_PACKAGE_02.TYPE_NUM_LIST;
OUT_RETURN_CODE NUMBER;
OUT_LIST SYS_REFCURSOR;
BEGIN
ROLLBACK;
i := i + 1;
IN_NUM_LIST(i) := 99;
i := i + 1;
IN_NUM_LIST(i) := 98;
i := i + 1;
IN_NUM_LIST(i) := 2;
i := i + 1;
IN_NUM_LIST(i) := 1;
MY_PACKAGE_02.MY_PROCEDURE_02_4(
IN_NUM_LIST => IN_NUM_LIST,
OUT_LIST => OUT_LIST,
OUT_RETURN_CODE => OUT_RETURN_CODE
);
RETURN SQLCODE;
EXCEPTION
WHEN OTHERS THEN
--DBMS_OUTPUT.PUT_LINE('エラーコード:'||SQLCODE);
--DBMS_OUTPUT.PUT_LINE(SQLERRM);
RETURN SQLCODE;
END;