Error, while runing anonymous block

Question

Hi All,
I am running following anonymous block and that throwing following errors. Failed to understand why ?
===
SQL> set serveroutput on size 100000
SQL> declare
v_paswd  varchar2(30) ;
begin
  2    3    4  for i in ( select distinct owner from dba_db_links) loop
  5  select password into v_paswd from dba_users where username = i.owner;
  6  dbms_output.put_line('connect / ' ) ;
  7  dbms_output.put_line ( ' alter user '||i.owner||' identified by a; ') ;
  8  dbms_output.put_line('connect '||i.owner||'/a' ) ;
  9  dbms_output.put_line(' alter user '||i.owner||' identified by values '''||v_paswd||''' ;' );
10   for ii in ( select db_link from dba_Db_links where owner=i.owner ) loop
11       dbms_output.put_line(' drop database link '||ii.db_link||' ; ');
12     end loop;
13   end loop;
14   end;
15  /
declare
ERROR at line 1:
ORA-01403: no data found
ORA-06512: at line 5
++++
OWNER                          DB_LINK
PUBLIC                         MSSQL.US.DB.COM
STS                            CORE.US.DB.COM
STS                            CREAM.US.DB.COM
STS                            CREAM_NYSTSU.US.DB.COM
STS                            DBI_FIDM.US.DB.COM
STS                            DBI_MBS.US.DB.COM
STS                            DBMTG.US.DB.COM
STS                            DBMTG_DEV.US.DB.COM
STS                            DBMTG_NEW.US.DB.COM
STS                            DBMTG_UAT.US.DB.COM
STS                            DONOTUSE_PROD.US.DB.COM
STS                            DTE.US.DB.COM
STS                            FICS_PROD.US.DB.COM
SQL>  select distinct owner from dba_db_links ;
OWNER
PUBLIC
STS_RO
SMS
CREAM
CORE
STS
====hare krishna

Answer 1

Modify your code like this and try
declare
  v_paswd  varchar2(30) ;
begin
  for i in ( select password,
                    username
               from dba_users
              where username in (select distinct owner from dba_db_links)) loop
    dbms_output.put_line('connect / ' ) ;
    dbms_output.put_line ( ' alter user '||i.username||' identified by a; ') ;
    dbms_output.put_line('connect '||i.username||'/a' ) ;
    dbms_output.put_line(' alter user '||i.username||' identified by values '''||i.password||''' ;' );
    for ii in ( select db_link from dba_Db_links where owner=i.username) loop
       dbms_output.put_line(' drop database link '||ii.db_link||' ; ');
    end loop;
  end loop;
end;