Hola Martí,

a golpe de SQL con la QSYS2/SYSCOLUMNS y OUTER JOIN

aquí tienes un truco que utiliza esa tabla

http://www.recursos-as400.com/trucos10200103.shtml


En  el  ejemplo  tratado  a  continuación, mostraremos todas las tablas del
sistema que tengan más de 100 campos, en alta intensidad las que tengan más
de  250  campos,  de  color  rojo  las  que tengan más de 1.000 campos y la
biblioteca  en  blink  y  el resto en rojo, para aquellas que tengan más de
2.500 campos.

Para obtener este informe, haremos STRSQL y copiaremos la instrucción:

SELECT CASE
       WHEN count(*) > 2500 THEN (X'2A'||SYSTEM_TABLE_SCHEMA||X'28')
       WHEN count(*) > 1000  THEN (X'28'||SYSTEM_TABLE_SCHEMA)
       WHEN count(*) > 250 THEN (X'22'||SYSTEM_TABLE_SCHEMA)
       else (' '||SYSTEM_TABLE_SCHEMA)
       end  AS LIB,
       SYSTEM_TABLE_NAME AS TABLE,
       COUNT(*) AS FIELDS
FROM QSYS2/SYSCOLUMNS
group by system_table_schema, system_table_name
having count(*) > 100




Atentament / Kind Regards

Àlex Corretgé
Serveis Informàtics Corretgé.com SLU

Carrer de la Font, 2
17142 - Verges
Tel: +34 972 780 422
Cell: +34 669 86 92 64

http://corretge.cat/

skype: corretge_com

LinkedIn: http://www.linkedin.com/in/corretge

News: http://bloc.corretge.cat



2009/10/23 Marti Riera <[email protected]>

> Hola Foro,
>
> Os planteo un pequeño problema que me ha surgido.
>
> Me han pedido que compare la estructura de las tablas de 2 bibliotecas.
>
> Lo primer oque se me ocurre es utilizar el DSPFFD (con salida a fichero) en
> las bibliotecas y despues crearme un proceso para ir comparandolas.
>
> ¿Alguien tiene una idea mejor?
>
> ¿Usando las tablas de referencias del sistema?
>
> Gracias y saludos
>
>
> Martí Riera
>
> ____________________________________________________
> © Publicaciones Help400, S.L. - Todos los
> derechos reservados http://www.help400.es
> ----------------------------------------------------
> Para darte de baja visita la siguente URL:
> http://listas.combios.es/mailman/listinfo/forum.help400
>
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400

Responder a