call CwClearError()
Questa funzione cancella il messaggio d'errore e il nome della funzione che vengono ritornati da CwErrorFun e CwErrorMsg, facendo in modo che entrambe ritornino nuovamente la stringa vuota. Dovrebbe essere usata dopo il trattamento dell'errore, così che sia possibile determinare se un errore successivamente intercettato sia dovuto al codice REXX oppure a P>G PRO.
Si consulti la sezione sulla gestione degli errori per dettagli.
/* Tenta di caricare il progetto richiesto e ritorna un flag
che indica successo o fallimento, mostrando un messaggio d'errore se appropriato.
*/
loadFile:procedure
parse arg projectFile
signal on syntax name cantload /* Intercetta errori di sintassi.*/
call CwImportProject projectFile
/* Successo. Disattiva l'intercettazione degli errori e ritorna. */
signal off syntax
return 1
/* Fallimento.*/
cantload:
signal off syntax
/* Controlla che l'errore non giaccia nel codice REXX. */
msg = CwGetErrorMsg()
if msg = '' then do
say "REXX syntax error."
exit
end
else do
/* OK, e` in PGPro. Stampa un messaggio d'errore, lo cancella e ritorna.*/
say 'Error: ' msg 'in' CwGetErrorFun()
call CwClearError
end
return 0
![]() Funzioni per NOME |
![]() Indice |
![]() Funzioni per SCOPO |