Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 883
L’esempio seguente riguarda la fusione: si hanno i file ‘input-1.seq’ e ‘input-2.seq’
ordinati e si vuole ottenere il file ‘output.seq’ con la somma dei record, mantenendo
l’ordinamento:
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. MERGE.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-02-25.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700*
|000800 INPUT-OUTPUT SECTION.
|000900*
|001000 FILE-CONTROL.
|001100*
|001200 SELECT FILE-INPUT-1 ASSIGN TO "input-1.seq".
|001300 SELECT FILE-INPUT-2 ASSIGN TO "input-2.seq".
|001400 SELECT FILE-OUTPUT ASSIGN TO "output.seq".
|001500 SELECT FILE-PER-LA-FUSIONE ASSIGN TO "merge.tmp".
|001600*
|001700 DATA DIVISION.
|001800*
|001900 FILE SECTION.
|002000*
|002100 FD FILE-INPUT-1
|002200 01 RECORD-1 PIC X(80).
|002300*
|002400 FD FILE-INPUT-2
|002500 01 RECORD-2 PIC X(80).
|002600*
|002700 FD FILE-OUTPUT
|002800 01 RECORD-OUTPUT PIC X(80).
|002900*
|003000 SD FILE-PER-LA-FUSIONE.
|003100*
|003200 01 RECORD-PER-LA-FUSIONE.
|003300 02 CHIAVE-ORDINAMENTO PIC X(10).
|003400 02 FILLER PIC X(70).
|003500*
|003600 PROCEDURE DIVISION.
|003700*
|003800 MAIN.
|003900 MERGE FILE-PER-LA-FUSIONE
|004000 ON ASCENDING KEY CHIAVE-ORDINAMENTO,
|004100 USING FILE-INPUT-1,
|004200 FILE-INPUT-2,
|004300 GIVING FILE-OUTPUT.
|004400*
|004500 STOP RUN.
|004600*
Si osservi che esistono compilatori COBOL, di buona qualità, che però non offrono le funzionalità
di riordino e di fusione, oppure non in modo completo. È frequente l’assenza della