PROCEDURE: SYS.ODCIPREDINFODUMP

Source

1 PROCEDURE ODCIPredInfoDump(op ODCIPredInfo) IS
2 BEGIN
3   if op is null then
4    dbms_output.put_line('ODCIPredInfo is null');
5    return;
6   end if;
7 
8   dbms_output.put_line('ODCIPredInfo');
9   dbms_output.put_line('Object owner : ' ||op.ObjectSchema);
10   dbms_output.put_line('Object name : '  ||op.ObjectName);
11   dbms_output.put_line('Method name : '  ||op.MethodName);
12   dbms_output.put_line('Predicate bounds flag :');
13 
14   IF (bitand(op.Flags, ODCIConst.PredExactMatch)
15       = ODCIConst.PredExactMatch)
16   THEN
17     dbms_output.put_line('     Exact Match');
18   END IF;
19 
20   IF (bitand(op.Flags, ODCIConst.PredPrefixMatch)
21       = ODCIConst.PredPrefixMatch)
22   THEN
23     dbms_output.put_line('     Prefix Match');
24   END IF;
25 
26   IF (bitand(op.Flags, ODCIConst.PredIncludeStart)
27       = ODCIConst.PredIncludeStart)
28   THEN
29     dbms_output.put_line('     Include Start Key');
30   END IF;
31 
32   IF (bitand(op.Flags, ODCIConst.PredIncludeStop)
33       = ODCIConst.PredIncludeStop)
34   THEN
35     dbms_output.put_line('     Include Stop Key');
36   END IF;
37 
38   IF (bitand(op.Flags, ODCIConst.PredMultiTable)
39       = ODCIConst.PredMultiTable)
40   THEN
41     dbms_output.put_line('     Multiple Tables');
42   END IF;
43 
44 END;