PROCEDURE: SYS.ODCIANYDATADUMP

Source

1 PROCEDURE ODCIAnyDataDump(ad IN SYS.AnyData)
2 IS
3  BEGIN
4   IF ad IS NOT NULL THEN
5     CASE ad.gettypeName
6       WHEN 'SYS.BINARY_DOUBLE' THEN
7         dbms_output.put_line(ad.AccessBDouble());
8       WHEN 'SYS.BINARY_FLOAT' THEN
9         dbms_output.put_line(ad.AccessBFloat());
10       WHEN 'SYS.CHAR' THEN
11         dbms_output.put_line(ad.AccessChar());
12       WHEN 'SYS.DATE' THEN
13         dbms_output.put_line(ad.AccessDate());
14       WHEN 'SYS.INTERVALYM' THEN
15         dbms_output.put_line(ad.AccessIntervalYM());
16       WHEN 'SYS.INTERVALDS' THEN
17         dbms_output.put_line(ad.AccessIntervalDS());
18       WHEN 'SYS.NCHAR' THEN
19         dbms_output.put_line(ad.AccessNChar());
20       WHEN 'SYS.NUMBER' THEN
21         dbms_output.put_line(ad.AccessNumber());
22       WHEN 'SYS.TIMESTAMP' THEN
23         dbms_output.put_line(ad.AccessTimeStamp());
24       WHEN 'SYS.TIMESTAMPLTZ' THEN
25         dbms_output.put_line(ad.AccessTimeStampLTZ());
26       WHEN 'SYS.TIMESTAMPTZ' THEN
27         dbms_output.put_line(ad.AccessTimeStampTZ());
28       WHEN 'SYS.NVARCHAR2' THEN
29         dbms_output.put_line(ad.AccessNVarchar2());
30       WHEN 'SYS.VARCHAR' THEN
31         dbms_output.put_line(ad.AccessVarchar());
32       WHEN 'SYS.VARCHAR2' THEN
33         dbms_output.put_line(ad.AccessVarchar2());
34       WHEN 'SYS.RAW' THEN
35         dbms_output.put_line('Raw Datatype');
36       ELSE
37         dbms_output.put_line('NOT a Scalar Type in AnyData');
38     END CASE;
39   END IF;
40  END;