Parte ii - IIS Marconi Latina - Area didattica
Parte ii - IIS Marconi Latina - Area didattica
Parte ii - IIS Marconi Latina - Area didattica
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
Programmare in COBOL 1031<br />
|004300 THEN<br />
|004400 MOVE 1 TO EOJ,<br />
|004500 ELSE<br />
|004600 ACCEPT TESTO,<br />
|004700 WRITE RECORD-DA-SCRIVERE.<br />
|004800*<br />
83.3.2 AGO-83-2: lettura sequenziale e ricerca di una chiave<br />
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/AGO-83-2.cob 〉.<br />
«<br />
|000100 IDENTIFICATION DIVISION.<br />
|000200 PROGRAM-ID. AGO-83-2.<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.seq"<br />
|001300 ORGANIZATION IS SEQUENTIAL.<br />
|001400*<br />
|001500 DATA DIVISION.<br />
|001600*<br />
|001700 FILE SECTION.<br />
|001800*<br />
|001900 FD FILE-DA-LEGGERE<br />
|002000 LABEL RECORD IS STANDARD.<br />
|002100*<br />
|002200 01 RECORD-DA-LEGGERE.<br />
|002300 02 CODICE-FILE PIC 9(10) COMP.<br />
|002400 02 TESTO PIC X(75).<br />
|002500*<br />
|002600 WORKING-STORAGE SECTION.<br />
|002700*<br />
|002800 01 CAMPI-SCALARI.<br />
|002900 02 EOF PIC 9 COMP VALUE IS 0.<br />
|003000 02 EOJ PIC 9 COMP VALUE IS 0.<br />
|003100 02 CODICE-RECORD PIC 9(10) COMP VALUE IS 0.<br />
|003200*<br />
|003300 PROCEDURE DIVISION.<br />
|003400*------------------------- LIVELLO 0 -----------------------------<br />
|003500 MAIN.<br />
|003600 OPEN INPUT FILE-DA-LEGGERE.<br />
|003700 READ FILE-DA-LEGGERE<br />
|003800 AT END MOVE 1 TO EOF.<br />
|003900 PERFORM DOMANDA UNTIL EOF = 1 OR EOJ = 1.<br />
|004000 CLOSE FILE-DA-LEGGERE.