Parte ii - IIS Marconi Latina - Area didattica

1046 volume V Programmazione
|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: LA CHIAVE, I DATI DEL ",
|004500 "RECORD E LA DATA DI 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,