Utilisation des fonctions ASAppelRTV et ASRésultatRTV pour récupérer les propriétés du job ou du membre d'un fichier.
RTVJOBA
LigneCmd est une chaîne
LigneCmd="CCSID=DEC(5 0);RTVJOBA JOB(&JOB) USER(&USER) USRLIBL(&USRLIB) SYSLIBL(&SYSLIB) CCSID(&CCSID) CURLIB(&CURL)"
// les variables décimales doivent être déclarées de même pour un char de taille indéterminée
SI PAS ASAppelRtv(LigneCmd)ALORS
Info(ErreurInfo(errRésumé))
FIN
Info("Commande envoyée avec succès."+RC+"Ce retour ne signifie cependant pas la réussite de l'opération elle-même..."+RC+"Il faut tester la variable RC.")
sResultat est une chaîne
sResultat = ASResultatRtv("RC")
SI sResultat = "0" ALORS
SAI_USR=ASResultatRtv("USER")
SAI_USRLIBL=ASResultatRtv("USRLIB")
SAI_SYSLIBL=ASResultatRtv("SYSLIB")
SAI_JOB=ASResultatRtv("JOB")
SAI_CCS=ASResultatRtv("CCSID")
SINON
Info("Erreur de la commande : "+sResultat)
FIN
RTVMBRD
cmd est une chaîne
sAsdate est une chaîne
Wddate est une Date
cmd="NBREG=DEC(10 0);RTVMBRD FILE("+SAI_biblio+"/"+SAI_file+") CRTDATE(&CRDATE) NBRCURRCD(&NBREG) FILETYPE(&TYPE)"
ASAppelRtv(cmd)
sResultat est une chaîne
sResultat = ASResultatRtv("RC")
SI sResultat <> "0" ALORS
SI sResultat="CPF9812" ALORS Info("Fichier non trouvé") SINON Info("Erreur de la commande : "+sResultat)
SINON
// récupérer et formater la date
sAsdate=ASResultatRtv("crdate")
sAsdate=Gauche(sAsdate,7)
SI Gauche(sAsdate,1)="0" ALORS
wddate="19"+Droite(sAsdate,6)
SINON
wddate="20"+Droite(sAsdate,6)
FIN
SAI_DATE=DateVersChaîne(wddate,"JJJJ JJ MMMM AAAA")
SAI_NBR=ASResultatRtv("NBREG")
SAI_TYP=ASResultatRtv("TYPE")
FIN