rem $DBA/copyusl.sql
rem Generate a list of the non-default roles for the specified username
rem
set term off echo off pagesize 0 linesize 80 feedback off verify off
set heading off
set concat +
spool copyusl_&&1.tmp
set concat .
select granted_role from dba_role_privs
where grantee = upper('&&1') and default_role = 'NO';
spool off;
exit