[PL/SQL] Récupérer l'erreur

Marsh Posté le 28-12-2005 à 12:13:37

Voilà voilà, j'ai ce script :

Code :

-- TRAITEMENT DES FK
sAction := 'FK ';
p_WriteTrace('Traitement des clés étrangères' || chr(10), clTrace, bSend_Mail);
sSql := 'Select FK_NOM, FK_SCR, TAB_NOM From STD_FK Where FK_USE = ''O'' Order by TAB_NOM, FK_NOM';
Open CurFk For sSql;
Loop
Fetch CurFk Into sFK_NOM, sFK_SCR, sTAB_NOM;
Exit When CurFk%NotFound;
Select count(1) into nExists from user_tables where table_name = sTAB_NOM;
If (nExists = 1) AND (INSTR(sFK_SCR,'create',1) = 0) Then
sAction := 'Create FK '||sFK_NOM;
Begin
Execute Immediate sFK_SCR;
Exception
When Others Then
p_WriteTrace('Erreur d''Oracle ' || SQLERRM || ' ('|| SQLCODE || ')'||CHR(10), clTrace, bSend_Mail);
End;

Or, je n'arrive pas a récupérer la trace de l'erreur :x

Merci de votre aide [:ocube]

Marsh Posté le 28-12-2005 à 12:13:37

Marsh Posté le 28-12-2005 à 13:52:53

que fait p_writetrace ?

Marsh Posté le 28-12-2005 à 14:44:02

Vala

Code :

PROCEDURE P_WriteTrace(aText In Varchar2, aClTrace In Out Nocopy Clob, abMail In Boolean);
IS
Buff Varchar2(32767) := substrb(aText,1,32000);
Begin
ma_base.ma_table.p_ins(substrb(aText, 1, 4000), True);
If abMail = True Then
Dbms_Lob.WriteAppend(aClTrace, Length(to_char(Sysdate, 'HH24:MI:SS')||' : '),to_char(Sysdate, 'HH24:MI:SS')||' : ');
Dbms_Lob.WriteAppend(aClTrace, Length(Buff),Buff);
End If;
END P_WriteTrace;

Message édité par dajay le 28-12-2005 à 14:48:20

Marsh Posté le 28-12-2005 à 15:06:22

apparemment l'erreur est inscrite dans une table, pour savoir où, regarde le code de ma_table.p_ins

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *