select object_name ,object_type from user_objects where object_type('procedure','function','package','package booy') //查用Oracle存储对象

desc user_source // 获得程序文本