// Lecture du résultat
scmd= " RTVDTAARA DTAARA(EASYCOM/DTAARA) RTNVAR(&VAR1)"
bresult = ASAppelRtv(scmd)
Resultat = ASResultatRtv("RC")
SI Resultat = "0" ALORS
var1=ASResultatRtv("VAR1")
FIN
