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
28
29
30
31
32
33
34
35
36
|
CREATE TABLE logtab(msg VARCHAR2(500) NOT NULL);
CREATE OR REPLACE PROCEDURE updateLogTab(p_msg IN VARCHAR2)
AUTHID DEFINER
IS
PRAGMA AUTONOMOUS_TRANSACTION;
BEGIN
INSERT INTO logtab(msg) VALUES(p_msg);
COMMIT;
END;
/
SHOW ERRORS;
CREATE OR REPLACE PROCEDURE getCurVals(p_cur IN REF CURSOR)
AUTHID DEFINER
IS
BEGIN
<<bk>>
DECLARE
recVal <le type ROWTYPE de votre cursor>;
BEGIN
IF p_cur%ISOPEN THEN
LOOP
FETCH p_cur INTO bk.recVal;
EXIT WHEN p_cur%NOTFOUND;
< . . . Ici donc votre traitement . . .>
updateLogTab(p_msg=>< . . . et ici le message . . . >);
END LOOP;
END IF;
END;
END getCurVAls;
/
SHOW ERRORS; |
