TYPE BODY: SYS.ORACLE_LOADER

Source

1 TYPE BODY     oracle_loader
2 IS
3 --
4 -- ODCIGetInterfaces - returns supported interface and stream version.
5 --
6   STATIC FUNCTION ODCIGETINTERFACES(ifclist OUT NOCOPY SYS.ODCIOBJECTLIST)
7        RETURN NUMBER DETERMINISTIC IS
8   BEGIN
9       ifclist := SYS.ODCIOBJECTLIST
10                         (
11                           SYS.ODCIOBJECT('SYS','ODCIEXTTABLE1'),
12                           SYS.ODCIOBJECT('SYS','ODCIEXTTABLE_STREAM1')
13                         );
14       RETURN ODCICONST.SUCCESS;
15   END ODCIGETINTERFACES;
16 --
17 -- ODCIExtTableOpen
18 --
19   STATIC FUNCTION ODCIEXTTABLEOPEN(LCTX IN OUT NOCOPY oracle_loader,
20                                    xti    IN            SYS.ODCIEXTTABLEINFO,
21                                    xri       OUT NOCOPY SYS.ODCIEXTTABLEQCINFO,
22                                    pcl       OUT NOCOPY SYS.ODCICOLINFOLIST2,
23                                    flag   IN OUT        NUMBER,
24                                    strv   IN OUT        NUMBER,
25                                    env    IN            SYS.ODCIENV,
26                                    xtArgs IN OUT        RAW)
27     RETURN NUMBER DETERMINISTIC AS LANGUAGE C
28     NAME "QXXQ_OPEN"
29     LIBRARY QXXQLIB
30     WITH CONTEXT
31     PARAMETERS
32     (
33       CONTEXT,
34       lctx,
35       lctx   INDICATOR STRUCT,
36       lctx   duration,
37       xti,
38       xti    INDICATOR STRUCT,
39       xri,
40       xri    INDICATOR STRUCT,
41       pcl,
42       pcl    INDICATOR,
43       flag,
44       flag   INDICATOR,
45       strv,
46       strv   INDICATOR,
47       env,
48       env    INDICATOR STRUCT,
49       xtArgs, xtArgs INDICATOR, xtArgs LENGTH,
50       RETURN OCINUMBER
51     );
52 --
53 -- ODCIExtTableFetch
54 --
55   MEMBER FUNCTION ODCIEXTTABLEFETCH(gnum     IN     NUMBER,
56                                     cnverr   IN OUT NUMBER,
57                                     flag     IN OUT NUMBER,
58                                     env      IN     SYS.ODCIENV,
59                                     xtArgs   IN OUT RAW)
60     RETURN NUMBER DETERMINISTIC AS LANGUAGE C
61     NAME "QXXQ_FETCH"
62     LIBRARY QXXQLIB
63     WITH CONTEXT
64     PARAMETERS
65     (
66       CONTEXT,
67       SELF,
68       SELF   INDICATOR STRUCT,
69       gnum,
70       gnum   INDICATOR,
71       cnverr,
72       cnverr INDICATOR,
73       flag,
74       flag   INDICATOR,
75       env,
76       env    INDICATOR STRUCT,
77       xtArgs, xtArgs INDICATOR, xtArgs LENGTH,
78       RETURN OCINUMBER
79     );
80 --
81 -- ODCIExtTablePopulate
82 --
83   MEMBER FUNCTION ODCIEXTTABLEPOPULATE(flag   IN OUT NUMBER,
84                                        env    IN     SYS.ODCIENV,
85                                        xtArgs IN OUT RAW)
86     RETURN NUMBER DETERMINISTIC AS LANGUAGE C
87     NAME "QXXQ_POPULATE"
88     LIBRARY QXXQLIB
89     WITH CONTEXT
90     PARAMETERS
91     (
92       CONTEXT,
93       SELF,
94       SELF   INDICATOR STRUCT,
95       flag,
96       flag   INDICATOR,
97       env,
98       env    INDICATOR STRUCT,
99       xtArgs, xtArgs INDICATOR, xtArgs LENGTH,
100       RETURN OCINUMBER
101     );
102 --
103 -- ODCIExtTableClose
104 --
105   MEMBER FUNCTION ODCIEXTTABLECLOSE(flag   IN OUT NUMBER,
106                                     env    IN     SYS.ODCIENV,
107                                     xtArgs IN OUT RAW)
108     RETURN NUMBER DETERMINISTIC AS LANGUAGE C
109     NAME "QXXQ_CLOSE"
110     LIBRARY QXXQLIB
111     WITH CONTEXT
112     PARAMETERS
113     (
114       CONTEXT,
115       SELF,
116       SELF   INDICATOR STRUCT,
117       flag,
118       flag   INDICATOR,
119       env,
120       env    INDICATOR STRUCT,
121       xtArgs, xtArgs INDICATOR, xtArgs LENGTH,
122       RETURN OCINUMBER
123     );
124 END;