MY FUNCTION 02.sql

create or replace FUNCTION MY_FUNCTION_02
RETURN NUMBER IS
  i number := -1;

  IN_PARAM1_LIST  MY_PACKAGE_01.NUM_TYPE_LIST;
  IN_PARAM2_LIST  MY_PACKAGE_01.CHAR_TYPE_LIST;
BEGIN

i := i + 1;
IN_PARAM1_LIST(i) := 0;
IN_PARAM2_LIST(i) := '00';

i := i + 1;
IN_PARAM1_LIST(i) := 1;
IN_PARAM2_LIST(i) := '11';

i := i + 1;
IN_PARAM1_LIST(i) := 2;
IN_PARAM2_LIST(i) := '22';
--select (max(POSITION_CODE) + 0) into IN_PARAM2_LIST(i)  from  USERS;  --外部キー制約あり

  MY_PACKAGE_01.MY_PROCEDURE_07(
    IN_PARAM1_LIST => IN_PARAM1_LIST,
    IN_PARAM2_LIST => IN_PARAM2_LIST
  );

  RETURN  SQLCODE;

EXCEPTION
    WHEN OTHERS THEN
    --DBMS_OUTPUT.PUT_LINE('エラーコード:'||SQLCODE);
    DBMS_OUTPUT.PUT_LINE(SQLERRM);
    RETURN SQLCODE;
END;