PreviousNext
Help > Développement > Fonctions W-Langage pour AS/400 > Fonctions Appel de Programmes/Procédure > AsAppelRTV >
Exemple

 

LigneCmd est une chaîne

LigneCmd="CCSID=DEC(5 0);RTVJOBA JOB(&JOB) USER(&USER) USRLIBL(&USRLIB) SYSLIBL(&SYSLIB) CCSID(&CCSID) CURLIB(&CURL)"

 

HOuvreConnexion(MaConnexionpower8)

 

SI PAS ASAppelRtv(LigneCmd)ALORS

        Info(ErreurInfo(errRésumé))

FIN

 

sResultat est une chaîne

sResultat = ASResultatRtv("RC")

SI sResultat = "0" ALORS

        Info(ASResultatRtv("CCSID"))

SINON

        Info("Erreur de la commande : "+sResultat)

FIN