26: v_cursor_id INTEGER;
27: v_dummy INTEGER;
28: v_sqlcode NUMBER;
29: BEGIN
30: v_cursor_id := DBMS_SQL.OPEN_CURSOR;
31: DBMS_SQL.PARSE( v_cursor_id, p_command, DBMS_SQL.V7 );
32: v_dummy := DBMS_SQL.EXECUTE( v_cursor_id );
33: DBMS_SQL.CLOSE_CURSOR( v_cursor_id );
34: EXCEPTION
27: v_dummy INTEGER;
28: v_sqlcode NUMBER;
29: BEGIN
30: v_cursor_id := DBMS_SQL.OPEN_CURSOR;
31: DBMS_SQL.PARSE( v_cursor_id, p_command, DBMS_SQL.V7 );
32: v_dummy := DBMS_SQL.EXECUTE( v_cursor_id );
33: DBMS_SQL.CLOSE_CURSOR( v_cursor_id );
34: EXCEPTION
35: WHEN OTHERS
28: v_sqlcode NUMBER;
29: BEGIN
30: v_cursor_id := DBMS_SQL.OPEN_CURSOR;
31: DBMS_SQL.PARSE( v_cursor_id, p_command, DBMS_SQL.V7 );
32: v_dummy := DBMS_SQL.EXECUTE( v_cursor_id );
33: DBMS_SQL.CLOSE_CURSOR( v_cursor_id );
34: EXCEPTION
35: WHEN OTHERS
36: THEN
29: BEGIN
30: v_cursor_id := DBMS_SQL.OPEN_CURSOR;
31: DBMS_SQL.PARSE( v_cursor_id, p_command, DBMS_SQL.V7 );
32: v_dummy := DBMS_SQL.EXECUTE( v_cursor_id );
33: DBMS_SQL.CLOSE_CURSOR( v_cursor_id );
34: EXCEPTION
35: WHEN OTHERS
36: THEN
37: v_sqlcode := SQLCODE;
34: EXCEPTION
35: WHEN OTHERS
36: THEN
37: v_sqlcode := SQLCODE;
38: DBMS_SQL.CLOSE_CURSOR( v_cursor_id );
39: RAISE;
40: END RUN_COMMAND;
41:
42: FUNCTION IsExisting
77: v_statement := 'select counter'
78: ||' from '||x_acc
79: ||' where '||x_pk||' = '||x_pk_id
80: ||' and server_id = '||x_server_id;
81: v_id := DBMS_SQL.OPEN_CURSOR;
82:
83: DBMS_SQL.PARSE
84: ( v_id
85: , v_statement
79: ||' where '||x_pk||' = '||x_pk_id
80: ||' and server_id = '||x_server_id;
81: v_id := DBMS_SQL.OPEN_CURSOR;
82:
83: DBMS_SQL.PARSE
84: ( v_id
85: , v_statement
86: , DBMS_SQL.V7
87: );
82:
83: DBMS_SQL.PARSE
84: ( v_id
85: , v_statement
86: , DBMS_SQL.V7
87: );
88:
89: DBMS_SQL.DEFINE_COLUMN
90: ( v_id
85: , v_statement
86: , DBMS_SQL.V7
87: );
88:
89: DBMS_SQL.DEFINE_COLUMN
90: ( v_id
91: , 1
92: , v_counter
93: );
91: , 1
92: , v_counter
93: );
94:
95: v_dummy := DBMS_SQL.EXECUTE(v_id);
96:
97: IF DBMS_SQL.FETCH_ROWS(v_id) <> 0
98: THEN
99: DBMS_SQL.COLUMN_VALUE(v_id, 1, v_counter);
93: );
94:
95: v_dummy := DBMS_SQL.EXECUTE(v_id);
96:
97: IF DBMS_SQL.FETCH_ROWS(v_id) <> 0
98: THEN
99: DBMS_SQL.COLUMN_VALUE(v_id, 1, v_counter);
100: END IF;
101: DBMS_SQL.CLOSE_CURSOR(v_id);
95: v_dummy := DBMS_SQL.EXECUTE(v_id);
96:
97: IF DBMS_SQL.FETCH_ROWS(v_id) <> 0
98: THEN
99: DBMS_SQL.COLUMN_VALUE(v_id, 1, v_counter);
100: END IF;
101: DBMS_SQL.CLOSE_CURSOR(v_id);
102:
103: RETURN v_counter;
97: IF DBMS_SQL.FETCH_ROWS(v_id) <> 0
98: THEN
99: DBMS_SQL.COLUMN_VALUE(v_id, 1, v_counter);
100: END IF;
101: DBMS_SQL.CLOSE_CURSOR(v_id);
102:
103: RETURN v_counter;
104: END IsExisting;
105: