Oracle Packages

我建了个包 执行也成功了 但就是在包里面 找不到？郁闷
create or replace package body Message is  PROCEDURE P_REFER(P_t1  IN TEST_01.t1%TYPE DEFAULT NULL,
                    P_t2  IN TEST_01.t2%TYPE DEFAULT NULL,
                    P_t3  IN TEST_01.t3%TYPE DEFAULT NULL,
                    P_CUR OUT V_CUR) IS
    p_temp varchar(20);
  
  BEGIN
    if P_t2 is null then
      p_temp := ' ';
    else
      p_temp := p_t2;
    end if;
    OPEN P_CUR FOR
      SELECT t1, t2, t3, t4, t5, t6
        FROM TEST_01
       where t1 = P_t1
         and nvl(t2, ' ') = p_temp
         and t3 = p_t3;
  END P_REFER;  PROCEDURE P_MODIFY(ITYPE     IN VARCHAR2 DEFAULT NULL,
                     p_t1      IN VARCHAR2,
                     p_t2      IN VARCHAR2,
                     p_t3      IN VARCHAR2,
                     p_t4      IN VARCHAR2,
                     p_t5      IN VARCHAR2,
                     p_t6      IN VARCHAR2,
                     P_CODE    OUT NUMBER,
                     P_RTN_MSG OUT VARCHAR2) IS
  
  BEGIN
    P_code := 0;
    IF iType = 'I' THEN
    
      GOTO P_INSERT;
    ELSif iType = 'U' then
      GOTO P_UPDATE;
    
    else
      GOTO P_DELETE;
    END IF;
  
    <<P_INSERT>>
  
    insert into test_01 values (p_t1, p_t2, p_t3, p_t4, p_t5, p_t6);
  
    RETURN;
  
    <<P_UPDATE>>
  
    update test_01
       set t2 = p_t2, t3 = p_t3, t4 = p_t4, t5 = p_t5, t6 = p_t6
     where t1 = p_t1;
    RETURN;
  
    <<P_DELETE>>
    delete from test_01 where t1 = p_t1;
    RETURN;
  EXCEPTION
    WHEN NO_DATA_FOUND THEN
      P_CODE    := 1;
      P_RTN_MSG := 'Testt P_MODIFY ERROR';
      RETURN;
    WHEN DUP_VAL_ON_INDEX THEN
      P_CODE    := 1;
      P_RTN_MSG := 'DUP_VAL_ON_INDEX';
      RETURN;
    WHEN OTHERS THEN
      P_CODE    := 1;
      P_RTN_MSG := SQLERRM;
  END P_MODIFY;
end Message;