Вернуться

Листинг 2. Процедура экспорта из пакета Oracle DBMS_JAVA

Листинг 2

Процедура экспорта из пакета Oracle DBMS_JAVA позволяет извлекать 
исходный код Java-объектов схемы.

/* showjava.sp */
CREATE OR REPLACE PROCEDURE show_java_source (
	name IN VARCHAR2,
	schema IN VARCHAR2 := NULL
	)
IS
	b CLOB;
	v VARCHAR2(2000) ;
	i INTEGER ;
BEGIN
	/* Поместить исходный код Java в CLOB. */
	DBMS_LOB.CREATETEMPORARY (b, FALSE);
	DBMS_JAVA.EXPORT_SOURCE (name, NVL (schema, USER), b);
	/* Прочитать CLOB в переменную типа VARCHAR2 и отобразить ее. */
	 i := 1000;
	DBMS_LOB.READ (b, i, 1, v);
	pl (v); /* запустить pl.sp для создания этой процедуры */
END;
/

Вернуться