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 37
| PROCEDURE LOAD IS
CURSOR CUR_QTT IS
WITH
TA AS
(SELECT 1 ID, 'A' LETTRE FROM DUAL
UNION ALL
SELECT 2, 'B' FROM DUAL
UNION ALL
SELECT 3, 'C' FROM DUAL
UNION ALL
SELECT 4, 'D' FROM DUAL
UNION ALL
SELECT 5, 'E' FROM DUAL)
SELECT ROWNUM NUM, W.DEB || TA.LETTRE DEBUT, :TXT_NUM_FIN || TA.LETTRE FIN
FROM TA,
(SELECT :TXT_NUM_DEB + LEVEL - 1 AS DEB
FROM DUAL
CONNECT BY LEVEL <= :TXT_NUM_FIN - :TXT_NUM_DEB + 1) W;
I NUMBER := 0;
BEGIN
GO_BLOCK ('LISTE');
FIRST_RECORD;
FOR X IN CUR_QTT
LOOP
I := I + 1;
:LISTE.L_NUM_DEB := X.DEBUT;
:LISTE.L_NUM_FIN := X.FIN;
NEXT_RECORD;
END LOOP;
FIRST_RECORD;
END; |
Partager