PROCEDURE: SYS.ODCITABFUNCINFODUMP

Source

1 PROCEDURE ODCITabFuncInfoDump(ti IN ODCITabFuncInfo)
2 IS
3   prec PLS_INTEGER;
4   scale PLS_INTEGER;
5   len PLS_INTEGER;
6   csid PLS_INTEGER;
7   csfrm PLS_INTEGER;
8   cnt PLS_INTEGER;
9   tc PLS_INTEGER;
10   schema_name VARCHAR2(30);
11   type_name VARCHAR2(30);
12   version VARCHAR2(30);
13 BEGIN
14   dbms_output.put_line('Dump of ODCITabFuncInfo (ti)');
15   IF (ti IS NULL) THEN
16     dbms_output.put_line('ti IS NULL');
17   ELSE
18     IF (ti.Attrs IS NULL) THEN
19       dbms_output.put_line('ti.Attrs IS NULL');
20     ELSE
21       dbms_output.put('ti.Attrs = { ');
22       FOR i IN 1..ti.Attrs.count LOOP
23         IF (i>1) THEN
24           dbms_output.put(' , ');
25         END IF;
26         dbms_output.put(ti.Attrs(i));
27       END LOOP;
28       dbms_output.put_line(' } ');
29     END IF;
30 
31     IF (ti.RetType IS NULL) THEN
32       dbms_output.put_line('ti.RetType IS NULL');
33     ELSE
34       tc:=ti.RetType.GetInfo(prec,scale,len,csid,csfrm,schema_name,
35                              type_name,version,cnt);
36       dbms_output.put_line('ti.RetType = ' || schema_name ||
37                            '.' || type_name);
38     END IF;
39   END IF;
40 END;