PROCEDURE: SYS.ODCICOLINFODUMP

Source

1 PROCEDURE ODCIColInfoDump(ci ODCIColInfo) IS
2   col NUMBER;
3 BEGIN
4   if ci is null then
5    dbms_output.put_line('ODCIColInfo is null');
6    return;
7   end if;
8 
9   dbms_output.put_line('ODCIColInfo');
10   dbms_output.put_line('Table owner : ' || ci.TableSchema);
11   dbms_output.put_line('Table name : ' || ci.TableName);
12   if (ci.TablePartition is not null) then
13     dbms_output.put_line('Table partition name : ' || ci.TablePartition);
14   end if;
15 
16   dbms_output.put_line('Column name: '|| ci.ColName);
17   dbms_output.put_line('Column type :'|| ci.ColTypeName);
18   dbms_output.put_line('Column type schema:'|| ci.ColTypeSchema);
19 
20   if (ci.ColInfoFlags != 0) then
21        ODCIColInfoFlagsDump(ci.ColInfoFlags);
22   end if;
23 
24   if (ci.OrderByPosition > 0) then
25     dbms_output.put_line('Indexed column position in order by: '||
26                            ci.OrderByPosition);
27   end if;
28 
29   if (ci.TablePartitionTotal > 1) then
30     dbms_output.put_line(' Total number of table partitions : ' ||
31              ci.TablePartitionTotal);
32   end if;
33 END;