PL/SQL在循环内执行立即异常处理

Question

在下面的PL/SQL代码中，TABLE_ONE保存表名tname，列名cname和rowid rid。 For循环从TABLE_ONE获取记录，并更新表tname中的列cname，以获得行id为rid的记录。但是如果在tname中更新的记录被锁定，那么for循环会卡住，并且不会处理来自TABLE_ONE的其他记录。理想情况下，脚本忽略更新失败的记录并继续进行。请告知可能是什么问题。

BEGIN 
    FOR c IN (SELECT * FROM TABLE_ONE a) 
    LOOP 
     DECLARE 
      TNAME varchar2(30); 
      CNAME varchar2(30); 
      RID ROWID; 
      X number; 
      updt_stmt varchar2(300); 
     BEGIN 
      BEGIN 
      TNAME := c.TNAME; 
      CNAME := c.CNAME; 
      RID := c.RID;     
      DBMS_OUTPUT.PUT_LINE(TNAME || '=>' || CNAME); 
      updt_stmt := 'UPDATE ' || TNAME || ' SET ' || CNAME || ' = ''123'' WHERE ROWID like ''%' || RID || '%''';     
      EXECUTE IMMEDIATE updt_stmt; 

      EXCEPTION 
      WHEN OTHERS THEN 
      DBMS_OUTPUT.PUT_LINE('ERROR'); 

      END; 
     END; 
    END LOOP; 
END; 

Answer 1

未经检验的，但我认为你可以先尝试锁定与FOR UPDATE记录，并通过指定NOWAIT导致失败，如果其他一些交易活跃。然后你可以捕获这个异常并跳过处理。这是一个未经测试的例子：

DECLARE 
    x ROWID; 
    resource_busy EXCEPTION; 
    PRAGMA EXCEPTION_INIT(resource_busy, 
         -00054); 
BEGIN 
    FOR c IN (SELECT * 
       FROM table_one a) 
    LOOP 
    DECLARE 
     tname  VARCHAR2(30); 
     cname  VARCHAR2(30); 
     rid  ROWID; 
     x   NUMBER; 
     updt_stmt VARCHAR2(300); 
    BEGIN 
     BEGIN 
     tname := c.tname; 
     cname := c.cname; 
     rid := c.rid; 
     dbms_output.put_line(tname || '=>' || cname); 

     BEGIN 
      EXECUTE IMMEDIATE 'SELECT rowid FROM ' || tname || 
          ' WHERE rowid = :x FOR UPDATE NOWAIT' 
      INTO x 
      USING rid; 
     EXCEPTION 
      WHEN resource_busy THEN 
      dbms_output.put_line('Record locked; try again later.'); 
      CONTINUE; 
     END; 

     updt_stmt := 'UPDATE ' || tname || ' SET ' || cname || 
        ' = ''123'' WHERE ROWID like ''%' || rid || '%'''; 
     EXECUTE IMMEDIATE updt_stmt; 

     EXCEPTION 
     WHEN OTHERS THEN 
      dbms_output.put_line('ERROR'); 

     END; 
    END; 
    END LOOP; 
END;