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
|
select ROWID, nom, code_cl, num_tel FROM client WHERE STATUS != ds_STATUS;
BEGIN
v_requete := 'UPDATE client
SET
code_cl = SEQ_client.nextval,
.
.
.
.
.
WHERE ROWID = :9';
OPEN CUR_client(PKG_CST.c_OK);
LOOP
FETCH CUR_client BULK COLLECT INTO lt_ROWID, lt_nom, lt_ccl, lt_num_tel LIMIT frq_COMMIT;
FOR J IN NVL(lt_ROWID.FIRST, 0) .. NVL(lt_ROWID.LAST, -1) LOOP
BEGIN
.
.
.
..
.
execute immediate v_requete USING ............., lt_ROWID(J);
END;
END LOOP;
commit;
EXIT WHEN CUR_client%NOTFOUND;
END LOOP;
CLOSE CUR_client; |
