Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1027
|002500 01 EOJ PIC 9 VALUE ZERO.
|002600*
|002700 PROCEDURE DIVISION.
|002800*------------------------- LIVELLO 0 -----------------------------
|002900 MAIN.
|003000 OPEN EXTEND FILE-DA-SCRIVERE.
|003100 PERFORM INSERIMENTO-DATI.
|003200 PERFORM LAVORO UNTIL EOJ = 1.
|003300 CLOSE FILE-DA-SCRIVERE.
|003400*
|003500 STOP RUN.
|003600*------------------------- LIVELLO 1 -----------------------------
|003700 LAVORO.
|003800 IF RECORD-DA-SCRIVERE = ALL "*"
|003900 THEN
|004000 MOVE 1 TO EOJ;
|004100 ELSE
|004200 WRITE RECORD-DA-SCRIVERE,
|004300 PERFORM INSERIMENTO-DATI.
|004400*------------------------- LIVELLO 2 -----------------------------
|004500 INSERIMENTO-DATI.
|004600 DISPLAY "INSERISCI LA RIGA".
|004700 DISPLAY "PER FINIRE INSERISCI TUTTI ASTERISCHI".
|004800 ACCEPT RECORD-DA-SCRIVERE.
|004900*
Per fare in modo che le righe del file siano concluse come avviene di solito nei file di testo,
con un codice di interruzione di riga, occorre specificare nell’istruzione ‘SELECT’ un accesso
di tipo ‘LINE SEQUENTIAL’.
83.2.14 ELM1500: lettura di un file sequenziale
«
File
‘FILE-DA-LEGGERE’ rappresenta il file che viene letto dal programma (il nome del file
è ‘input.seq’). Il file è di tipo sequenziale, dove ogni riga ha una dimensione fissa e
non si fa affidamento sulla presenza di un codice di interruzione di riga.
Variabili
‘RECORD-DA-LEGGERE’ è la riga del file da leggere;
‘EOF’ quando assume il valore 1 indica che la lettura ha superato la fine del file.
Descrizione
Il programma visualizza il contenuto di un file.
La lettura avviene a blocchi di 30 caratteri, indipendentemente dal fatto che siano presenti
dei codici di interruzione di riga. Diversamente, per fare in modo che la lettura sia al
massimo di 30 caratteri, ma rispettando anche i codici di interruzione di riga, occorre
specificare nell’istruzione ‘SELECT’ un accesso di tipo ‘LINE SEQUENTIAL’.