000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. AGO-83-5. 000300 AUTHOR. DANIELE GIACOMINI. 000400 DATE-WRITTEN. 2005-03-20. 000500* 000600 ENVIRONMENT DIVISION. 000700* 000800 INPUT-OUTPUT SECTION. 000900* 001000 FILE-CONTROL. 001100* 001200 SELECT FILE-DA-SCRIVERE ASSIGN TO "file.ind" 001300 ORGANIZATION IS INDEXED 001400 ACCESS MODE IS SEQUENTIAL 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-SCRIVERE 002400 LABEL RECORD IS STANDARD. 002500* 002600 01 RECORD-DA-SCRIVERE. 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* 003600 PROCEDURE DIVISION. 003700*------------------------- LIVELLO 0 ----------------------------- 003800 MAIN. 003900 OPEN OUTPUT FILE-DA-SCRIVERE. 004000 PERFORM INSERIMENTO-DATI UNTIL EOJ = 1. 004100 CLOSE FILE-DA-SCRIVERE. 004200 STOP RUN. 004300*------------------------- LIVELLO 1 ----------------------------- 004400 INSERIMENTO-DATI. 004500 DISPLAY "INSERISCI IL RECORD: I PRIMI CINQUE CARATTERI ", 004600 "COSTITUISCONO LA CHIAVE PRIMARIA ", 004700 "CHE DEVE ESSERE UNICA" 004800 ACCEPT RECORD-DA-SCRIVERE. 004900 IF RECORD-DA-SCRIVERE = SPACES 005000 THEN 005100 MOVE 1 TO EOJ, 005200 ELSE 005300 WRITE RECORD-DA-SCRIVERE 005400 INVALID KEY 005500 DISPLAY "LA CHIAVE ", CHIAVE, 005600 " E' DOPPIA, OPPURE " 005700 "NON E' VALIDA". 005800*