HOuvreConnexion(MaConnexion1)
sSrvPgm est une chaîne
sSrvPgm = "EASYCOMXMP/XMPSRVPGM"
SI PAS ASXMLAttacheSrvPgm(sSrvPgm ,MaConnexion1) ALORS
Info(ErreurInfo())
SINON
Info("Le service programme a été chargé")
FIN