Cette fonction s'utilise toujours après la fonction AsAppelRTV, elle récupère les variables de la commande de type RTV ou RCV.
Syntaxe
sResultat = ASResultatRtv(NomVariable [,Connexion])
En anglais : ASRtvResult
Paramètres
sResultat
Chaîne contenant le résultat de la récupération
NomVariable
Chaîne de caractères contenant le nom de la variable à lire.
Connexion (optionnel)
Connexion - Nom de la connexion
Détail
ASResultatRtv permet de récupérer sous forme d'une chaîne de caractères la valeur d'une ou de toutes les variables déclarées lors de l'appel à la commande retrieve.
L'exécution d'une commande retrieve est réalisée par la fonction ASAppelRTV.
RC est un nom de variable réservé : si la syntaxe est correcte mais si l'exécution échoue, la fonction ne provoque pas une erreur mais va mettre à jour une variable spéciale dont le nom est RC. Cette variable contient 0 en cas de succès et le code CPF provoqué en cas d'échec. Il s'agit donc de vérifier systématiquement que la variable RC est bien nulle avant de récupérer les variables propres à la commande.
Exemple
Récupérer les propriétés du job
lignecmd est une chaîne
LigneCmd = "RTVJOBA USER(&USER) USRLIBL(&USRLIB) SYSLIBL(&SYSLIB) CURLIB(&CURL)"
ASAppelRtv(lignecmd)
// Récupération des paramètres
sResultat est une chaîne
sResultat = ASResultatRtv("RC")
SI sResultat = "0" ALORS
sUser=ASResultatRtv("user")
sUserlib=ASResultatRtv("usrlib")
sSyslib=ASResultatRtv("syslib")
sCurl=ASResultatRtv("curl")
FIN
Récupérer le numéro de série
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