Gestione errori - Revision history

217.194.179.250 at 22:15, 8 January 2025

2025-01-08T22:15:48Z

94.102.143.229 at 16:37, 29 January 2020

2020-01-29T16:37:09Z

Mwadmin at 10:57, 28 January 2020

2020-01-28T10:57:24Z

Mwadmin at 10:56, 28 January 2020

2020-01-28T10:56:46Z

Mwadmin at 10:55, 28 January 2020

2020-01-28T10:55:37Z

Mwadmin at 10:55, 28 January 2020

2020-01-28T10:55:15Z

Mwadmin at 10:53, 28 January 2020

2020-01-28T10:53:27Z

217.194.179.250 at 11:29, 10 July 2019

2019-07-10T11:29:50Z

Mwadmin at 08:37, 31 May 2019

2019-05-31T08:37:07Z

New page

In caso di errori a run time l'esecuzione del processo in Sage si interrompe; per evitare un'interruzione bisogna gestire adeguatamente i possibili errori con l'istruzione ''Onerrgo'' e ''Resume''.<br />
Ecco un esempio di come gestire gli errori:

<pre>
TRACE=0
Local Integer VALORE
Onerrgo OPENERR #inizio blocco Try:imposto delegato per la gestione di un eventuale errore
VALORE=41/0
If TRACE=0 #se non ci sono errori
...
Else #se c'è un errore
...
Endif
TRACE=0 #blocco Finally

$OPENERR
#Gestisco errore...
Infbox "Errore calcolo: divisione per zero"
TRACE=1 #blocco Catch
Resume
</pre>

Mettendo ''Resume'' il programma continua con l'istruzione successiva al punto in cui c'è stato l'errore; mettendo ''End'' invece di ''Resume'' il programma termina del tutto.
Vedere l'help per tutte le funzioni correlate (Errn,Errp...)

@@ Line 10: / Line 10: @@
 Onerrgo MANAGE_EXCEPTION #inizio blocco Try:imposto delegato per la gestione di un eventuale errore
 VALORE=41/0              #questa operazione va in errore (divisione per zero)
-                          #il programma salta su $OPENERR, dove imposta EXCEPTION=1
+                          #il programma salta su $MANAGE_EXCEPTION , dove imposta EXCEPTION=1
      If EXCEPTION=0       #se non ci sono errori

← Older revision		Revision as of 16:37, 29 January 2020
Line 34:		Line 34:
	Vedere l'help per tutte le funzioni correlate (Errn,Errp...)		Vedere l'help per tutte le funzioni correlate (Errn,Errp...)

		+	Utility comoda per formattare messaggio di errore:
		+	<pre>
		+	######################################################################################
		+	# Funzione che ritorna un messaggio di errore completo
		+	# di un errore (gestitibile con la chiamata Onerrgo)
		+	# Esempio di chiamata: func YUTILS.GET_TXT_EXCEPTION(errp, errl, errn, errm)
		+	######################################################################################
		+	Funprog GET_TXT_EXCEPTION(P_ERRP, P_ERRL, P_ERRN, P_ERRM)
		+	Value Char P_ERRP() #programma in errore, variabile errp
		+	Value Integer P_ERRL #riga di errore, variabile errl
		+	Value Integer P_ERRN #codice di errore, variabile errn
		+	Value Char P_ERRM() #dettagli di errore, variabile errm
		+
		+	Local Clbfile STRCLB(1)
		+	STRCLB = "" +
		+	& "Programma in errore:" - errp + chr$(10)+ chr$(13) +
		+	& "Riga del programma :" - num$(errl) + chr$(10)+ chr$(13) +
		+	& "Codice errore :" - num$(errn) + chr$(10)+ chr$(13) +
		+	& "Messaggio :" - errmes$(errn) + chr$(10)+ chr$(13) +
		+	& "Dettagli :" - errm + chr$(10)+ chr$(13)
		+
		+	End STRCLB
		+	######################################################################################
		+	</pre>

	== Altro ==		== Altro ==

@@ Line 28: / Line 28: @@
     Infbox "Errore calcolo: divisione per zero"
     EXCEPTION=1            #blocco Catch
-Resume
+Resume                    #attenzione!! No Return o End: Resume!
 </pre>

@@ Line 8: / Line 8: @@
 EXCEPTION=0
 Local Integer VALORE
-Onerrgo OPENERR       #inizio blocco Try:imposto delegato per la gestione di un eventuale errore
+Onerrgo MANAGE_EXCEPTION #inizio blocco Try:imposto delegato per la gestione di un eventuale errore
-VALORE=41/0           #questa operazione va in errore (divisione per zero)
+VALORE=41/0              #questa operazione va in errore (divisione per zero)
-                      #il programma salta su $OPENERR, dove imposta EXCEPTION=1
+                         #il programma salta su $OPENERR, dove imposta EXCEPTION=1
-     If EXCEPTION=0        #se non ci sono errori
+     If EXCEPTION=0       #se non ci sono errori
         ...
-     Else              #se c'è un errore
+     Else                 #se c'è un errore
        ...
      Endif
-EXCEPTION=0           #blocco Finally
+EXCEPTION=0              #blocco Finally
-Onerrgo               #azzero il riferimento a programma di gestione errore
+Onerrgo                  #azzero il riferimento a programma di gestione errore
-$OPENERR
+$MANAGE_EXCEPTION
     #Gestisco errore...
     #Se qui si mette End:

@@ Line 5: / Line 5: @@
 <pre>
-Local Integer EXCEPTION
+Local Integer EXCEPTION # per gestione errori imprevisti
 EXCEPTION=0
 Local Integer VALORE

@@ Line 15: / Line 15: @@
      Endif
 TRACE=0               #blocco Finally
 $OPENERR
     #Gestisco errore...
     Infbox "Errore calcolo: divisione per zero"
     TRACE=1            #blocco Catch
@@ Line 26: / Line 30: @@
 Mettendo ''Resume'' il programma continua con l'istruzione successiva al punto in cui c'è stato l'errore; mettendo ''End'' invece di ''Resume'' il programma termina del tutto.
 Vedere l'help per tutte le funzioni correlate (Errn,Errp...)