-54错误

 DECLARE
  -- LOCAL VARIABLES HERE
  I INTEGER;
 
  -- TEST STATEMENTS HERE
  CURSOR CUR IS
  SELECT KEY1 FROM TBL1
  WHERE KEY1 = '001'
  FOR UPDATE OF KEY1 NOWAIT;
 
BEGIN
  OPEN CUR;
  CLOSE CUR;
 
EXCEPTION
WHEN OTHERS THEN

    IF SQLCODE = -54 THEN
        SELECT 1 INTO I FROM DUAL;
        DBMS_OUTPUT.PUT_LINE(SQLERRM);
        DBMS_OUTPUT.PUT_LINE('ERROR54');
        BEGIN
        CLOSE CUR;
        EXCEPTION
        WHEN OTHERS THEN
           DBMS_OUTPUT.PUT_LINE('ERROR:ATTEMPT TO CLOSE CURSOR');
           DBMS_OUTPUT.PUT_LINE(SQLERRM);
        END;
    END IF;

END;