如何从PLSQL代码中的if块迭代调用过程？

Question

我试图在一个包中调用一个驱动过程中的多个过程。逻辑是这样的:如果它遇到来自查找表的特定值，它应该调用特定的过程，并继续为该查找表中的所有后续值调用后续过程。问题是，我的代码在这样做的时候陷入了无限循环。有人能帮我解决这个问题吗？

PROCEDURE TEST(
    a_archiveDays_in             IN NUMBER,
    a_amountInstancesToCommit_in IN NUMBER,
    a_result_out OUT INTEGER,
    a_resultException_out OUT VARCHAR,
    stage_val OUT NUMBER)
IS
  i NUMBER :=0;
BEGIN
  FOR rec IN (SELECT stage FROM completion_status WHERE status_id IS NOT NULL)
  LOOP
    i := i+1;
    IF rec.stage =1 THEN
      DBMS_output.put_line('Starting Shipment Data population');
      /*populate_shipment_data(a_archiveDays_in ,
      a_resultException_out , a_result_out );*/
    ELSIF rec.stage = 2 THEN
      DBMS_output.put_line('Starting Document data population');
      /* populate_document_data(a_archiveDays_in,
      a_resultException_out , a_result_out);*/
    ELSIF rec.stage =3 THEN
      DBMS_output.put_line('Starting Shipment Archiving');
      shipment_archive (a_archiveDays_in,a_amountInstancesToCommit_in,a_result_out,a_resultException_out );
    ELSIF rec.stage =4 THEN
      DBMS_output.put_line('Starting shipment Master deletion');
      shipment_mast_del (a_archiveDays_in,a_amountInstancesToCommit_in,a_result_out ,a_resultException_out);
    elsif rec.stage =5 THEN
      DBMS_output.put_line('Starting Document Archiving');
      document_archive(a_archiveDays_in,a_amountInstancesToCommit_in,a_result_out ,a_resultException_out );
    elsif rec.stage =0 THEN
      DBMS_output.put_line('Archival Completed...');
    END IF;
  END LOOP;
EXCEPTION
WHEN NO_DATA_FOUND THEN
  DBMS_output.put_line('Check Log Table for more info');
WHEN too_many_rows THEN
  DBMS_output.put_line('Not Allowed');
WHEN OTHERS THEN
  DBMS_output.put_line('Check');
  a_result_out          := SQLCODE;
  a_resultException_out := SUBSTR(SQLERRM, 1, 3000);
END TEST;
/

Answer 1

问题是，我的代码在这样做的时候进入了无限循环。

您的循环中没有EXIT语句。为了防止无限循环，您必须使用EXIT或EXIT WHEN，或者在transfer transfer到循环末尾时引发异常。

请研究以下链接：

Basic LOOP statement

随着循环的每次迭代，语句运行，控制返回到循环的顶部。若要防止无限循环，语句或引发的异常必须退出循环。

EXIT statement

EXIT语句无条件地退出循环的当前迭代，并将控制转移到当前循环或封闭标记的循环的末尾。

简单的例子：

   i := 0;
   LOOP
     ...
     ...
     IF i > 9 THEN
         EXIT;
     END IF;
     i := i + 1;
   END LOOP

EXIT WHEN statement

当

语句的WHEN子句中的条件为true时，EXIT when语句退出循环的当前迭代，并将控制转移到当前循环或封闭标记的循环的末尾。

每次控件到达EXIT WHEN语句时，都会计算其WHEN子句中的条件。如果条件不为真，则EXIT WHEN语句不执行任何操作。为防止无限循环，循环内的语句必须使条件为真

简单的例子：

i := 0;
LOOP
  ....
  ....
  EXIT WHEN i > 9;
  i := i + 1;
END LOOP;