17: l_cursor_id INTEGER;
18: l_Dummy INTEGER;
19: BEGIN
20: -- Open the cursor for processing.
21: l_cursor_id := DBMS_SQL.OPEN_CURSOR;
22:
23: -- Create the query string.
24: SELECT member_vl_object_name, member_col, member_name_col
25: INTO l_member_table, l_member_id_col, l_member_name_col
30: ' FROM ' || l_member_table ||
31: ' WHERE ' || l_member_id_col || '=:member_id';
32:
33: -- Parse the statement
34: DBMS_SQL.PARSE(l_cursor_id, l_select_stmt, DBMS_SQL.NATIVE);
35:
36: -- Bind the input variables.
37: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':member_id', p_member_id);
38:
33: -- Parse the statement
34: DBMS_SQL.PARSE(l_cursor_id, l_select_stmt, DBMS_SQL.NATIVE);
35:
36: -- Bind the input variables.
37: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':member_id', p_member_id);
38:
39: -- Define the select list items.
40: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_member_name, 150);
41:
36: -- Bind the input variables.
37: DBMS_SQL.BIND_VARIABLE(l_cursor_id, ':member_id', p_member_id);
38:
39: -- Define the select list items.
40: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_member_name, 150);
41:
42: l_Dummy := DBMS_SQL.EXECUTE(l_cursor_id);
43:
44: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
38:
39: -- Define the select list items.
40: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_member_name, 150);
41:
42: l_Dummy := DBMS_SQL.EXECUTE(l_cursor_id);
43:
44: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
45: RETURN null;
46: ELSE
40: DBMS_SQL.DEFINE_COLUMN(l_cursor_id, 1, l_member_name, 150);
41:
42: l_Dummy := DBMS_SQL.EXECUTE(l_cursor_id);
43:
44: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
45: RETURN null;
46: ELSE
47: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_member_name);
48: END IF;
43:
44: IF DBMS_SQL.FETCH_ROWS(l_cursor_id) = 0 THEN
45: RETURN null;
46: ELSE
47: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_member_name);
48: END IF;
49: DBMS_SQL.CLOSE_CURSOR (l_cursor_id );
50: RETURN l_member_name;
51: END;
45: RETURN null;
46: ELSE
47: DBMS_SQL.COLUMN_VALUE(l_cursor_id, 1, l_member_name);
48: END IF;
49: DBMS_SQL.CLOSE_CURSOR (l_cursor_id );
50: RETURN l_member_name;
51: END;
52:
53: