Histórico da Página

DECLARE
  AUX_USERCONNECTED VARCHAR2(30);
BEGIN
  SELECT SYS_CONTEXT('USERENV', 'CURRENT_SCHEMA')
    INTO AUX_USERCONNECTED
    FROM DUAL;
  IF (AUX_USERCONNECTED <> 'SYS') AND (AUX_USERCONNECTED <> 'SYSTEM') THEN
    EXECUTE IMMEDIATE ('CREATE VIEW ALL_OBJECTS AS' ||
                      ' SELECT * FROM SYS.ALL_OBJECTS WHERE OWNER =' ||
                      ' SYS_CONTEXT(' || CHR(39) || 'USERENV' || CHR(39) || ', ' ||
                      CHR(39) || 'CURRENT_SCHEMA' || CHR(39) || ')');
    EXECUTE IMMEDIATE ('CREATE VIEW ALL_SYNONYMS AS' ||
                      ' SELECT * FROM SYS.ALL_SYNONYMS WHERE OWNER =' ||
                      ' SYS_CONTEXT(' || CHR(39) || 'USERENV' || CHR(39) || ', ' ||
                      CHR(39) || 'CURRENT_SCHEMA' || CHR(39) || ')');
    EXECUTE IMMEDIATE ('CREATE VIEW ALL_SEQUENCES AS' ||
                      ' SELECT * FROM SYS.ALL_SEQUENCES WHERE SEQUENCE_OWNER =' ||
                      ' SYS_CONTEXT(' || CHR(39) || 'USERENV' || CHR(39) || ', ' ||
                      CHR(39) || 'CURRENT_SCHEMA' || CHR(39) || ')');
    EXECUTE IMMEDIATE ('CREATE VIEW ALL_CONSTRAINTS AS' ||
                      ' SELECT * FROM SYS.ALL_CONSTRAINTS WHERE OWNER =' ||
                      ' SYS_CONTEXT(' || CHR(39) || 'USERENV' || CHR(39) || ', ' ||
                      CHR(39) || 'CURRENT_SCHEMA' || CHR(39) || ')');
    EXECUTE IMMEDIATE ('CREATE VIEW ALL_CONS_COLUMNS AS' ||
                      ' SELECT * FROM SYS.ALL_CONS_COLUMNS WHERE OWNER =' ||
                      ' SYS_CONTEXT(' || CHR(39) || 'USERENV' || CHR(39) || ', ' ||
                      CHR(39) || 'CURRENT_SCHEMA' || CHR(39) || ')');
    EXECUTE IMMEDIATE ('CREATE VIEW ALL_INDEXES AS' ||
                      ' SELECT * FROM SYS.ALL_INDEXES WHERE OWNER =' ||
                      ' SYS_CONTEXT(' || CHR(39) || 'USERENV' || CHR(39) || ', ' ||
                      CHR(39) || 'CURRENT_SCHEMA' || CHR(39) || ')');
    EXECUTE IMMEDIATE ('CREATE VIEW ALL_IND_COLUMNS AS' ||
                      ' SELECT * FROM SYS.ALL_IND_COLUMNS WHERE TABLE_OWNER =' ||
                      ' SYS_CONTEXT(' || CHR(39) || 'USERENV' || CHR(39) || ', ' ||
                      CHR(39) || 'CURRENT_SCHEMA' || CHR(39) || ')');
    EXECUTE IMMEDIATE ('CREATE VIEW ALL_TABLES AS' ||
                      ' SELECT * FROM SYS.ALL_TABLES WHERE OWNER =' ||
                      ' SYS_CONTEXT(' || CHR(39) || 'USERENV' || CHR(39) || ', ' ||
                      CHR(39) || 'CURRENT_SCHEMA' || CHR(39) || ')');
    EXECUTE IMMEDIATE ('CREATE VIEW ALL_TAB_COLUMNS AS' ||
                      ' SELECT * FROM SYS.ALL_TAB_COLUMNS WHERE OWNER =' ||
                      ' SYS_CONTEXT(' || CHR(39) || 'USERENV' || CHR(39) || ', ' ||
                      CHR(39) || 'CURRENT_SCHEMA' || CHR(39) || ')');
  END IF;
END;