In questa lezione affronteremo i seguenti argomenti:
• Comprendere l'importanza della gestione degli errori in COBOL.
• Imparare a utilizzare condition-names per la gestione degli errori.
• Praticare l'utilizzo degli statement di controllo dell'esecuzione.
Gestione degli errori in COBOL:
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 ErrorCode PIC 9(3).
PROCEDURE DIVISION.
PERFORM Check-File-Status.
IF ErrorCode NOT EQUAL TO 0 THEN
DISPLAY 'Error occurred: ', ErrorCode.
ELSE
DISPLAY 'File operation successful'.
END-IF.
STOP RUN.
Check-File-Status.
IF File-Status NOT EQUAL TO '00' THEN
MOVE File-Status TO ErrorCode.
END-IF.
- File-Status: Variabile di sistema che indica lo stato dell'operazione sui file.
- ErrorCode: Variabile per memorizzare il codice di errore.
Utilizzo di condition-names:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Age PIC 99 VALUE 25.
77 Invalid-Age VALUE 99.
PROCEDURE DIVISION.
IF Age IS Invalid-Age
DISPLAY 'Invalid age specified'.
ELSE
DISPLAY 'Age is valid'.
END-IF.
STOP RUN.
- 77 Invalid-Age VALUE 99: Definizione di un condition-name per rappresentare un'età non valida.
Debugging di programmi COBOL:
- Utilizzare le istruzioni di debug DISPLAY per verificare il flusso del programma.
- Ispezionare il valore delle variabili durante l'esecuzione.
Esecuzione:
- Controlla lo stato del file e visualizza un messaggio appropriato.
- Utilizza condition-names per identificare valori non validi e gestire gli errori di esecuzione.
Conclusioni:
In questa lezione, abbiamo esaminato l'importanza della gestione degli errori in COBOL e appreso come utilizzare condition-names e statement di controllo dell'esecuzione per gestire situazioni di errore. Abbiamo anche discusso delle tecniche di debugging di base per identificare e risolvere problemi nei programmi COBOL. Nella prossima lezione, esploreremo l'accesso ai database in COBOL.