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

...