Parte ii - IIS Marconi Latina - Area didattica

1050 volume V Programmazione
|004000 01 RECORD-MERGE PIC X(80).
|004100*
|004200 WORKING-STORAGE SECTION.
|004300*
|004400 01 CAMPI-SCALARI.
|004500 02 EOF-1 PIC 9 COMP VALUE IS 0.
|004600 02 EOF-2 PIC 9 COMP VALUE IS 0.
|004700*
|004800 PROCEDURE DIVISION.
|004900*------------------------- LIVELLO 0 -----------------------------
|005000 MAIN.
|005100 OPEN INPUT FILE-ORD-1.
|005200 OPEN INPUT FILE-ORD-2.
|005300 OPEN OUTPUT FILE-MERGE.
|005400 PERFORM LETTURA-FILE-ORD-1.
|005500 PERFORM LETTURA-FILE-ORD-2.
|005600 PERFORM ELABORAZIONE
|005700 UNTIL EOF-1 = 1 AND EOF-2 = 1.
|005800 CLOSE FILE-MERGE.
|005900 CLOSE FILE-ORD-2.
|006000 CLOSE FILE-ORD-1.
|006100 STOP RUN.
|006200*------------------------- LIVELLO 1 -----------------------------
|006300 ELABORAZIONE.
|006400 IF (CODICE-1 CODICE-2 AND EOF-2 = 0) OR EOF-1 = 1
|007000 THEN
|007100 MOVE RECORD-ORD-2 TO RECORD-MERGE,
|007200 WRITE RECORD-MERGE,
|007300 PERFORM LETTURA-FILE-ORD-2;
|007400 ELSE
|007500 DISPLAY "ERRORE NON PREVISTO".
|007600*------------------------- LIVELLO 2 -----------------------------
|007700 LETTURA-FILE-ORD-1.
|007800 READ FILE-ORD-1
|007900 AT END
|008000 MOVE 1 TO EOF-1.
|008100*-----------------------------------------------------------------
|008200 LETTURA-FILE-ORD-2.
|008300 READ FILE-ORD-2
|008400 AT END
|008500 MOVE 1 TO EOF-2.
|008600*