Parte ii - IIS Marconi Latina - Area didattica

Programmare in COBOL 1049
|009400 DISPLAY "ERRORE NON PREVISTO 2".
|009500*
83.3.14 AGO-83-18: fusione tra due file sequenziali ordinati
Il programma seguente richiede la presenza di due file sequenziali, ordinati, denominati rispettivamente
‘file-ord-1.seq’ e ‘file-ord-2.seq’. Per creare questi file si può usare il
programma ‘AGO-83-1’, avendo cura di inserire una sequenza di record ordinati per codice,
modificando poi il nome del file, una volta come ‘file-ord-1.seq’ e un’altra volta come
‘file-ord-2.seq’.
«
Una copia di questo file dovrebbe essere disponibile presso 〈allegati/cobol/AGO-83-18.cob 〉.
|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*