set showmode off
set echo off
set heading off
set pagesize 0
set timing off
set feedback off
set linesize 80
accept tablname char prompt 'Enter table name, unless all tables: '
accept ydef char prompt 'Enter Y default, if not ''all'': '
set termout off
set verify off
spool dbc_report_seta.sql
select 'define tablname = ''' || upper('&tablname') || '_''' from dual;
spool off
@dbc_report_seta.sql
spool dbc_report_seta.sql
select 'define ydef = ''' || decode('&ydef','','all',lower('&ydef')) || ''''
from dual;
spool off
@dbc_report_seta.sql
set linesize 240
spool dbc_report_seta.sql
select 'set termout on' || chr(10) ||
'select * from system.dbc_columns where dbc_field_name = ''' || dbc_field_name ||
''';' || chr(10) ||
'accept rptset char prompt ''         Change Report Set to: '';' || chr(10) ||
'set termout off' || chr(10) ||
'spool dbc_report_setb.sql' || chr(10) ||
'select ''define rptset = '''''' || decode(lower(''' || chr(38) ||
 'rptset''),''y'',''&ydef'',lower(''' || chr(38) || 'rptset''))' ||
 ' || '''''''' from dual;' || chr(10) ||
'spool off' || chr(10) ||
'@dbc_report_setb.sql' || chr(10) ||
'update system.dbc_columns set dbc_report_set = ''' || chr(38) || 'rptset'' ' || 
'where dbc_field_name = ''' || dbc_field_name || ''' and dbc_report_set <> ''' ||
chr(38) || 'rptset'' and length(''' || chr(38) || 'rptset'') > 0;' ||
chr(10) || 'undefine rptset'
from system.dbc_columns 
where (substr(dbc_field_name,1,length('&tablname')) = '&tablname'
and length('&tablname') > 1) or (length('&tablname') = 1);
spool off
@dbc_report_seta
set linesize 80
set termout on
set heading on
set pagesize 24
set timing on
set feedback 6
set verify on
set echo on
set showmode both