bRet est un booléen
Resultat est une chaîne
var1 est une chaîne
LigneCmd est une chaîne
lignecmd = "RTVSYSVAL SYSVAL(QSRLNBR) RTNVAR(&VAR1)"
bRet = ASAppelRtv(lignecmd)
// Lecture du résultat
sResultat est une chaîne
sResultat = ASResultatRtv("RC")
SI sResultat = "0" ALORS
Resultat = ASResultatRtv("VAR1")
Info("Numéro de série de l'AS/400 : " + Resultat)
FIN