SQL>
SQL> begin
2 for x in (select ename from scott.emp where ename <> 'SCOTT')
3 loop
4 execute immediate 'grant connect to ' || x.ename ||
5 ' identified by ' || x.ename;
6 end loop;
7 end;
8 /
SQL>