1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| PROCEDURE Load_Error_Table (NOM_TABLE in varchar2, CONDITION in varchar2, NOM_INTERFACE in varchar2,LA_DATE in varchar2,NOM
in varchar2,NATURE_IDENTIFIANT in varchar2, VALEUR_IDENTIFIANT in varchar2, MESSAGE_ERREUR in varchar2) IS
LC$Requete2 varchar2(256) := 'SELECT * FROM '||NOM_TABLE||' WHERE '||CONDITION ;
Valeur_I varchar2(256);
crow curseur;
BEGIN
OPEN crow FOR LC$Requete2;
FOR row in crow LOOP
EXECUTE IMMEDIATE 'INSERT INTO EGYWK.SG_W_ERROR_INTERF values
('||NOM_INTERFACE||','||LA_DATE||','||NOM||','||NATURE_IDENTIFIANT||','||VALEUR_IDENTIFIANT||','||MESSAGE_ERREUR||')';
END LOOP;
END ; |
Partager