Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1025
|001400*
|001500 DATA DIVISION.
|001600*
|001700 FILE SECTION.
|001800*
|001900 FD FILE-DA-SCRIVERE
|002000 LABEL RECORD IS STANDARD.
|002100*
|002200 01 RECORD-DA-SCRIVERE PIC X(30).
|002300*
|002400 WORKING-STORAGE SECTION.
|002500 01 EOJ PIC 9 VALUE ZERO.
|002600*
|002700 PROCEDURE DIVISION.
|002800*------------------------- LIVELLO 0 -----------------------------
|002900 MAIN.
|003000 OPEN OUTPUT 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 IL RECORD".
|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.13 ELM1400: estensione di un file sequenziale
«
File
‘FILE-DA-SCRIVERE’ rappresenta il file che viene esteso dal programma (il nome del
file è ‘output.seq’). Il file è di tipo sequenziale, dove la riga ha una dimensione fissa;
non si prevede l’inserimento di un codice di interruzione di riga alla fine delle righe.
Variabili
‘RECORD-DA-SCRIVERE’ è la riga del file da creare;