CREATE OR REPLACE PROCEDURE get_source
(v_object_type in varchar2,
v_obejct_name in varchar2,
v_owner in varchar2)
is
v_text long;
BEGIN
SELECT DBMS_METADATA.GET_DDL ('v_object_type', 'v_obejct_name', 'v_owner')
FROM DUAL;
DBMS_OUTPUT.PUT_LINE('TEXT : '||v_text||' ');
END;
/
CREATE OR REPLACE PROCEDURE get_source ( v_object_type IN varchar2, v_obejct_name IN varchar2, v_owner IN VARCHAR2 ) IS v_text long; BEGIN DBMS_OUTPUT.ENABLE ; SELECT DBMS_METADATA.GET_DDL (v_object_type, v_obejct_name, v_owner) INTO v_text FROM DUAL; DBMS_OUTPUT.PUT_LINE('TEXT : '||v_text||' '); END; 실행은 DECLARE V_OBJECT_TYPE VARCHAR2(32767); V_OBEJCT_NAME VARCHAR2(32767); V_OWNER VARCHAR2(32767); BEGIN V_OBJECT_TYPE := 'PROCEDURE'; V_OBEJCT_NAME := 'KK'; V_OWNER := 'IDO'; IDO.GET_SOURCE ( V_OBJECT_TYPE, V_OBEJCT_NAME, V_OWNER ); COMMIT; END;