DECLARE init_te_pa PROCEDURE for FLUX.P_INIT_TE_PA using sqlca;
IF SQLCA.SQLCode = -1 THEN 
  MessageBox("Erreur proc: Erreur SQL declare", SQLCA.SQLErrText, StopSign!)
  CLOSE init_te_pa;
  return 1
ELSE
  EXECUTE init_te_pa ; // ca plante ici !
  IF SQLCA.SQLCode = -1 THEN 
    MessageBox("Erreur proc: Erreur SQL EXECUTE", SQLCA.SQLErrText, StopSign!)
    CLOSE init_te_pa;
    return 1
  end if
END IF
CLOSE init_te_pa;