Parte ii - IIS Marconi Latina - Area didattica

1028 volume V Programmazione
Paragrafo ‘MAIN’
Viene aperto in lettura il file da leggere.
Viene eseguita la lettura di un primo blocco, pari alla dimensione della variabile
‘RECORD-DA-LEGGERE’; se si verifica la condizione ‘AT END’, ovvero se il file è vuoto,
viene messo il valore uno nella variabile ‘EOF’.
Viene eseguito il paragrafo ‘LETTURA’, ripetutamente, utilizzando come condizione di
arresto il fatto che la variabile ‘EOF’ contenga il valore uno.
Viene chiuso il file da leggere.
Il programma si arresta perché incontra l’istruzione ‘STOP RUN’.
Paragrafo ‘LETTURA’
Viene visualizzata la porzione di file appena letta.
Viene eseguita la lettura del file da leggere; se si verifica la condizione ‘AT END’, ovvero
se la lettura non ha acquisito alcunché, viene messo il valore uno nella variabile ‘EOF’.
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/ELM1500.cob 〉.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. ELM1500.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 1985-02-20.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700*
|000800 INPUT-OUTPUT SECTION.
|000900*
|001000 FILE-CONTROL.
|001100*
|001200 SELECT FILE-DA-LEGGERE ASSIGN TO "input.seq"
|001300 ORGANIZATION IS SEQUENTIAL.
|001400*
|001500 DATA DIVISION.
|001600*
|001700 FILE SECTION.
|001800*
|001900 FD FILE-DA-LEGGERE
|002000 LABEL RECORD IS STANDARD.
|002100*
|002200 01 RECORD-DA-LEGGERE PIC X(30).
|002300*
|002400 WORKING-STORAGE SECTION.
|002500 01 EOF PIC 9 VALUE ZERO.
|002600*
|002700 PROCEDURE DIVISION.
|002800*------------------------- LIVELLO 0 -----------------------------
|002900 MAIN.
|003000 OPEN INPUT FILE-DA-LEGGERE.
|003100 READ FILE-DA-LEGGERE
|003200 AT END
|003300 MOVE 1 TO EOF.
|003400 PERFORM LETTURA UNTIL EOF = 1.