Ce package Oracle présente deux outils applicatifs:
- une procédure de drop conditionnel d'objet Oracle (appartenant au schéma en cours d'utilisation).
- une procédure d'analyse d'objet Oracle (appartenant au schéma en cours d'utilisation).
Ce code m'a souvent été utile et je le conseille systématiquement lors de la mise en place d'une application PL/SQL.
Il se décompose en deux fichiers sql à passer l'un après l'autre :
- 001_tab_tools.sql : permet de créer les objets Oracle qui seront nécessaires au bon fonctionnement des outils.
- 002_pkg_tools.sql : les outils en question.
Source / Exemple :
--------------------------------------------------------------------------------
-- Nom: 001_tab_tools.sql --
-- Version: 1.0 du 07/05/2007 --
-- Auteur: Sébastien GORIAUD --
--------------------------------------------------------------------------------
-- Date de création: 07/05/2007 --
--------------------------------------------------------------------------------
-- Description: --
-- Création d'objets pour l'utilisation du package d'utilitaires --
--------------------------------------------------------------------------------
-- Notes: --
-- --
--------------------------------------------------------------------------------
-- Historique: --
-- 07/05/2007 - Création --
--------------------------------------------------------------------------------
-- Paramètres: --
-- Aucun --
--------------------------------------------------------------------------------
-- Liste des objets: --
-- TAB_LOG_ACT : table de log --
-- SEQ_LOG_ID : séquence d'identifiants de log --
--------------------------------------------------------------------------------
CREATE TABLE TAB_LOG_ACT
(
LOG_ID NUMBER(5) NOT NULL ,
LOG_TIMESTAMP DATE NOT NULL ,
LOG_ACTION VARCHAR2(100) ,
LOG_DESCRIPTION VARCHAR2(2000)
);
CREATE SEQUENCE SEQ_LOG_ID
START WITH 1
INCREMENT BY 1
MAXVALUE 99999
NOCACHE
CYCLE;
--------------------------------------------------------------------------------
-- Nom: 002_pkg_tools.sql --
-- Version: 1.0 du 07/05/2007 --
-- Auteur: Sébastien GORIAUD --
--------------------------------------------------------------------------------
-- Date de création: 07/05/2007 --
--------------------------------------------------------------------------------
-- Description: --
-- Package utilitaires --
--------------------------------------------------------------------------------
-- Notes: --
-- --
--------------------------------------------------------------------------------
-- Historique: --
-- 07/05/2007 - Création --
--------------------------------------------------------------------------------
-- Paramètres: --
-- Aucun --
--------------------------------------------------------------------------------
-- Liste des fonctions et procédures du package: --
-- PRC_LOG_ACT : procédure de log --
-- PRC_DROP_OBJ : procédure de drop conditionnel --
-- PRC_ANALYZE_OBJ : procédure d'analyse des objets --
--------------------------------------------------------------------------------
-- #############################################################################
-- ### Package PKG_TOOLS (header) ###
-- #############################################################################
CREATE OR REPLACE PACKAGE PKG_TOOLS AS
PROCEDURE PRC_LOG_ACT ( p_action IN VARCHAR2,
p_father_code IN VARCHAR2,
p_description IN VARCHAR2 );
PROCEDURE PRC_DROP_OBJ ( p_obj_name IN VARCHAR2 );
PROCEDURE PRC_ANALYZE_OBJ ( p_obj_name IN VARCHAR2 );
END PKG_TOOLS;
/
-- #############################################################################
-- ### Package PKG_TOOLS (body) ###
-- #############################################################################
CREATE OR REPLACE PACKAGE BODY PKG_TOOLS AS
PROCEDURE PRC_LOG_ACT ( p_action IN VARCHAR2,
p_father_code IN VARCHAR2,
p_description IN VARCHAR2 ) IS
PRAGMA AUTONOMOUS_TRANSACTION;
BEGIN
INSERT INTO TAB_LOG_ACT
(
LOG_ID,
LOG_TIMESTAMP,
LOG_ACTION,
LOG_DESCRIPTION
) VALUES (
SEQ_LOG_ID.NEXTVAL,
SYSDATE,
p_action,
p_father_code || ': ' || p_description
);
COMMIT;
END PRO_LOG_OCP;
PROCEDURE PRC_DROP_OBJ ( p_obj_name IN VARCHAR2 ) IS
v_nb_obj PLS_INTEGER := 0;
v_obj_type VARCHAR2(25);
v_txt_drop VARCHAR2(2000);
v_msg VARCHAR2(2000);
v_code_ret VARCHAR2(10);
EXCEP_NBOBJ EXCEPTION;
PRAGMA EXCEPTION_INIT(EXCEP_NBOBJ, -20001);
BEGIN
SELECT COUNT(*)
INTO v_nb_obj
FROM USER_OBJECTS
WHERE UPPER(OBJECT_NAME)=UPPER(p_obj_name)
AND OBJECT_TYPE IN ('TABLE', 'INDEX', 'SYNONYM', 'VIEW', 'SEQUENCE', 'PACKAGE', 'PROCEDURE');
CASE
WHEN v_nb_obj = 0 THEN
v_msg := 'Objet ' || p_obj_name || ' inexistant: aucune action requise.';
Dbms_Output.put_line(v_msg);
PKG_TOOLS.PRC_LOG_ACT('DROP OBJECT', 'PRC_DROP_OBJ', v_msg);
WHEN v_nb_obj = 1 THEN
SELECT OBJECT_TYPE
INTO v_obj_type
FROM USER_OBJECTS
WHERE UPPER(OBJECT_NAME) = UPPER(p_obj_name);
v_txt_drop := 'DROP ' || v_obj_type || ' ' || p_obj_name;
IF ( v_obj_type = 'TABLE' ) THEN v_txt_drop := v_txt_drop || ' CASCADE CONSTRAINTS';
EXECUTE IMMEDIATE v_txt_drop;
v_msg := v_txt_drop || ': exécuté.';
PKG_TOOLS.PRC_LOG_ACT('DROP OBJECT', 'PRC_DROP_OBJ', v_msg);
ELSE
v_msg := 'Plusieurs objets ' || p_obj_name || ' existent: veuillez contacter votre DBA.';
Dbms_Output.put_line(v_msg);
PKG_TOOLS.PRC_LOG_ACT('DROP OBJECT', 'PRC_DROP_OBJ', v_msg);
RAISE EXCEP_NBOBJ;
END;
EXCEPTION
WHEN OTHERS THEN
MESSAGE := MESSAGE||'ERREUR CODE : ' || SQLCODE || ' MESSAGE : ' || SQLERRM;
CODE_REJET := 'SQL' || SQLCODE;
RAISE_APPLICATION_ERROR (-20001, MESSAGE);
END PRC_DROP_OBJ;
PROCEDURE PRC_ANALYZE_OBJ ( p_obj_name IN VARCHAR2 ) IS
v_nb_obj PLS_INTEGER := 0;
v_obj_type VARCHAR2(25);
v_txt_analyze VARCHAR2(2000);
EXCEP_NBOBJ EXCEPTION;
PRAGMA EXCEPTION_INIT(EXCEP_NBOBJ, -20001);
BEGIN
SELECT COUNT(*)
INTO v_nb_obj
FROM USER_OBJECTS
WHERE UPPER(OBJECT_NAME)=UPPER(p_obj_name)
AND OBJECT_TYPE IN ('TABLE', 'INDEX');
CASE
WHEN v_nb_obj = 0 THEN
v_msg := 'Objet ' || p_obj_name || ' inexistant: aucune action requise.';
Dbms_Output.put_line(v_msg);
PKG_TOOLS.PRC_LOG_ACT('ANALYZE OBJECT', 'PRC_ANALYZE_OBJ', v_msg);
WHEN v_nb_obj = 1 THEN
SELECT OBJECT_TYPE
INTO v_obj_type
FROM USER_OBJECTS
WHERE UPPER(OBJECT_NAME) = UPPER(p_obj_name);
v_txt_analyze := 'ANALYZE ' || v_obj_type || ' ' || p_obj_name || ' COMPUTE STATISTICS';
EXECUTE IMMEDIATE v_txt_analyze;
v_msg := v_txt_analyze || ': exécuté.';
PKG_TOOLS.PRC_LOG_ACT('ANALYZE OBJECT', 'PRC_ANALYZE_OBJ', v_msg);
ELSE
v_msg := 'Plusieurs objets ' || p_obj_name || ' existent: veuillez contacter votre DBA.';
Dbms_Output.put_line(v_msg);
PKG_TOOLS.PRC_LOG_ACT('ANALYZE OBJECT', 'PRO_ANALYZE_OBJ', v_msg);
RAISE EXCEP_NBOBJ;
END;
EXCEPTION
WHEN OTHERS THEN
MESSAGE := MESSAGE||'ERREUR CODE : ' || SQLCODE || ' MESSAGE : ' || SQLERRM;
CODE_REJET := 'SQL' || SQLCODE;
RAISE_APPLICATION_ERROR (-20001, MESSAGE);
END PRC_ANALYZE_OBJ;
END PKG_TOOLS;
/
Conclusion :
N'hésitez pas à laisser des commentaires.
J'espère que ce code pourra être utile à quelqu'un.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.