Paquete UTL_INADDR Script de descripción de tablas mejorado
Jul 20

Cuando creo una vista, me gusta ponerle comentarios a ella y también a sus columnas. Normalmente es un rollo porque tengo que copy-pastearme las columnas y luego ir haciendo el comment on column. Lo peor del copy-paste es que es muy fácil cometer errores inadvertidamente (y cambiarle los comentarios a otra tabla o cosas por el estilo). Por esto y por gandulería informática, me he hecho un script para ahorrame trabajo y errores. El script me genera las sentencias comment y ya sólo me queda ir llenando los comentarios.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
-- Script para obtener la lista de create comments
-- http://www.tsoracle.com
--------------
-- Sets varios
--------------
SET LINES 120
SET PAGES 1000
SET HEADING OFF
SET VERIFY OFF
 
---------------------
-- Valores de entrada
---------------------
ACCEPT PROPIETARIO PROMPT "Propietario del esquema: "
ACCEPT TABLAOVISTA PROMPT "Nombre de la tabla o vista: "
 
--------------------------------------
-- Selects para la obtención de datos
-------------------------------------
-- Comentario para la tabla o vista
SELECT 'COMMENT ON TABLE &&PROPIETARIO..&&TABLAOVISTA ' ||
       ' IS ''''' || CHR(10) ||
       '/'
FROM DUAL
/
-- Comentario para las columnas de la tabla o vista
SELECT 'COMMENT ON COLUMN ' || 
       OWNER       || '.' ||
       TABLE_NAME  || '.' ||
       COLUMN_NAME || 
       ' IS '''''    || CHR(10) ||
       '/'
FROM   ALL_TAB_COLS
WHERE  OWNER      = UPPER( '&&PROPIETARIO' )
  AND  TABLE_NAME = UPPER( '&&TABLAOVISTA' )
ORDER BY COLUMN_ID
/
----------------------------
-- Restauro heading y verify
----------------------------
SET VERIFY ON 
SET HEADING ON
This work, unless otherwise expressly stated, is licensed under a Creative Commons Attribution 3.0 License.

Comments are closed.