[Home] [Help]
155: FUNCTION construct_decode_function(
156: p_char_id NUMBER,
157: p_alias VARCHAR2,
158: x_most_common OUT NOCOPY VARCHAR2,
159: x_function OUT NOCOPY dbms_sql.varchar2s)
160: RETURN INTEGER IS
161:
162: --
163: -- This is an auxiliary function that constructs the decode
172: --
173: -- Return 0 if successful; a negative error code otherwise.
174: --
175: -- Note: this function was modeled after the global_view
176: -- procedure in qltvcreb and utilized the same dbms_sql.varchar2s
177: -- array. It can potentially handle more than 32K, but the
178: -- current scope is to handle decode function of 32K or less
179: -- to make other PL/SQL manipulation of this function string
180: -- more manageable. Expansion to > 32K is non-trivial because
305: END construct_decode_function;
306:
307:
308: FUNCTION varchar2s_to_varchar2(
309: p_function dbms_sql.varchar2s,
310: x_ddl OUT NOCOPY VARCHAR2)
311: RETURN INTEGER IS
312: --
313: -- A helper function to convert the decode function string from
310: x_ddl OUT NOCOPY VARCHAR2)
311: RETURN INTEGER IS
312: --
313: -- A helper function to convert the decode function string from
314: -- dbms_sql.varchar2 format to a simple string. Return 0 if
315: -- successful; -1 if not.
316: --
317: l_ddl VARCHAR2(32767);
318: BEGIN
341: -- Create the softcoded index.
342: -- Return 0 if successful, a negative error code if not.
343: --
344: l_ddl VARCHAR2(32767); -- current scope supports 32k only
345: l_function dbms_sql.varchar2s;
346: l_status INTEGER;
347: l_alias_dot VARCHAR2(50);
348: l_most_common VARCHAR2(30);
349: l_rowid VARCHAR2(50);
788: p_alias VARCHAR2 DEFAULT NULL)
789: RETURN VARCHAR2 IS
790:
791: l_most_common VARCHAR2(30);
792: l_function dbms_sql.varchar2s;
793: l_predicate VARCHAR2(32767);
794: l_status NUMBER;
795:
796: BEGIN