000100 IDENTIFICATION DIVISION. 000200 PROGRAM-ID. AGO-83-18. 000300 AUTHOR. DANIELE GIACOMINI. 000400 DATE-WRITTEN. 1983-06. 000500* 000600 ENVIRONMENT DIVISION. 000700* 000800 INPUT-OUTPUT SECTION. 000900* 001000 FILE-CONTROL. 001100* 001200 SELECT FILE-ORD-1 ASSIGN TO "file-ord-1.seq" 001300 ORGANIZATION IS SEQUENTIAL. 001400 SELECT FILE-ORD-2 ASSIGN TO "file-ord-2.seq" 001500 ORGANIZATION IS SEQUENTIAL. 001600 SELECT FILE-MERGE ASSIGN TO "file-merge.seq" 001700 ORGANIZATION IS SEQUENTIAL. 001800* 001900 DATA DIVISION. 002000* 002100 FILE SECTION. 002200* 002300 FD FILE-ORD-1 002400 LABEL RECORD IS STANDARD. 002500* 002600 01 RECORD-ORD-1. 002700 02 CODICE-1 PIC 9(10) COMP. 002800 02 FILLER PIC X(75). 002900* 003000 FD FILE-ORD-2 003100 LABEL RECORD IS STANDARD. 003200* 003300 01 RECORD-ORD-2. 003400 02 CODICE-2 PIC 9(10) COMP. 003500 02 FILLER PIC X(75). 003600* 003700 FD FILE-MERGE 003800 LABEL RECORD IS STANDARD. 003900* 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-1 = 0) 006450 OR EOF-2 = 1 006500 THEN 006600 MOVE RECORD-ORD-1 TO RECORD-MERGE, 006700 WRITE RECORD-MERGE, 006800 PERFORM LETTURA-FILE-ORD-1; 006900 ELSE IF (CODICE-1 > CODICE-2 AND EOF-2 = 0) 006950 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*