1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
| create or replace function test return varchar2 as
rutern_value varchar2(4000);
RQ_SQL varchar2 (1000);
VC VARCHAR2(30);
TYPE t_session_Record IS RECORD(
SESSION_ID INTEGER,
SESSION_CONFIG_TYPE INTEGER) ;
type t_cursor is ref cursor;
v_cursor1 t_cursor;
RC_SESSION t_session_Record;
begin
RQ_SQL := 'select t.* from ' || VC || '.Tsession t';
open v_cursor1 for RQ_SQL;
loop
fetch v_cursor1 into RC_SESSION;
exit when v_cursor1%notfound;
rutern_value := rutern_value||RC_SESSION.SESSION_ID||';';
rutern_value := rutern_value||RC_SESSION.SESSION_CONFIG_TYPE||';';
end loop;
close v_cursor1;
return rutern_value;
end; |
