```sql
/**
 功能：用于在10g，11g中查询隐含参数的值，主要是可以在SQLPLUS窗口格式化输出
       注意Cn_Batch_Length的值设置的没必要太大
 作者：stotf
 时间：2020/3/28
**/
Create Or Replace Function f_Imp_Param(Name In Varchar2) Return Varchar2 Is
  Vc_Term   Varchar2(100); --用于参数替换
  Vc_Result Long; --返回查询结果
  Vc_Sql    Varchar2(4000); --定义sql
  Cur_Kk    Sys_Refcursor; --参考游标
  Cn_Batch_Length Constant Pls_Integer := 300; --定义最多查询行数
  v_Num Number := 0; --行号
  --定义列头
  Vc_Parameter             Varchar2(100) := 'PARAMETER';
  Vc_Session_Value         Varchar2(100) := 'SESSION_VALUE';
  Vc_Instance_Value        Varchar2(100) := 'INSTANCE_VALUE';
  Vc_Is_Session_Modifiable Varchar2(100) := 'IS_SESSION_MODIFIABLE';
  Vc_Is_System_Modifiable  Varchar2(100) := 'IS_SYSTEM_MODIFIABLE';
  --用于记录列的最大实际长度
  Type Length_Col Is Record(
    Para        Number := Length(Vc_Parameter),
    Sess        Number := Length(Vc_Session_Value),
    Inst        Number := Length(Vc_Instance_Value),
    Is_Sess_Mod Number := Length(Vc_Is_Session_Modifiable),
    Is_Sys_Mod  Number := Length(Vc_Is_System_Modifiable));
  Rec_Length Length_Col;
  --定义和查询列匹配的record
  Type Rec_Result Is Record(
    Parameter             X$ksppi.Ksppinm%Type,
    Session_Value         X$ksppcv.Ksppstvl%Type,
    Instance_Value        X$ksppsv.Ksppstvl%Type,
    Is_Session_Modifiable Varchar2(10),
    Is_System_Modifiable  Varchar2(10));
  --定义存放结果的table
  Type Tab_Result Is Table Of Rec_Result;
  Typ_Tab Tab_Result;
Begin
  --处理参数，如果开头没有加下划线，则加上
  If Substr(Name, 1, 1) = '_' Then
    Vc_Term := '/' || Lower(Name);
  Else
    Vc_Term := '/_' || Lower(Name);
  End If;
  Vc_Sql := 'Select a.Ksppinm "Parameter",
         b.Ksppstvl "Session Value",
         c.Ksppstvl "Instance Value",
         Decode(Bitand(a.Ksppiflg / 256, 1), 1, ''TRUE'', ''FALSE'') Is_Session_Modifiable,
         Decode(Bitand(a.Ksppiflg / 65536, 3),
                1,
                ''IMMEDIATE'',
                2,
                ''Deferred'',
                3,
                ''IMMEDIATE'',
                ''FALSE'') Is_System_Modifiable
    From X$ksppi a, X$ksppcv b, X$ksppsv c
   Where a.Indx = b.Indx
     And a.Indx = c.Indx
     And a.Ksppinm Like :name Escape ''/''';
  Open Cur_Kk For Vc_Sql
    Using Vc_Term || '%';
  --循环结果，找出每一列实际值的最大长度
  Fetch Cur_Kk Bulk Collect
    Into Typ_Tab Limit Cn_Batch_Length;
  For i In 1 .. Typ_Tab.Count Loop
    If Length(Typ_Tab(i).Parameter) > Rec_Length.Para Then
      Rec_Length.Para := Length(Typ_Tab(i).Parameter);
    End If;
    If Length(Typ_Tab(i).Session_Value) > Rec_Length.Sess Then
      Rec_Length.Sess := Length(Typ_Tab(i).Session_Value);
    End If;
    If Length(Typ_Tab(i).Instance_Value) > Rec_Length.Inst Then
      Rec_Length.Inst := Length(Typ_Tab(i).Instance_Value);
    End If;
    If Length(Typ_Tab(i).Is_Session_Modifiable) > Rec_Length.Is_Sess_Mod Then
      Rec_Length.Is_Sess_Mod := Length(Typ_Tab(i).Is_Session_Modifiable);
    End If;
    If Length(Typ_Tab(i).Is_System_Modifiable) > Rec_Length.Is_Sys_Mod Then
      Rec_Length.Is_Sys_Mod := Length(Typ_Tab(i).Is_System_Modifiable);
    End If;
  End Loop;
  Close Cur_Kk;
  Dbms_Output.Put_Line('总记录数：' || Typ_Tab.Count);
  --输出列头
  Vc_Result := 'NO    ' || Rpad(Vc_Parameter, Rec_Length.Para + 2, ' ') ||
               Rpad(Vc_Session_Value, Rec_Length.Sess + 2, ' ') ||
               Rpad(Vc_Instance_Value, Rec_Length.Inst + 2, ' ') ||
               Rpad(Vc_Is_Session_Modifiable,
                    Rec_Length.Is_Sess_Mod + 2,
                    ' ') || Rpad(Vc_Is_System_Modifiable,
                                 Rec_Length.Is_Sys_Mod + 2,
                                 ' ' || Chr(10));
  --输出记录
  For i In 1 .. Typ_Tab.Count Loop
    v_Num := v_Num + 1;
    --字符后连接一个空格的字符，防止null值对长度计算的影响
    Vc_Result := Vc_Result || Rpad(To_Char(v_Num), 6, ' ') ||
                 Rpad(Typ_Tab(i).Parameter || ' ', Rec_Length.Para + 2, ' ') ||
                 Rpad(Typ_Tab(i).Session_Value || ' ',
                      Rec_Length.Sess + 2,
                      ' ') || Rpad(Typ_Tab(i).Instance_Value || ' ',
                                   Rec_Length.Inst + 2,
                                   ' ') ||
                 Rpad(Typ_Tab(i).Is_Session_Modifiable || ' ',
                      Rec_Length.Is_Sess_Mod + 2,
                      ' ') || Rpad(Typ_Tab(i).Is_System_Modifiable || ' ',
                                   Rec_Length.Is_Sys_Mod + 2,
                                   ' ') || Chr(10);
  End Loop;
  Dbms_Output.Put_Line(Vc_Result);
  Return '总记录数：' || v_Num;
Exception
  When Others Then
    Return 'ERROR: ' || Sqlcode || Sqlerrm;
End;

```

ITPub博客

查看oralce10g,11g隐含参数，并在SQLPLUS窗口格式化输出

最新文章