RESUME |
Resumepermet, dans un traitement d'erreur ou d'interruption, de revenir àl'instruction suivant celle qui a provoqué le déroutement.
Resume
# Ouverture d'un fichier séquentielavec gestion des erreurs (Il
# aurait aussi été possible de testerl'existence du fichier avec la
# fonction filinfo).
FLAG_ERREUR = 0
Onerrgo PB_OUVERTURE :# en cas d'erreur aller à l'étiquette
Openifilpath("TXT","TEXTE","txt") :# ouverture du fichier
Onerrgo :# plus debranchement sur erreur
If FLAG_ERREUR
End :# arrêt si une erreur s'est produite;
Endif
#... suite du traitement ...
End
#
# Routine de gestion d'erreur
PB_OUVERTURE
Errbox "Problèmed'ouverture du fichier en ligne "-num$(errl)
Errbox "Erreurno "-num$(errn)-":"-errmes$(errn)
FLAG_ERREUR = errn
# Sur appui de la touched'interruption, l'exécution du traitement
# se déroute sur l'étiquette LECTURE.
OnintgoLECTURE :# déroutement en cas d'interruption
Inter :# letraitement est interruptible
For [LNS]CLE(1)
For [LNS]CLE
Infbox num$(ZV)
Next
Infbox num$(TOTAL)
Next
End
#
# Traitement de l'interruption
LECTURE
CallVERIF([ABV]CHAMP) From GESINTER
Resume,qui termine un traitement d'erreur ou d'interruption, permet la reprise dutraitement à l'instruction suivant celle où s'est produite l'erreur oul'interruption.
Le déroutement sur erreur est rendu possible par la déclaration Onerrgo, quidéfinit l'étiquette où commence le traitement d'erreur. De la même façon, ledéroutement sur interruption est possible grâce à l'instruction Onintgo.
L'instruction de retour après un
Lorsqu'une instruction End est utilisée pour terminer un traitement degestion des erreurs plutôt qu'un
La liste des erreurs et des codes d'erreurs est référencée dans les annexesdu manuel de programmation.
ERRET(32) | Resumesans déroutement d'erreur ou d'interruption préalable. |
ONERRGO - ONINTGO - RETURN - END - ERRN- ERRL - ERRMES$ - END
Adonix X3(r) L4G |