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; |