oracle字段精度修改,oracle number类型增加精度

create or replace type type_split as table of varchar2(4000);
/
<p>create or replace function test_split(p_list VARCHAR2, p_sep VARCHAR2) return type_split
PIPELINED IS
l_idx PLS_INTEGER;
v_list VARCHAR2(32767) := p_list;
begin
LOOP
l_idx := instr(v_list, p_sep);
IF l_idx > 0 THEN
PIPE ROW(substr(v_list, 1, l_idx - 1));
v_list := substr(v_list, l_idx + length(p_sep));
ELSE
PIPE ROW(v_list);
EXIT;
END IF;
END LOOP;
RETURN;
end test_split;
/

create or replace procedure changefield
(tablename in varchar2,
fieldname in varchar2
) as
CURSOR c1
IS
SELECT <em> FROM table(test_split(fieldname,','));
begin
execute immediate 'create table temp_table as select </em> from '|| tablename;
execute immediate 'DELETE FROM '|| tablename;
FOR x IN c1
LOOP
execute immediate 'alter table ' || tablename || ' modify ' || x.column_value || ' NUMBER(38, 0)';
END LOOP;
execute immediate 'INSERT INTO '|| tablename||' SELECT * FROM temp_table';
execute immediate 'DROP TABLE temp_table';
end;
/

exec changefield('A25','A2517,SORT');
exec changefield('A36','A3617');