000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. AGO-83-6. 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 RANDOM 001500 RECORD KEY IS CHIAVE 001600 ALTERNATE RECORD KEY IS CHIAVE2 001700 WITH DUPLICATES. 001800* 001900 DATA DIVISION. 002000* 002100 FILE SECTION. 002200* 002300 FD FILE-DA-LEGGERE 002400 LABEL RECORD IS STANDARD. 002500* 002600 01 RECORD-DA-LEGGERE. 002700 02 CHIAVE PIC X(5). 002800 02 CHIAVE2 PIC X(5). 002900 02 TESTO PIC X(70). 003000* 003100 WORKING-STORAGE SECTION. 003200* 003300 01 CAMPI-SCALARI. 003400 02 EOJ PIC 9 COMP VALUE IS 0. 003500 02 INV-KEY PIC 9 COMP VALUE IS 0. 003600* 003700 PROCEDURE DIVISION. 003800*------------------------- LIVELLO 0 ----------------------------- 003900 MAIN. 004000 OPEN INPUT FILE-DA-LEGGERE. 004100 PERFORM ELABORAZIONE UNTIL EOJ = 1. 004200 CLOSE FILE-DA-LEGGERE. 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*