
12/01/2011, 10:46
|
| | Fecha de Ingreso: enero-2011
Mensajes: 4
Antigüedad: 14 años, 1 mes Puntos: 0 | |
Respuesta: Insert into con nombre de tabla variable Hola Huesos52,
En primer lugar gracias por tu atención, este es mas o menos el código:
CREATE OR REPLACE PROCEDURE PRD_EST(v_codubi VARCHAR2, nombreTabla VARCHAR2) IS
v_codlot VARCHAR2(10);
v_secuen NUMBER(9);
err_num NUMBER;
err_msg VARCHAR2(255);
CURSOR UBILIN(pcodubi IN VARCHAR2) IS
SELECT id2, id3 FROM PRUEBA1
WHERE id1 = pcodubi;
ubilin_rec UBILIN%ROWTYPE;
BEGIN
OPEN UBILIN(v_codubi);
LOOP
FETCH UBILIN INTO ubilin_rec;
EXIT WHEN UBILIN%NOTFOUND;
v_secuen := ubilin_rec.id3;
v_codlot := ubilin_rec.id2;
INSERT INTO &nombreTabla (Campo1,Campo2) VALUES (v_secuen,v_codlot);
END LOOP;
CLOSE UBILIN;
COMMIT;
EXCEPTION
WHEN OTHERS THEN
err_num := SQLCODE;
err_msg := SQLERRM;
dbms_output.put_line('Error:'||TO_CHAR(err_num));
dbms_output.put_line(err_msg);
ROLLBACK;
END PRD_EST;
/
Un saludo y gracias de antemano desde BCN, |