Sorties de fonctions auxiliaires vers l'AP
13.13 Comportement lors d'une recherche de bloc
Code de programme
N480 CALL FILENAME
N490
N510 DELETE(ERROR,FILENAME)
N520 IF (ERROR<>0)
N530
SETAL(61000+ERROR)
N540 ENDIF
N550
N560 M17
Exemple 2 : Suppression de fonctions auxiliaires et génération de la sortie des fonctions
auxiliaires sans AUXFUSYNC(...)
Code de programme
N0610 DEF STRING[400] ASSEMBLED=""
N0620 DEF STRING[31] FILENAME="/_N_CST_DIR/_N_AUXFU_SPF"
N0630 DEF INT GROUPINDEX[10]
N0640 DEF INT NUM
N0650 DEF INT LAUF
N0660 DEF INT ERROR
N0670 DEF BOOL ISQUICK
N0680 DEF BOOL ISSYNACT
N0690 DEF BOOL ISIMPL
...
N0760 AUXFUDEL("M",2,3,5)
N0770
N0790 AUXFUDELG(6)
N0800
N0810 IF ISFILE(FILENAME)
N0830
DELETE(ERROR,FILENAME)
N0840
IF (ERROR<>0)
N0850
SETAL(61000+ERROR)
N0860
ENDIF
N0870 ENDIF
N0880
782
Commentaire
; Exécuter le sous-programme généré.
; Supprimer le fichier après exécution.
Commentaire
; M2=3 (5e groupe de fonctions auxiliaires) sup-
primer
; Supprimer la fonction auxiliaire collectée du
; 6e groupe.
; Le fichier existe déjà et doit
; être supprimé.
Description fonctionnelle, 01/2023, A5E48764112D AE
Fonctions de base