How to trap ora-28000 (account is locked) from a remote db in pl/sql ??

Question

i need to trap an ora-28000 (account is locked) exception comming from a remote db in my pl/sql block.
something like ...
declare
account_locked exception;
pragma exception_init(account_locked,-28000);
e number;
begin
begin     
select dummy into e from dual@remote;
-- assign a query to a ref cursor
exception when acount_locked then
-- assign a different query to a ref cursor (not invloving the remote table)
end;
end;
/

Answer 1

Here example, from local 10.2.0.3 to remote 8.1.7.4 :
SQL> conn system/demo102@demo102
Connected.
SQL> create database link mydbl connect to scott identified by tiger using 'demo817';
Database link created.
SQL> create or replace procedure myproc
  2  is
  3    account_locked exception;
  4    pragma exception_init(account_locked,-28000);
  5    e number;
  6  begin
  7    select count(*) into e from emp@mydbl;
  8    dbms_output.put_line('ALL WORKD FINE');
  9  exception when account_locked then dbms_output.put_line('ACCOUNT LOCKED WAS CATCHED');
10            when others then        dbms_output.put_line('ACCOUNT LOCKED WAS NOT CATCHED');
11  end;
12  /
Procedure created.
SQL> conn system/manager@demo817
Connected.
SQL> alter user scott account lock;
User altered.
SQL> conn system/demo102@demo102
Connected.
SQL> set serveroutput on
SQL> exec myproc
ACCOUNT LOCKED WAS CATCHED
PL/SQL procedure successfully completed.
SQL> Here example, from local 8.1.7.4 to remote 10.2.0.3, I got the same error as your, but nothing to do with account locked or not, need to set to FALSE the GLOBAL_NAMES on the 8i db :
SQL> conn system/manager@demo817
Connected.
SQL> create database link mydbl connect to scott identified by demo102 using 'demo102';
Database link created.
SQL> create or replace procedure myproc
  2  is
  3    account_locked exception;
  4    pragma exception_init(account_locked,-28000);
  5    e number;
  6  begin
  7    select count(*) into e from emp@mydbl;
  8    dbms_output.put_line('ALL WORKD FINE');
  9  exception when account_locked then dbms_output.put_line('ACCOUNT LOCKED WAS CATCHED');
10            when others then        dbms_output.put_line('ACCOUNT LOCKED WAS NOT CATCHED');
11  end;
12  /
create or replace procedure myproc
ERROR at line 1:
ORA-04052: error occurred when looking up remote object
[email protected]
ORA-00604: error occurred at recursive SQL level 1
ORA-02085: database link MYDBL.US.ORACLE.COM connects to
DEMO102.REGRESS.RDBMS.DEV.US.ORACLE.COM
SQL> alter system set global_names=false;
System altered.
SQL> create or replace procedure myproc
  2  is
  3    account_locked exception;
  4    pragma exception_init(account_locked,-28000);
  5    e number;
  6  begin
  7    select count(*) into e from emp@mydbl;
  8    dbms_output.put_line('ALL WORKD FINE');
  9  exception when account_locked then dbms_output.put_line('ACCOUNT LOCKED WAS CATCHED');
10            when others then        dbms_output.put_line('ACCOUNT LOCKED WAS NOT CATCHED');
11  end;
12  /
Procedure created.
SQL> conn system/demo102@demo102
Connected.
SQL> alter user scott account lock;
User altered.
SQL> conn system/manager@demo817
Connected.
SQL> set serveroutput on
SQL> exec myproc
ACCOUNT LOCKED WAS CATCHED
PL/SQL procedure successfully completed.
SQL> HTH,
Nicolas.