MY FUNCTION DEBUG FOR MY PACKAGE 02 1.sql
create or replace FUNCTION MY_FUNCTION_DEBUG_FOR_MY_PACKAGE_02_1
RETURN NUMBER IS
i number := 0; --indexを1から開始させる
IN_NUM_LIST_PARAM_1 KAKIP2.MY_PACKAGE_02.TYPE_NUM_LIST;
IN_CHAR_LIST_PARAM_1 KAKIP2.MY_PACKAGE_02.TYPE_CHAR_LIST;
IN_LONG_CHAR_LIST_PARAM_1 KAKIP2.MY_PACKAGE_02.TYPE_LONG_CHAR_LIST;
IN_TIMESTAMP_LIST_PARAM_1 KAKIP2.MY_PACKAGE_02.TYPE_TIMESTAMP_LIST;
OUT_RETURN_CODE NUMBER;
OUT_SQLERRM VARCHAR2(200);
OUT_SQLCODE NUMBER;
BEGIN
ROLLBACK;
delete from TABLE2;
delete from TABLE1;
commit;
i := i + 1;
IN_NUM_LIST_PARAM_1(i) := 1;
IN_CHAR_LIST_PARAM_1(i) := '11';
IN_LONG_CHAR_LIST_PARAM_1(i) := '111';
IN_TIMESTAMP_LIST_PARAM_1(i) := SYSTIMESTAMP;
i := i + 1;
IN_NUM_LIST_PARAM_1(i) := 2;
IN_CHAR_LIST_PARAM_1(i) := '22';
IN_LONG_CHAR_LIST_PARAM_1(i) := '222';
IN_TIMESTAMP_LIST_PARAM_1(i) := SYSTIMESTAMP;
i := i + 1;
IN_NUM_LIST_PARAM_1(i) := 3;
IN_CHAR_LIST_PARAM_1(i) := '33';
IN_LONG_CHAR_LIST_PARAM_1(i) := '333';
IN_TIMESTAMP_LIST_PARAM_1(i) := SYSTIMESTAMP;
--select (max(POSITION_CODE) + 0) into IN_PARAM2_LIST(i) from USERS; --外部キー制約あり
MY_PACKAGE_02.MY_PROCEDURE_02_1(
IN_NUM_LIST_PARAM_1 => IN_NUM_LIST_PARAM_1,
IN_CHAR_LIST_PARAM_1 => IN_CHAR_LIST_PARAM_1,
IN_LONG_CHAR_LIST_PARAM_1 => IN_LONG_CHAR_LIST_PARAM_1,
IN_TIMESTAMP_LIST_PARAM_1 => IN_TIMESTAMP_LIST_PARAM_1,
OUT_RETURN_CODE => OUT_RETURN_CODE,
OUT_SQLERRM => OUT_SQLERRM,
OUT_SQLCODE => OUT_SQLCODE
);
DBMS_OUTPUT.PUT_LINE(OUT_SQLERRM);
RETURN SQLCODE;
EXCEPTION
WHEN OTHERS THEN
--DBMS_OUTPUT.PUT_LINE('エラーコード:'||SQLCODE);
--DBMS_OUTPUT.PUT_LINE(SQLERRM);
RETURN SQLCODE;
END;