set serveroutput on size 1000000;
set define off;
set feedback off;
exec dbms_output.put_line ('======================================');
exec dbms_output.put_line ('q02b_pre_0001_q02a.sql: INICIO DE EJECUCION');
exec dbms_output.put_line ('======================================');

drop SYNONYM Q022AS01V01;
drop SYNONYM Q022DS01V02;
drop SYNONYM Q022DS01V03;
drop SYNONYM Q022ES01V02;
drop SYNONYM Q022ES01V03;
drop SYNONYM Q022FS01V01;
drop SYNONYM Q022GS01V01;
drop SYNONYM Q022HS01V01;
drop SYNONYM Q022IS01V01;
drop SYNONYM Q022JS01V01;
drop SYNONYM Q022KS01V01;
drop SYNONYM Q022LS01V01;
drop SYNONYM Q022MS01V01;
drop SYNONYM Q022ZS01V01;
--drop synonym Q022GV01;
drop view Q022GV01;

exec dbms_output.put_line ('=========================');
exec dbms_output.put_line ('CREACION DEL PROCEDIMIENTO');
exec dbms_output.put_line ('=========================');
@q02b_asigna_permisos_q02a.sql;
--
--
--
exec dbms_output.put_line ('==================');
exec dbms_output.put_line ('PROCEDIMIENTO CREADO');
exec dbms_output.put_line ('==================');
--
--
--
exec dbms_output.put_line ('==============================');
exec dbms_output.put_line ('COMPILO q02b_asigna_permisos_q02a');
exec dbms_output.put_line ('==============================');
alter procedure q02b_asigna_permisos_q02a compile;
show errors;
--
--
--
exec dbms_output.put_line ('EJECUCION DEL PROCEDIMIENTO');
exec q02b_asigna_permisos_q02a;
--
--
--
exec dbms_output.put_line ('========================================');
exec dbms_output.put_line ('q02b_pre_0001_q02a.sql: FIN DE EJECUCION');
exec dbms_output.put_line ('========================================');
set serveroutput off;
commit;
exit;