Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1051
83.3.15 AGO-83-20: riordino attraverso la fusione
«
Il programma seguente utilizza un file sequenziale, non ordinato, denominato ‘file-in.seq’,
per generare il file ‘file-out.seq’ ordinato, utilizzando due file temporanei: ‘file-tmp-
1.seq’ e ‘file-tmp-2.seq’. Per creare il file ‘file-in.seq’, si può usare il programma
‘AGO-83-1’, modificando poi il nome come richiesto in questo esempio.
Nella sezione 72.6.2 viene descritto il problema del riordino ottenuto attraverso la suddivisione
in blocchi del file e la fusione successiva.
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/AGO-83-20.cob 〉.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. AGO-83-20.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 DATE-WRITTEN. 2005-03-29.
|000500*
|000600 ENVIRONMENT DIVISION.
|000700*
|000800 INPUT-OUTPUT SECTION.
|000900*
|001000 FILE-CONTROL.
|001100*
|001200 SELECT FILE-IN ASSIGN TO "file-in.seq"
|001300 ORGANIZATION IS SEQUENTIAL.
|001400 SELECT FILE-TMP-1 ASSIGN TO "file-tmp-1.seq"
|001500 ORGANIZATION IS SEQUENTIAL.
|001600 SELECT FILE-TMP-2 ASSIGN TO "file-tmp-2.seq"
|001700 ORGANIZATION IS SEQUENTIAL.
|001800 SELECT FILE-MERGE ASSIGN TO "file-out.seq"
|001900 ORGANIZATION IS SEQUENTIAL.
|002000*
|002100 DATA DIVISION.
|002200*
|002300 FILE SECTION.
|002400*
|002500 FD FILE-IN
|002600 LABEL RECORD IS STANDARD.
|002700*
|002800 01 RECORD-IN.
|002900 02 CODICE-IN PIC 9(10) COMP.
|003000 02 FILLER PIC X(75).
|003100*
|003200 FD FILE-TMP-1
|003300 LABEL RECORD IS STANDARD.
|003400*
|003500 01 RECORD-TMP-1.
|003600 02 CODICE-T1 PIC 9(10) COMP.
|003700 02 FILLER PIC X(75).
|003800*
|003900 FD FILE-TMP-2
|004000 LABEL RECORD IS STANDARD.
|004100*
|004200 01 RECORD-TMP-2.