Parte ii - IIS Marconi Latina - Area didattica

1054 volume V Programmazione
|014900 PERFORM LETTURA-FILE-MERGE;
|015000 ELSE
|015100 MOVE RECORD-MERGE TO RECORD-TMP-2,
|015200 WRITE RECORD-TMP-2,
|015300 MOVE CODICE-MERGE TO CODICE-ORIG,
|015400 PERFORM LETTURA-FILE-MERGE;
|015500 ELSE
|015600 ADD 1 TO BIFORCAZIONI,
|015700 MOVE CODICE-MERGE TO CODICE-ORIG,
|015800 IF SCAMBIO = 1
|015900 THEN
|016000 MOVE 2 TO SCAMBIO;
|016100 ELSE
|016200 MOVE 1 TO SCAMBIO.
|016300*-----------------------------------------------------------------
|016400 FUSIONE-SUCCESSIVA.
|016500 PERFORM FUSIONE-BLOCCO
|016600 UNTIL EOB-1 = 1 AND EOB-2 = 1.
|016700 IF NOT EOF-1 = 1
|016800 THEN
|016900 MOVE ZERO TO EOB-1.
|017000 IF NOT EOF-2 = 1
|017100 THEN
|017200 MOVE ZERO TO EOB-2.
|017300*------------------------- LIVELLO 4 -----------------------------
|017400 FUSIONE-BLOCCO.
|017500 IF EOB-1 = 1
|017600 THEN
|017700 MOVE RECORD-TMP-2 TO RECORD-MERGE,
|017800 PERFORM LETTURA-FILE-TMP-2;
|017900 ELSE
|018000 IF EOB-2 = 1
|018100 THEN
|018200 MOVE RECORD-TMP-1 TO RECORD-MERGE,
|018300 PERFORM LETTURA-FILE-TMP-1;
|018400 ELSE
|018500 IF CODICE-T1 < CODICE-T2
|018600 THEN
|018700 MOVE RECORD-TMP-1 TO RECORD-MERGE,
|018800 PERFORM LETTURA-FILE-TMP-1;
|018900 IF EOF-1 = 0 AND EOB-1 = 0
|019000 THEN
|019100 IF CODICE-T1 >= CODICE-ORIG-1
|019200 THEN
|019300 MOVE CODICE-T1
|019400 TO CODICE-ORIG-1;
|019500 ELSE
|019600 MOVE 1 TO EOB-1;
|019700 ELSE
|019800 NEXT SENTENCE;
|019900 ELSE
|020000 MOVE RECORD-TMP-2 TO RECORD-MERGE,
|020100 PERFORM LETTURA-FILE-TMP-2;