Parte ii - IIS Marconi Latina - Area didattica
Parte ii - IIS Marconi Latina - Area didattica
Parte ii - IIS Marconi Latina - Area didattica
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
Programmare in COBOL 1039<br />
|007500 THEN<br />
|007600 MOVE 1 TO END-KEY.<br />
|007700*<br />
83.3.8 AGO-83-10: lettura di un file a indice ad accesso dinamico<br />
Questo esempio funziona con il compilatore TinyCOBOL 0.61 e utilizza il file già predisposto<br />
per quello precedente. In questo caso si ritorna a utilizzare la chiave primaria.<br />
«<br />
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/AGO-83-10.cob 〉.<br />
|000100 IDENTIFICATION DIVISION.<br />
|000200 PROGRAM-ID. AGO-83-10.<br />
|000300 AUTHOR. DANIELE GIACOMINI.<br />
|000400 DATE-WRITTEN. 1983-08.<br />
|000500*<br />
|000600 ENVIRONMENT DIVISION.<br />
|000700*<br />
|000800 INPUT-OUTPUT SECTION.<br />
|000900*<br />
|001000 FILE-CONTROL.<br />
|001100*<br />
|001200 SELECT FILE-DA-LEGGERE ASSIGN TO "file.ind"<br />
|001300 ORGANIZATION IS INDEXED<br />
|001400 ACCESS MODE IS DYNAMIC<br />
|001500 RECORD KEY IS CHIAVE.<br />
|001600*<br />
|001700 DATA DIVISION.<br />
|001800*<br />
|001900 FILE SECTION.<br />
|002000*<br />
|002100 FD FILE-DA-LEGGERE<br />
|002200 LABEL RECORD IS STANDARD.<br />
|002300*<br />
|002400 01 RECORD-DA-LEGGERE.<br />
|002500 02 CHIAVE PIC X(5).<br />
|002600 02 CHIAVE2 PIC X(5).<br />
|002700 02 TESTO PIC X(70).<br />
|002800*<br />
|002900 WORKING-STORAGE SECTION.<br />
|003000*<br />
|003100 01 CAMPI-SCALARI.<br />
|003200 02 EOJ PIC 9 COMP VALUE IS 0.<br />
|003300 02 EOF PIC 9 COMP VALUE IS 0.<br />
|003400 02 INV-KEY PIC 9 COMP VALUE IS 0.<br />
|003500 02 END-KEY PIC 9 COMP VALUE IS 0.<br />
|003600 02 CHIAVE-INIZIALE PIC X(5).<br />
|003700 02 CHIAVE-FINALE PIC X(5).<br />
|003800 02 CHIAVE-SCAMBIO PIC X(5).<br />
|003900*<br />
|004000 PROCEDURE DIVISION.<br />
|004100*------------------------- LIVELLO 0 -----------------------------