declare
Plsql_Debug constant varchar2(5) not null :=
case
when $$Plsql_Debug then 'TRUE'
when not $$Plsql_Debug then 'FALSE'
else 'illegal'
end;
Plsql_CCflags constant varchar2(4000) not null :=
case
when $$Plsql_CCflags is null then '[Not Set]'
else $$Plsql_CCflags
end;
begin
if Plsql_CCflags = 'illegal' then
raise Program_Error;
end if;
Sys.DBMS_Output.Put_Line('Plsql_Optimize_Level:' &
Sys.DBMS_Output.Put_Line('Plsql_Code_Type: '&
Sys.DBMS_Output.Put_Line('Plsql_Debug: '&
Sys.DBMS_Output.Put_Line('Plsql_Warnings: '&
Sys.DBMS_Output.Put_Line('NLS_Length_Semantics: '&
Sys.DBMS_Output.Put_Line('Plsql_CCflags: '&
Sys.DBMS_Output.Put_Line('Plscope_Settings: '&
end;