000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. AGO-83-2. 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.seq" 001300 ORGANIZATION IS SEQUENTIAL. 001400* 001500 DATA DIVISION. 001600* 001700 FILE SECTION. 001800* 001900 FD FILE-DA-LEGGERE 002000 LABEL RECORD IS STANDARD. 002100* 002200 01 RECORD-DA-LEGGERE. 002300 02 CODICE-FILE PIC 9(10) COMP. 002400 02 TESTO PIC X(75). 002500* 002600 WORKING-STORAGE SECTION. 002700* 002800 01 CAMPI-SCALARI. 002900 02 EOF PIC 9 COMP VALUE IS 0. 003000 02 EOJ PIC 9 COMP VALUE IS 0. 003100 02 CODICE-RECORD PIC 9(10) COMP VALUE IS 0. 003200* 003300 PROCEDURE DIVISION. 003400*------------------------- LIVELLO 0 ----------------- 003500 MAIN. 003600 OPEN INPUT FILE-DA-LEGGERE. 003700 READ FILE-DA-LEGGERE 003800 AT END MOVE 1 TO EOF. 003900 PERFORM DOMANDA UNTIL EOF = 1 OR EOJ = 1. 004000 CLOSE FILE-DA-LEGGERE. 004100 STOP RUN. 004200*------------------------- LIVELLO 1 ----------------- 004300 DOMANDA. 004400 DISPLAY "INSERISCI IL CODICE DEL RECORD, ", 004450 "DI 10 CIFRE" 004500 ACCEPT CODICE-RECORD. 004600 IF CODICE-RECORD = 0 004700 THEN 004800 MOVE 1 TO EOJ. 004900 PERFORM RICERCA UNTIL EOF = 1 OR EOJ = 1. 005000 CLOSE FILE-DA-LEGGERE. 005100 MOVE ZERO TO EOF. 005200 OPEN INPUT FILE-DA-LEGGERE. 005300 READ FILE-DA-LEGGERE 005400 AT END MOVE 1 TO EOF. 005500*------------------------- LIVELLO 2 ----------------- 005600 RICERCA. 005700 IF CODICE-FILE = CODICE-RECORD 005800 THEN 005900 DISPLAY CODICE-FILE, " ", TESTO. 006000 READ FILE-DA-LEGGERE 006100 AT END MOVE 1 TO EOF. 006200*