000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. AGO-83-15. 000300 AUTHOR. DANIELE GIACOMINI. 000400 DATE-WRITTEN. 2005-03-22. 000500* 000600 ENVIRONMENT DIVISION. 000700* 000800 INPUT-OUTPUT SECTION. 000900* 001000 FILE-CONTROL. 001100* 001200 SELECT FILE-AGGIORNAMENTI ASSIGN TO "agg.seq" 001300 ORGANIZATION IS SEQUENTIAL. 001400* 001500 DATA DIVISION. 001600* 001700 FILE SECTION. 001800* 001900 FD FILE-AGGIORNAMENTI 002000 LABEL RECORD IS STANDARD. 002100* 002200 01 RECORD-AGGIORNAMENTI. 002300 02 CHIAVE PIC X(5). 002400 02 DATI PIC X(67). 002500 02 ANNO-MESE-GIORNO. 002600 03 ANNO PIC 9999. 002700 03 MESE PIC 99. 002800 03 GIORNO PIC 99. 002900* 003000 WORKING-STORAGE SECTION. 003100* 003200 01 CAMPI-SCALARI. 003300 02 EOJ PIC 9 COMP VALUE IS 0. 003400* 003500 PROCEDURE DIVISION. 003600*------------------------- LIVELLO 0 ----------------- 003700 MAIN. 003800 OPEN EXTEND FILE-AGGIORNAMENTI. 003900 PERFORM INSERIMENTO-DATI UNTIL EOJ = 1. 004000 CLOSE FILE-AGGIORNAMENTI. 004100 STOP RUN. 004200*------------------------- LIVELLO 1 ----------------- 004300 INSERIMENTO-DATI. 004400 DISPLAY "INSERISCI IN SEQUENZA: ", 004450 "LA CHIAVE, I DATI DEL ", 004500 "RECORD E LA DATA DI ", 004550 "INSERIMENTO. LA DATA SI ", 004600 "SCRIVE SECONDO IL FORMATO AAAAMMGG". 004700 ACCEPT CHIAVE. 004800 ACCEPT DATI. 004900 ACCEPT ANNO-MESE-GIORNO. 005000 IF CHIAVE = SPACES 005100 THEN 005200 MOVE 1 TO EOJ, 005300 ELSE 005400 WRITE RECORD-AGGIORNAMENTI. 005500*