En V5R4.
Un programme RPGLE appelle une sous-procédure :
Code : Tout sélectionner
...
Opt ='path=Document/BkToCstmrDbtCdtNtfctn/Ntfctn +
doc=file allowextra=yes case=any';
xml-into(e) %Handler(Proc_Hand : TotNotif) %xml(chemin : Opt) ;
if %error();
if %status=1218 or %status=1299;
...
Code : Tout sélectionner
PProc_Hand b
dProc_Hand pi 10i 0
D Total 10i 0
D Result likeds(ntfctn) dim(1) const
D NB 10u 0 value
D i s 10i 0
/free
...
Exsr CtlDetRejet;
endfor;
return 0;
/end-free
Code : Tout sélectionner
C CtlDetRejet Begsr
C Eval G_HasPro = *off
/free
dsply ('avt FICHIER=' + G_CoProEdt) 'GERMOR' ;
/end-free
C G_CoProEdt Chain FICHIER
C If %found
C Eval G_HasPro = *on
C EndIf
et je n'ai pas le displ : avt FICHIER=
Comment peut on monitorer les erreurs dans une sous-procédure ?
Si vous avez une idée ?
merci d'avance