Parte ii - IIS Marconi Latina - Area didattica

1024 volume V Programmazione
83.2.12 ELM1300: creazione di un file sequenziale
«
File
‘FILE-DA-SCRIVERE’ rappresenta il file che viene creato 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;
‘EOJ’ quando assume il valore 1 il programma si arresta.
Descrizione
Il programma riceve dall’esterno il contenuto di ogni riga e di volta in volta lo registra
nel file. Il programma termina il lavoro quando la stringa inserita contiene solo asterischi
(almeno 30, pari alla larghezza massima prevista di ogni riga).
Paragrafo ‘MAIN’
Viene aperto in scrittura il file da creare.
Viene eseguito il paragrafo ‘INSERIMENTO-DATI’.
Viene eseguito il paragrafo ‘LAVORO’ ripetutamente, concludendo il ciclo quando la
variabile ‘EOJ’ contiene il valore uno.
Viene chiuso il file da creare.
Il programma si arresta perché incontra l’istruzione ‘STOP RUN’.
Paragrafo ‘LAVORO’
Si controlla se la stringa inserita contiene soltanto asterischi; se è così viene messo il
valore uno nella variabile ‘EOJ’, altrimenti viene scritta la riga inserita nel file da scrivere
e subito dopo viene eseguito nuovamente il paragrafo ‘INSERIMENTO-DATI’.
Paragrafo ‘INSERIMENTO-DATI’
Il paragrafo riceve dall’esterno il contenuto di una riga da registrare nel file, tenendo
conto che vengono prese in considerazione al massimo i primi 30 caratteri, pari alla
dimensione della variabile che deve accogliere i dati.
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/ELM1300.cob 〉.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. ELM1300.
|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-SCRIVERE ASSIGN TO "output.seq"
|001300 ORGANIZATION IS SEQUENTIAL.