call CwClearError()
Questa funzione cancella il messaggio d'errore e il nome della funzione ritornato da CwErrorFun e CwErrorMsg, facendo in modo che le due funzioni citate ritornino nuovamente la stringa vuota. Dovrebbe essere usata una volta che la condizione d'errore sia stata eliminata, in modo che sia possibile determinare se un errore successivo, intercettato dal programma, sia stato causato dal REXX oppure da P>G PRO. Si consulti la sezione sul trattamento degli errori per dettagli.
/* Cerca di caricare il progetto richiesto e ritorna un flag per indicare successo o fallimento, stampando 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 provenga dalla parte strettamente REXX. */ msg = CwGetErrorMsg() if msg = '' then do say "REXX syntax error." exit end else do /* OK, si tratta di PGPro. Stampa un messaggio d'errore, ripulisce il messaggio e ritorna.*/ say 'Error: ' msg 'in' CwGetErrorFun() call CwClearError end return 0
![]() Funzioni per NOME |
![]() Indice |
![]() Funzioni per SCOPO |