rem
rem Create the ALIASES.TXT file for TOAD Aliases
rem Put this file in the <TOAD Home>\temps directory, restart TOAD
rem

set heading off
set feedback off

spool c:\temp\ALIASES.TXT
select object_name || '=' || substr(object_name,1,5)
from user_objects
where object_type = 'TABLE';
spool off