--
-- Show NLS default parameters for each territory
--
set echo off termout off feed on pages 0 numwidth 10 linesize 80
spool nls_terr.sql
select 'set echo off termout off feed off pages 0' || chr(10) ||
       'spool nls_list.lis' || chr(10) ||
	   'prompt LISTING OF DEFAULT VALUES FOR TERRITORIES' || chr(10) ||
	   'prompt -----------------------------------------'
from dual
/

select 'prompt TERRITORY: ' || value || chr(10) ||
       'alter session set nls_territory=''' || value || ''';' || chr(10) ||
	   'select ''  Date format: '' || sysdate,' || 'chr(10),' || chr(10) ||
	   '''Group Separator: ''' ||
	      ' || replace(replace(to_char(1111,''9G999''),''1'',''''),'' '',''''),'
		  || 'chr(10),' || chr(10) ||
	   '''     Decimal Point: ''' ||
	      ' || replace(replace(to_char(1.1,''9D9''),''1'',''''),'' '',''''),'
		  || 'chr(10),' || chr(10) ||
       '''   Example: ''' ||
	      ' || replace(to_char(1234.123,''9G999D999''),'' '',''''),'
		  || 'chr(10),' || chr(10) ||
	   '''  Local currency: ''' ||
	      ' || replace(replace(to_char(1,''L9''),''1'',''''),'' '',''''),'
		  || chr(10) || 'chr(10),' ||
	   '''International currency: ''' ||
	      ' || replace(to_char(1,''C9''),''1'',''''),'
		  || 'chr(10)' || chr(10) ||
	   'from dual;' || chr(10)
from v$nls_valid_values
where parameter = 'TERRITORY'
order by value
/

select 'spool off' from dual
/
spool off

@nls_terr.sql