Plsql包错误

Question

下面的代码出现了很多错误。我只想检查一下我的代码语法是否正确。该包背后的主要逻辑是获取特定审查的所有案例，并使用shell脚本将其假脱机到一个文件中。到目前为止，我的注意力集中在包上。

create or replace PACKAGE BODY  PK_FCP_EXTRACT is

PROCEDURE sp_fcp_extract is

     cursor Rev_cur is select * from t_uar_reviews where CREATED_DATE=trunc(sysdate) ;
       r Rev_cur%rowtype;
      cursor case_cur( c_revid IN t_uar_reviews.review_id%type )
          is select *
               from t_uar_cases where review_id= c_revid ;
     c case_cur%rowtype;
   begin
    open Rev_cur;
    loop
       fetch Rev_cur into r;
       exit when Rev_cur%notfound;
       open case_cur( r.review_id );
       loop
         fetch case_cur into c;
         exit when case_cur%notfound;
         dbms_output.put_line(c.UAR_CASE_ID||','||c.UAR_REVIEW_ID||','||c.CASE_TYPE||','||c.CASE_NMBR||','||c.ACTIVE_FLAG||','|| c.CREATED_DATE);
       end loop;
       close case_cur;
     end loop;
     close Rev_cur;
  end;

END PK_FCP_EXTRACT;

Answer 1

您的语法是正确的。

下面的测试代码可以在空模式中正常工作：

create table t_uar_reviews(
  review_id number,
  created_date date
)
/
create table t_uar_cases(
  review_id number,
  UAR_CASE_ID number,
  UAR_REVIEW_ID number,
  CASE_TYPE varchar2(10),
  CASE_NMBR number,
  active_flag varchar2(1),
  created_date date)
/

create package PK_FCP_EXTRACT is
  PROCEDURE sp_fcp_extract;
end;
/

create or replace PACKAGE BODY  PK_FCP_EXTRACT is

PROCEDURE sp_fcp_extract is

     cursor Rev_cur is select * from t_uar_reviews where CREATED_DATE=trunc(sysdate) ;
       r Rev_cur%rowtype;
      cursor case_cur( c_revid IN t_uar_reviews.review_id%type )
          is select *
               from t_uar_cases where review_id= c_revid ;
     c case_cur%rowtype;
   begin
    open Rev_cur;
    loop
       fetch Rev_cur into r;
       exit when Rev_cur%notfound;
       open case_cur( r.review_id );
       loop
         fetch case_cur into c;
         exit when case_cur%notfound;
         dbms_output.put_line(c.UAR_CASE_ID||','||c.UAR_REVIEW_ID||','||c.CASE_TYPE||','||c.CASE_NMBR||','||c.ACTIVE_FLAG||','|| c.CREATED_DATE);
       end loop;
       close case_cur;
     end loop;
     close Rev_cur;
  end;

END PK_FCP_EXTRACT;

故障的可能原因：

• 确保首先创建包规范，并在拥有t_uar_reviews和t_uar_cases的方案中创建包，或者在对表具有直接SELECT权限(而不是通过角色)的方案中创建包。
• 确保包中引用的所有列都存在于表中。

如果这些都完成了，它应该可以工作。

要简化操作，请尝试对游标循环使用以下替代语法：

for r in Rev_cur loop
  for c in Case_cur(r.review_id) loop
    ...do something..
  end loop;
end loop;

通过使用此方法，您不需要定义记录r或c；它们是隐式创建的，并且您不需要打开/获取/检查/关闭游标。