Parte ii - IIS Marconi Latina - Area didattica

968 volume V Programmazione
La lettura ad accesso diretto di un file a indice, consente di ottenere il primo record che soddisfa
la corrispondenza con la chiave cercata; se sono presenti record con chiavi doppie, le altre
corrispondenze devono essere raggiunte attraverso una lettura sequenziale.
|Listato 82.216.
sequenziale.
Programma elementare che legge un file sequenziale, ad accesso
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-READ-SEQ.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 INSTALLATION. NANOLINUX IV,
|000500 TINYCOBOL 0.61,
|000600 OPENCOBOL 0.31.
|000700 DATE-WRITTEN. 2005-03-12.
|000800*
|000900 ENVIRONMENT DIVISION.
|001000*
|001100 INPUT-OUTPUT SECTION.
|001200*
|001300 FILE-CONTROL.
|001400*
|001500 SELECT FILE-DA-LEGGERE ASSIGN TO "input.seq"
|001600 ORGANIZATION IS SEQUENTIAL.
|001700*
|001800 DATA DIVISION.
|001900*
|002000 FILE SECTION.
|002100*
|002200 FD FILE-DA-LEGGERE
|002300 LABEL RECORD IS STANDARD.
|002400*
|002500 01 RECORD-DA-LEGGERE PIC X(30).
|002600*
|002700 WORKING-STORAGE SECTION.
|002800 01 EOF PIC 9 VALUE ZERO.
|002900*
|003000 PROCEDURE DIVISION.
|003100*------------------------- LIVELLO 0 -----------------------------
|003200 MAIN.
|003300 OPEN INPUT FILE-DA-LEGGERE.
|003400 READ FILE-DA-LEGGERE
|003500 AT END
|003600 MOVE 1 TO EOF.
|003700 PERFORM LETTURA UNTIL EOF = 1.
|003800 CLOSE FILE-DA-LEGGERE.
|003900*
|004000 STOP RUN.
|004100*------------------------- LIVELLO 1 -----------------------------
|004200 LETTURA.
|004300 DISPLAY RECORD-DA-LEGGERE.
|004400 READ FILE-DA-LEGGERE
|004500 AT END
|004600 MOVE 1 TO EOF.
|004700*