怎样在数据字典中直接修改Oracle表列名

SQL>SHUTDOWN 　　
SQL>STARTUP

　　SQL> SELECT * FROM SCOTT.TEST; 
　　
　　EMP_NAME EMP_NO 
　　
　　---------- ------ 
　　
　　SMITH 7369 
　　
　　ALLEN 7499 
　　
　　WARD 7521 
　　
　　……

SQL>exec altercolname
(‘模式名称’,‘表名称’,‘原列名称’,‘新列名称’); 
　　
　　create or replace procedure sys.altercolname 
　　
　　(schmaname in varchar2, 
　　
　　tabname in varchar2, 
　　
　　oldcolname in varchar2, 
　　
　　newcolname in varchar2) is 
　　
　　n_schmaname varchar2(30); --模式名称 
　　
　　n_tablename varchar2(30); --表名称 
　　
　　n_oldcolname varchar2(30); --原来列名称 
　　
　　n_newcolname varchar2(30); --新的列名称 
　　
　　n_objnum number; 
　　
　　begin 
　　
　　n_schmaname := upper(schmaname); 
　　
　　n_tablename := upper(tabname); 
　　
　　n_oldcolname := upper(oldcolname); 
　　
　　n_newcolname := upper(newcolname); 
　　
　　SELECT OBJECT_ID INTO n_objnum 
　　
　　FROM ALL_OBJECTS 
　　
　　WHERE OWNER = n_schmaname 
　　
　　AND OBJECT_NAME=n_tablename; 
　　
　　UPDATE SYS.COL$ 
　　
　　SET NAME=n_newcolname 
　　
　　WHERE OBJ# = n_objnum AND 
　　
　　NAME=n_oldcolname; 
　　
　　COMMIT; 
　　
　　end altercolname;