Parte ii - IIS Marconi Latina - Area didattica

932 volume V Programmazione
Tenendo conto che le parole chiave ‘EXCEPTION’ e ‘ERROR’ del modello sono equivalenti, si
intende che questa istruzione serve ad attivare la sezione che la contiene se si verifica una
condizione di errore, che non sia stato gestito diversamente all’interno del programma, riguardante:
un certo file (file-name), un file qualunque aperto in lettura (‘INPUT’), scrittura
(‘OUTPUT’), lettura e scrittura (‘I-O’) o in estensione (‘EXTEND’).
Viene mostrato l’esempio di un piccolo programma completo, che ha lo scopo di leggere un
file (‘input.txt’) e di mostrarne il contenuto sullo schermo:
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-DECLARATIVES.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-02-26.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700*
|000800 INPUT-OUTPUT SECTION.
|000900*
|001000 FILE-CONTROL.
|001100*
|001200 SELECT FILE-DA-LEGGERE ASSIGN TO "input.txt"
|001300 ORGANIZATION IS LINE SEQUENTIAL
|001400 FILE STATUS IS STATO-FILE-DA-LEGGERE.
|001500*
|001600 DATA DIVISION.
|001700*
|001800 FILE SECTION.
|001900*
|002000 FD FILE-DA-LEGGERE.
|002100 01 RECORD-DA-LEGGERE PIC X(79).
|002200*
|002300 WORKING-STORAGE SECTION.
|002400 77 STATO-FILE-DA-LEGGERE PIC XX.
|002500*
|002600 PROCEDURE DIVISION.
|002700*
|002800 DECLARATIVES.
|002900 FILE-ACCESS-ERROR SECTION.
|003000 USE AFTER STANDARD ERROR PROCEDURE ON INPUT.
|003100 FILE-ACCESS-ERROR-RECOVERY.
|003200 DISPLAY "FILE ACCESS ERROR: ", STATO-FILE-DA-LEGGERE.
|003300 STOP RUN.
|003400 END DECLARATIVES.
|003500*
|003550 MAIN-PROCEDURE SECTION.
|003600 MAIN.
|003700 OPEN INPUT FILE-DA-LEGGERE.
|003800 PERFORM LETTURA UNTIL 0 = 1.
|003900 CLOSE FILE-DA-LEGGERE.
|004000*
|004100 STOP RUN.
|004200*
|004300 LETTURA.
|004400 READ FILE-DA-LEGGERE.