Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1041
83.3.9 AGO-83-12: lettura di un file a indice ad accesso dinamico
Questo esempio funziona con il compilatore TinyCOBOL 0.61 e utilizza il file già predisposto
per quello precedente. In questo caso si utilizza l’istruzione ‘START’ per il posizionamento
iniziale.
«
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/AGO-83-12.cob 〉.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. AGO-83-12.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 1983-08.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700*
|000800 INPUT-OUTPUT SECTION.
|000900*
|001000 FILE-CONTROL.
|001100*
|001200 SELECT FILE-DA-LEGGERE ASSIGN TO "file.ind"
|001300 ORGANIZATION IS INDEXED
|001400 ACCESS MODE IS DYNAMIC
|001500 RECORD KEY IS CHIAVE.
|001600*
|001700 DATA DIVISION.
|001800*
|001900 FILE SECTION.
|002000*
|002100 FD FILE-DA-LEGGERE
|002200 LABEL RECORD IS STANDARD.
|002300*
|002400 01 RECORD-DA-LEGGERE.
|002500 02 CHIAVE PIC X(5).
|002600 02 CHIAVE2 PIC X(5).
|002700 02 TESTO PIC X(70).
|002800*
|002900 WORKING-STORAGE SECTION.
|003000*
|003100 01 CAMPI-SCALARI.
|003200 02 EOJ PIC 9 COMP VALUE IS 0.
|003300 02 EOF PIC 9 COMP VALUE IS 0.
|003400 02 INV-KEY PIC 9 COMP VALUE IS 0.
|003500 02 END-KEY PIC 9 COMP VALUE IS 0.
|003600 02 CHIAVE-INIZIALE PIC X(5).
|003700 02 CHIAVE-FINALE PIC X(5).
|003800 02 CHIAVE-SCAMBIO PIC X(5).
|003900*
|004000 PROCEDURE DIVISION.
|004100*------------------------- LIVELLO 0 -----------------------------
|004200 MAIN.
|004300 OPEN INPUT FILE-DA-LEGGERE.
|004400 PERFORM ELABORAZIONE UNTIL EOJ = 1.
|004500 CLOSE FILE-DA-LEGGERE.
|004600 STOP RUN.