Parte ii - IIS Marconi Latina - Area didattica

876 volume V Programmazione
vuole lavorare con i file di testo, le righe di questi file sono suddivise in base alla presenza del
codice di interruzione di riga (che può cambiare da un sistema operativo all’altro). Volendo
considerare in COBOL le righe di un file di testo pari a dei record di dimensione variabile,
occorre aggiungere l’opzione ‘LINE’, così da chiarire che si tratta sì di un’organizzazione
sequenziale, ma di un file suddiviso in «righe».
La dichiarazione ‘ACCESS MODE IS SEQUENTIAL’ è facoltativa, perché l’accesso a un file
organizzato in modo sequenziale può essere solo sequenziale.
La dichiarazione ‘FILE STATUS IS data-name’ consente di indicare una variabile (da specificare
nella sezione ‘WORKING-STORAGE SECTION’ della divisione ‘DATA DIVISION’) da
usare eventualmente per conoscere lo stato dell’ultima operazione svolta sul file. Questa variabile
deve poter rappresentare un valore di due caratteri (il modello di definizione della variabile
deve essere ‘XX’) e quando contiene il valore zero indica che l’ultima operazione è stata
eseguita con successo (si vedano le tabelle 82.48 e 82.49, che appaiono alla fine del capitolo).
Il punto fermo che conclude l’istruzione ‘SELECT’ appare una volta sola, alla fine; tutta
l’istruzione deve risiedere nell’area B.
Viene mostrato un esempio completo di un programma COBOL che legge un file sequenziale:
|Listato 82.34. Programma elementare che legge un file sequenziale.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. ESEMPIO-SEQUENZIALE.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 INSTALLATION. NANOLINUX IV,
|000500 TINYCOBOL 0.61.
|000600 DATE-WRITTEN. 2005-02-16.
|000700 ENVIRONMENT DIVISION.
|000800 INPUT-OUTPUT SECTION.
|000900*
|001000 FILE-CONTROL.
|001100 SELECT FILE-NAME ASSIGN TO DISK
|001200 ORGANIZATION IS SEQUENTIAL
|001300 ACCESS MODE IS SEQUENTIAL
|001400 FILE STATUS IS DATA-NAME.
|001500*
|001600 DATA DIVISION.
|001700 FILE SECTION.
|001800 FD FILE-NAME
|001900 LABEL RECORD IS STANDARD
|002000 VALUE OF FILE-ID IS "input.seq".
|002100 01 RECORD-NAME PIC X(20).
|002200 WORKING-STORAGE SECTION.
|002300 01 DATA-NAME PIC XX.
|002400 PROCEDURE DIVISION.
|002500 MAIN.
|002600 OPEN INPUT FILE-NAME.
|002700 DISPLAY "FILE STATUS: ", DATA-NAME.
|002800 PERFORM READ-FILE UNTIL DATA-NAME NOT = ZERO.
|002900 CLOSE FILE-NAME.
|003000 STOP RUN.
|003100 READ-FILE.
|003200 READ FILE-NAME.