Procedimiento Para Lectura Del Diccionario De Datos

CREATE OR REPLACE PROCEDURE DESARROLLO.autogen_codigo_primer_grado

IS

--

--

v_ejecucion_proceso VARCHAR2 (3) := '001';

-- 001 -QUE SE EJECUTAN EN EL SERVIDOR // --002 EN EL FORMULARIO

v_grado_objeto VARCHAR2 (3) := '001';

-- QUE SON DE XX GRADO

--

--

CURSOR tablas

IS

SELECT objeto.id_esquema, objeto.id_objeto,

codigo_fuente.oracle_funcion,

codigo_fuente_grado.orden_creacion

FROM codigo_fuente,

ejecucion_proceso,

esquema,

objeto,

codigo_fuente_objeto,

grado_objeto,

codigo_fuente_grado

WHERE ( (ejecucion_proceso.id_ejecucion_proceso =

codigo_fuente.id_ejecucion_proceso

)

AND (esquema.id_esquema = objeto.id_esquema)

AND (codigo_fuente.id_codigo_fuente =

codigo_fuente_objeto.id_codigo_fuente

)

AND (objeto.id_esquema = codigo_fuente_objeto.id_esquema)

AND (objeto.id_objeto = codigo_fuente_objeto.id_objeto)

AND (grado_objeto.id_grado_objeto = objeto.id_grado_objeto)

AND (codigo_fuente.id_codigo_fuente =

codigo_fuente_grado.id_codigo_fuente

)

AND (grado_objeto.id_grado_objeto =

codigo_fuente_grado.id_grado_objeto

)

AND ((ejecucion_proceso.id_ejecucion_proceso =

v_ejecucion_proceso

)

)

AND ((grado_objeto.id_grado_objeto = v_grado_objeto))

/*

AND (codigo_fuente.id_codigo_fuente IN ( '001','003'));

AND (LENGTH (objeto.id_objeto) >= 20)

*/

AND (objeto.id_esquema = 'SAPISCO')

)

ORDER BY esquema.id_esquema ASC,

objeto.id_objeto ASC,

codigo_fuente_grado.orden_creacion ASC,

codigo_fuente.oracle_funcion ASC;

--

--

v_codigo_fuente_generado VARCHAR2 (2000);

--

--

BEGIN

--

--

FOR x IN tablas

LOOP

--

DBMS_OUTPUT.put_line ( '-- '

|| x.id_esquema

|| '.'

|| x.id_objeto

|| ' --> '

|| x.oracle_funcion

);

--

--

DBMS_OUTPUT.put_line

('----------------------------------------------------------------');

/* -- SE USO POR UN ERROR EN EL NOMBRE DE LOS TRIGGER -- MAX 30 CHARS

DBMS_OUTPUT.put_line ( 'DROP TRIGGER '

|| 'PREINSUPD_'

|| SUBSTR (x.id_objeto, 1, 10)

|| '; '

);

objeto.id_esquema, objeto.id_objeto, codigo_fuente.oracle_funcion

...