CREATE OR REPLACE VIEW CAMPOS_NULOS AS(
  SELECT NULL              AS CADENA_VACIA,
         TO_NUMBER( NULL ) AS NUMERO_VACIO,
         TO_DATE( NULL )   AS FECHA_VACIA
  FROM DUAL )
/

CREATE OR REPLACE VIEW CAMPOS_NULOS AS(
  SELECT CAST( NULL AS VARCHAR2(20) ) AS CADENA_VACIA,
         CAST( NULL AS NUMBER(4) )    AS NUMERO_VACIO,
         CAST( NULL AS DATE )         AS FECHA_VACIA
  FROM DUAL )
/

-- Especificación
CREATE OR REPLACE PACKAGE PPRUEBA IS 
  FUNCTION vValorCte RETURN VARCHAR2 DETERMINISTIC;
    PRAGMA RESTRICT_REFERENCES( vValorCte, RNDS, RNPS, WNDS, WNPS );
    -- Función que devuelve el valor de la constante VCONSTANTE
 
  FUNCTION nSuma( nValorA NUMBER, nValorB NUMBER ) 
  RETURN NUMBER DETERMINISTIC;
    PRAGMA RESTRICT_REFERENCES( nSuma, RNDS, RNPS, WNDS, WNPS );
    -- Función que devuelve la suma de los dos valores que le pasan 
    -- como parámetro.
 
  FUNCTION nSumaNoDeterminante( nValorA NUMBER, nValorB NUMBER ) 
  RETURN NUMBER;
    PRAGMA RESTRICT_REFERENCES( nSumaNoDeterminante, 
                                RNPS, WNDS, WNPS );
    -- Función que devuelve la suma de los dos valores que le pasan 
    -- como parámetro. Como hace una select de dual no puede hacerse
    -- deterministic
END;
/
SHOW ERRORS
 
-- Cuerpo
CREATE OR REPLACE PACKAGE BODY PPRUEBA IS 
  -------------
  -- Constantes
  -------------
  VCONSTANTE CONSTANT VARCHAR2(6) := 'PRUEBA';
 
  FUNCTION vValorCte RETURN VARCHAR2 DETERMINISTIC IS 
    -- Función que devuelve el valor de la constante VCONSTANTE
  BEGIN 
    RETURN VCONSTANTE;
  END vValorCte;
 
  FUNCTION nSuma( nValorA NUMBER, nValorB NUMBER ) 
  RETURN NUMBER DETERMINISTIC IS 
    -- Función que devuelve la suma de los dos valores que le pasan 
    -- como parámetro.
  BEGIN 
    RETURN nValorA + nValorB;
  END nSuma;
 
  FUNCTION nSumaNoDeterminante( nValorA NUMBER, nValorB NUMBER ) 
  RETURN NUMBER IS 
    -- Función que devuelve la suma de los dos valores que le pasan 
    -- como parámetro. Como hace una select de dual no puede hacerse
    -- deterministic
    ------------
    -- Variables
    ------------
    nSumaTotal NUMBER;
  BEGIN 
    SELECT nValorA + nValorB
    INTO   nSumaTotal
    FROM   DUAL;
 
    RETURN nSumaTotal;
  END nSumaNoDeterminante;
END;
/
SHOW ERRORS

FUNCTION esCadenaNumerica( vCadena VARCHAR2 ) RETURN VARCHAR2 IS 
  ------------
  -- Variables
  ------------
  nTonta NUMBER;
BEGIN 
  nTonta := TO_NUMBER( vCadena );
 
  -- Si llego hasta aquí es que el número es válido.
  RETURN 'TRUE';
EXCEPTION
  WHEN VALUE_ERROR THEN
    -- El número no es válido.
    RETURN 'FALSE';
END;

SELECT VVALOR
FROM   TABLA
WHERE  NombrePaquete.esCadenaNumerica( VVALOR ) = 'FALSE'

SELECT VVALOR
FROM   TABLA
WHERE  REGEXP_LIKE( VVALOR, '[^0-9]')
/

--------------
-- Sección Set
--------------
SET LINES  100
SET HEADING ON
SET VERIFY OFF
-------------------------
-- Definición de columnas
-------------------------
COLUMN CLAVE_PRIMARIA FORMAT A1
COLUMN COLUMN_NAME    FORMAT A20
COLUMN TIPO           FORMAT A15
COLUMN DEFECTO        FORMAT A15
COLUMN COMENTARIO     FORMAT A43
COLUMN COMMENTS       FORMAT A69
COLUMN TABLA_FORANEA  FORMAT A20
 
-------------
-- Parámetros
-------------
ACCEPT tabla PROMPT "Escribe el nombre de la tabla: "
PROMPT .
----------
-- Selects
----------
PROMPT TABLA
SELECT TABLE_NAME, COMMENTS
FROM   USER_TAB_COMMENTS
WHERE  TABLE_NAME = UPPER( '&&tabla' )
/
SELECT P.PK CLAVE_PRIMARIA,
       M.COLUMN_NAME, 
       M.DATA_TYPE || DECODE( M.DATA_TYPE, 
                              /*************************************/
                              'DATE', NULL, -- Poner aquí los tipos
                              'LONG', NULL, -- de varible para los 
                              'BLOB', NULL, -- que no queramos ver
                              'CLOB', NULL, -- la precisión
                              /*************************************/
                              '(' || TO_CHAR( NVL( M.DATA_PRECISION, 
                                                   M.DATA_LENGTH))||
                              DECODE( M.DATA_SCALE, NULL, NULL, 
                                      ',' ||
                                      TO_CHAR( M.DATA_SCALE ) ) ||
                              ')' ) TIPO,
       M.NULLABLE,
       M.DATA_DEFAULT DEFECTO,
       C.COMMENTS COMENTARIO
FROM   ( SELECT N.TABLE_NAME, L.COLUMN_NAME, '*' PK
         FROM   USER_CONS_COLUMNS L, USER_CONSTRAINTS N
         WHERE  L.CONSTRAINT_NAME = N.CONSTRAINT_NAME
           AND  N.TABLE_NAME = UPPER( '&&tabla' )
           AND  N.CONSTRAINT_TYPE = 'P' ) P, -- Clave primaria
       USER_TAB_COLUMNS M, USER_COL_COMMENTS C
WHERE  M.TABLE_NAME  = C.TABLE_NAME
  AND  M.COLUMN_NAME = C.COLUMN_NAME
  AND  M.TABLE_NAME  = P.TABLE_NAME  (+)
  AND  M.COLUMN_NAME = P.COLUMN_NAME (+)
  AND  M.TABLE_NAME  = UPPER( '&&tabla' )
ORDER BY M.COLUMN_ID
/
PROMPT CLAVE FORÁNEA
 
BREAK ON TABLA_FORANEA
SELECT A.CONSTRAINT_NAME, B.TABLE_NAME TABLA_FORANEA, C.COLUMN_NAME
FROM   USER_CONS_COLUMNS C, USER_CONSTRAINTS A, USER_CONSTRAINTS B
WHERE  A.R_CONSTRAINT_NAME = B.CONSTRAINT_NAME
  AND  A.CONSTRAINT_NAME   = C.CONSTRAINT_NAME
  AND  A.TABLE_NAME        = UPPER( '&&tabla' )
  AND  A.CONSTRAINT_TYPE   = 'R'
ORDER BY A.CONSTRAINT_NAME, B.TABLE_NAME, C.POSITION
/
SET VERIFY ON