Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1037
|004300 STOP RUN.
|004400*------------------------- LIVELLO 1 -----------------------------
|004500 ELABORAZIONE.
|004600 DISPLAY "INSERISCI LA CHIAVE PRIMARIA".
|004700 ACCEPT CHIAVE.
|004800 IF CHIAVE = SPACES
|004900 THEN
|005000 MOVE 1 TO EOJ,
|005100 ELSE
|005200 PERFORM LEGGI,
|005300 IF INV-KEY = 1
|005400 THEN
|005500 DISPLAY "INVALID KEY: ", CHIAVE,
|005600 ELSE
|005700 DISPLAY CHIAVE, " ", CHIAVE2, " ", TESTO.
|005800*------------------------- LIVELLO 2 -----------------------------
|005900 LEGGI.
|006000 MOVE 0 TO INV-KEY.
|006100 READ FILE-DA-LEGGERE
|006200 INVALID KEY
|006300 MOVE 1 TO INV-KEY.
|006400*
83.3.7 AGO-83-8: lettura di un file a indice ad accesso dinamico
Questo esempio funziona parzialmente con il compilatore TinyCOBOL 0.61 e utilizza il file
già predisposto per quello precedente. Si osservi che si fa riferimento alla chiave secondaria
del file, in modo da poter contare sulla presenza di chiavi doppie.
«
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/AGO-83-8.cob 〉.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. AGO-83-8.
|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 CHIAVE2.
|001600*
|001700 DATA DIVISION.
|001800*
|001900 FILE SECTION.
|002000*
|002100 FD FILE-DA-LEGGERE