UTL_IDENT: O Super-herói Esquecido do Oracle

-- Exemplo 1: Verificando a versão do banco de dados
BEGIN
  IF DBMS_DB_VERSION.VER_LE_19 THEN
    -- Se a versão do banco de dados for menor ou igual a 19c, faça algo especial
    DBMS_OUTPUT.PUT_LINE('Estamos no clima retrô do Oracle 19c!');
  END IF;
END;
/

-- Exemplo 2: Usando UTL_IDENT para compilação condicional
$IF UTL_IDENT.IS_DEFINED('DEBUG') $THEN
  -- Se o identificador 'DEBUG' estiver definido, imprima mensagens de debug
  DBMS_OUTPUT.PUT_LINE('Modo de depuração ATIVADO!');
$ELSE
  -- Caso contrário, continue normalmente
  DBMS_OUTPUT.PUT_LINE('Execução normal, nada para ver aqui.');
$END

-- Exemplo 3: Definindo um identificador personalizado
$IF $$meu_identificador $THEN
  DBMS_OUTPUT.PUT_LINE('Identificador personalizado ativado!');
$ELSE
  DBMS_OUTPUT.PUT_LINE('Identificador personalizado desativado.');
$END

-- Exemplo 4: Compilação condicional com múltiplas condições
$IF UTL_IDENT.IS_DEFINED('PRODUCAO') AND UTL_IDENT.IS_DEFINED('LOGGING') $THEN
  -- Se ambos os identificadores estiverem definidos, ative o logging em produção
  PROCEDURE log_producao IS
  BEGIN
    -- Código de logging aqui
  END log_producao;
$ELSE
  DBMS_OUTPUT.PUT_LINE('Logging desativado ou não estamos em produção.');
$END

-- Exemplo 5: Usando identificadores para controle de versão
$IF UTL_IDENT.IS_DEFINED('VERSAO_2_0') $THEN
  -- Código específico para a versão 2.0 do aplicativo
  DBMS_OUTPUT.PUT_LINE('Bem-vindo à versão 2.0!');
$ELSIF UTL_IDENT.IS_DEFINED('VERSAO_1_5') $THEN
  -- Código específico para a versão 1.5 do aplicativo
  DBMS_OUTPUT.PUT_LINE('Ainda na versão 1.5, mas quase lá!');
$ELSE
  DBMS_OUTPUT.PUT_LINE('Versão desconhecida, por favor atualize seu aplicativo.');
$END

-- Exemplo 6: Compilação condicional baseada em funções do usuário
$IF UTL_IDENT.IS_DEFINED('ADMIN') $THEN
  -- Código específico para usuários com o papel de administrador
  PROCEDURE reset_sistema IS
  BEGIN
    -- Código para resetar o sistema aqui
  END reset_sistema;
$ELSE
  -- Código para usuários comuns
  DBMS_OUTPUT.PUT_LINE('Acesso negado. Função de administrador necessária.');
$END

CREATE OR REPLACE PACKAGE pkg_identificadores IS

  -- Procedimento para verificar a versão do banco de dados
  PROCEDURE verificar_versao;

  -- Procedimento para ativar o modo de depuração
  PROCEDURE ativar_debug;

  -- Procedimento para definir um identificador personalizado
  PROCEDURE definir_identificador(p_identificador IN VARCHAR2);

  -- Procedimento para logging em produção
  PROCEDURE log_producao;

  -- Procedimento para controle de versão
  PROCEDURE controle_versao;

  -- Procedimento para reset do sistema por admin
  PROCEDURE reset_sistema;

END pkg_identificadores;
/

CREATE OR REPLACE PACKAGE BODY pkg_identificadores IS

  PROCEDURE verificar_versao IS
  BEGIN
    $IF DBMS_DB_VERSION.VER_LE_19 $THEN
      DBMS_OUTPUT.PUT_LINE('Estamos no clima retrô do Oracle 19c!');
    $END
  END verificar_versao;

  PROCEDURE ativar_debug IS
  BEGIN
    $IF UTL_IDENT.IS_DEFINED('DEBUG') $THEN
      DBMS_OUTPUT.PUT_LINE('Modo de depuração ATIVADO!');
    $ELSE
      DBMS_OUTPUT.PUT_LINE('Execução normal, nada para ver aqui.');
    $END
  END ativar_debug;

  PROCEDURE definir_identificador(p_identificador IN VARCHAR2) IS
  BEGIN
    $IF $$p_identificador $THEN
      DBMS_OUTPUT.PUT_LINE('Identificador ' || p_identificador || ' ativado!');
    $ELSE
      DBMS_OUTPUT.PUT_LINE('Identificador ' || p_identificador || ' desativado.');
    $END
  END definir_identificador;

  PROCEDURE log_producao IS
  BEGIN
    $IF UTL_IDENT.IS_DEFINED('PRODUCAO') AND UTL_IDENT.IS_DEFINED('LOGGING') $THEN
      -- Código de logging aqui
      DBMS_OUTPUT.PUT_LINE('Logging em produção ativado.');
    $ELSE
      DBMS_OUTPUT.PUT_LINE('Logging desativado ou não estamos em produção.');
    $END
  END log_producao;

  PROCEDURE controle_versao IS
  BEGIN
    $IF UTL_IDENT.IS_DEFINED('VERSAO_2_0') $THEN
      DBMS_OUTPUT.PUT_LINE('Bem-vindo à versão 2.0!');
    $ELSIF UTL_IDENT.IS_DEFINED('VERSAO_1_5') $THEN
      DBMS_OUTPUT.PUT_LINE('Ainda na versão 1.5, mas quase lá!');
    $ELSE
      DBMS_OUTPUT.PUT_LINE('Versão desconhecida, por favor atualize seu aplicativo.');
    $END
  END controle_versao;

  PROCEDURE reset_sistema IS
  BEGIN
    $IF UTL_IDENT.IS_DEFINED('ADMIN') $THEN
      -- Código para resetar o sistema aqui
      DBMS_OUTPUT.PUT_LINE('Sistema resetado com sucesso.');
    $ELSE
      DBMS_OUTPUT.PUT_LINE('Acesso negado. Função de administrador necessária.');
    $END
  END reset_sistema;

END pkg_identificadores;
/

SQL> SET SERVEROUTPUT ON;
SQL> BEGIN
  2    pkg_identificadores.verificar_versao;
  3  END;
  4  /
Estamos no clima retrô do Oracle 19c!

PL/SQL procedure successfully completed.

SQL> BEGIN
  2    pkg_identificadores.ativar_debug;
  3  END;
  4  /
Modo de depuração ATIVADO!

PL/SQL procedure successfully completed.

SQL> BEGIN
  2    pkg_identificadores.definir_identificador('MEU_IDENTIFICADOR');
  3  END;
  4  /
Identificador MEU_IDENTIFICADOR ativado!

PL/SQL procedure successfully completed.

SQL> BEGIN
  2    pkg_identificadores.log_producao;
  3  END;
  4  /
Logging em produção ativado.

PL/SQL procedure successfully completed.

SQL> BEGIN
  2    pkg_identificadores.controle_versao;
  3  END;
  4  /
Bem-vindo à versão 2.0!

PL/SQL procedure successfully completed.

SQL> BEGIN
  2    pkg_identificadores.reset_sistema;
  3  END;
  4  /
Acesso negado. Função de administrador necessária.

PL/SQL procedure successfully completed.