I have elaborated some useful views...

Hello:

I have elaborated some useful views for administration purposes:

create or replace view pga_functions as
select
l.lanname as language,
n.nspname || '.' || p.proname || '(' ||
pg_catalog.oidvectortypes(p.proargtypes) || ')' as name,
t.typname as returntype,
'\n\n'||
'CREATE OR REPLACE FUNCTION ' || n.nspname ||'.'|| p.proname ||'('||
pg_catalog.oidvectortypes(p.proargtypes) ||')\n'||
' RETURNS '||t.typname||' AS'||
'\n''\n' ||
(select case when lanname <> 'c' then replace(prosrc,'\'','\\\'') else
replace(prosrc,'\'','\\\'') ||'.so' end) ||
'\n''\n' ||
' LANGUAGE ''' || l.lanname || ''' VOLATILE;\n'
as source
from pg_proc p, pg_type t, pg_namespace n, pg_language l
where p.prorettype = t.oid and p.pronamespace = n.oid
and p.prolang = l.oid;

create or replace view pga_columns as
select pg_class.relname as tablename, pg_attribute.attname as columnname
from pg_class, pg_attribute
where pg_class.oid = pg_attribute.attrelid
and pg_attribute.attnum >= 1
and pg_class.relkind = 'r'
order by pg_class.relname, pg_attribute.attnum;

create or replace view pga_objects as
select pg_user.usename as owner, pg_class.relname as objectname, CASE
pg_class.relkind WHEN 'r' THEN 't' WHEN 'S' THEN 's' WHEN 'i' THEN 'i'
WHEN 'v' THEN 'v' END as objecttype, pg_class.relpages*8 as sizek
from pg_class, pg_user
where pg_class.relowner = pg_user.usesysid
and pg_class.relkind not in ('t','s')
order by pg_user.usename, pg_class.relkind, pg_class.relname;

I hope it can help other people

Martha Cecilia Ayala Hernández
Strategic Analysis de México, S.A.