Parte ii - IIS Marconi Latina - Area didattica

990 volume V Programmazione
|Listato 82.249. Programma elementare che dimostra il funzionamento di ‘MERGE’.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-MERGE.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-03-18.
|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(10).
|002300*
|002400 FD FILE-INPUT-2
|002500 01 RECORD-2 PIC X(10).
|002600*
|002700 FD FILE-OUTPUT
|002800 01 RECORD-OUTPUT PIC X(10).
|002900*
|003000 SD FILE-PER-LA-FUSIONE.
|003100*
|003200 01 RECORD-PER-LA-FUSIONE.
|003300 02 CHIAVE-ORDINAMENTO PIC X(5).
|003400 02 FILLER PIC X(5).
|003500*
|003600 PROCEDURE DIVISION.
|003700*------------------------- LIVELLO 0 -----------------------------
|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*
Lo schema sintattico consentirebbe l’indicazione di più file ordinati da generare: se viene indicato
più di un file per raccogliere il risultato della fusione, questi ottengono lo stesso contenuto;
i file in sé possono essere differenti, se possiedono una diversa organizzazione.