ERROR

Voir également

Renvoie le code d'erreur, le nom du programme, le nom de la fonction ou le numéro de ligne de la dernière erreur.

Support WebVue - Oui.

Mode	Mnémonique	Syntaxe
1	ERRNO	1
2	PROGRAM	2
3	FUNCTION	2
4	LINE	1
5	TOFILE	3

Syntaxe 1

IntVal = ERROR(Mode);

Type de retour : INTEGER

Exécution

Mode	Mnémonique	Action
1	ERRNO	Retourne le code de la dernière erreur apparue.
		Retour : 0 = Aucune erreur. 1 = Argument de chaîne incorrect. 2 = La valeur est en dessous de la limite inférieure. 3 = La valeur est au-dessus de la limite supérieure. 5 = Le fichier est déjà ouvert (FOPEN). 6 = Le fichier est déjà fermé (FCLOSE, FSEEK, FPUTS). 7 = Le fichier n'a pas pu s'ouvrir (FOPEN).
4	LINE	Retourne le numéro de la ligne ou s'est produit la dernière erreur, 0 s'il n'y a pas eu d'erreur.

Syntaxe 2

IntVal = ERROR(Mode);

Type de retour : STR

Exécution

Mode	Mnémonique	Action
2	PROGRAM	Retourne le nom du programme où s'est produit la dernière erreur.
3	FUNCTION	Retourne le nom de la fonction ou s'est produit la dernière erreur.

Syntaxe 3

IntVal = ERROR(Mode, Filename);

Type de retour : INTEGER.

Exécution

Mode	Mnémonique	Action
5	TOFILE	Redirige toutes les erreurs qui s'affichent dans la fenêtre de mise au point des programmes vers le fichier "filename". Pour désactiver la redirection, utiliser "" pour le nom du fichier. Si exécutée dans le contexte d'une session WebVue, cette instruction est traitée par le back end web, en conséquence de quoi le fichier sera créé sur la machine back end web.
		Retour : Le nom du programme dans lequel la dernière erreur s'est produite.

Exemple

SUB Main()

DIM intResult as integer;

'open the file

intResult = Error("TOFILE","errorfile.txt");

If (FOPEN("MESSAGE.TXT","R")==0) Then

  'If error in opening:

  PRINT ("code=\t",ERROR("ERRNO"));

  PRINT ("prog=\t",ERROR("PROGRAM"));

  PRINT ("fonc=\t",ERROR("FUNCTION"));

  PRINT ("line=\t",ERROR("LINE"));

Else

  'If no error in opening MESSAGE.TXT:

  '...

End If

END SUB