Parte ii - IIS Marconi Latina - Area didattica

1048 volume V Programmazione
|004100 02 ANNO-MESE-GIORNO.
|004200 03 ANNO PIC 9999.
|004300 03 MESE PIC 99.
|004400 03 GIORNO PIC 99.
|004500*
|004600 WORKING-STORAGE SECTION.
|004700*
|004800 01 CAMPI-SCALARI.
|004900 02 EOF PIC 9 COMP VALUE IS 0.
|005000 02 INV-KEY PIC 9 COMP VALUE IS 0.
|005100*
|005200 PROCEDURE DIVISION.
|005300*------------------------- LIVELLO 0 -----------------------------
|005400 MAIN.
|005500 OPEN INPUT FILE-AGGIORNAMENTI.
|005600 OPEN I-O FILE-DA-AGGIORNARE.
|005700 PERFORM LEGGI-FILE-AGGIORNAMENTI.
|005800 PERFORM ELABORAZIONE
|005900 UNTIL EOF = 1.
|006000 CLOSE FILE-AGGIORNAMENTI.
|006100 CLOSE FILE-DA-AGGIORNARE
|006200 STOP RUN.
|006300*------------------------- LIVELLO 1 -----------------------------
|006400 ELABORAZIONE.
|006500 MOVE ZERO TO INV-KEY.
|006600 READ FILE-DA-AGGIORNARE
|006700 INVALID KEY
|006800 MOVE 1 TO INV-KEY.
|006900 IF INV-KEY = 1
|007000 THEN
|007100 PERFORM WRITE-FILE-DA-AGGIORNARE;
|007200 ELSE
|007300 IF ANNO-MESE-GIORNO OF RECORD-AGGIORNAMENTI >
|007400 ANNO-MESE-GIORNO OF RECORD-DA-AGGIORNARE
|007500 THEN
|007600 PERFORM REWRITE-FILE-DA-AGGIORNARE.
|007700 PERFORM LEGGI-FILE-AGGIORNAMENTI.
|007800*-----------------------------------------------------------------
|007900 LEGGI-FILE-AGGIORNAMENTI.
|008000 READ FILE-AGGIORNAMENTI
|008100 AT END MOVE 1 TO EOF.
|008200 IF NOT EOF = 1
|008300 THEN
|008400 MOVE CHIAVE TO CHIAVE-K.
|008500*------------------------- LIVELLO 2 -----------------------------
|008600 WRITE-FILE-DA-AGGIORNARE.
|008700 WRITE RECORD-DA-AGGIORNARE FROM RECORD-AGGIORNAMENTI
|008800 INVALID KEY
|008900 DISPLAY "ERRORE NON PREVISTO 1".
|009000*-----------------------------------------------------------------
|009100 REWRITE-FILE-DA-AGGIORNARE.
|009200 REWRITE RECORD-DA-AGGIORNARE FROM RECORD-AGGIORNAMENTI
|009300 INVALID KEY