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());
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());
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());
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());
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());
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());
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());
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());
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());
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());
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());
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());
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');
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');
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;
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;