Parte ii - IIS Marconi Latina - Area didattica

992 volume V Programmazione
82.13.4 Lettura del risultato dell’ordinamento o della fusione
attraverso una procedura
«
Quando si usano le istruzioni ‘SORT’ o ‘MERGE’, invece di generare un file ordinato o fuso, è
possibile leggere il risultato dell’ordinamento o della fusione, specificando la chiamata di un
intervallo di procedure (paragrafi o sezioni):
Nell’ambito dell’intervallo di procedure chiamato, occorre usare l’istruzione ‘RETURN’ per
leggere questi dati dal file di riordino o di fusione:
L’istruzione ‘RETURN’ funziona a tutti gli effetti come l’istruzione ‘READ’ di un file sequenziale,
dove il file indicato è precisamente quello che appare nell’istruzione ‘SORT’ o ‘MERGE’
chiamante, con la stessa metavariabile.
|Listato 82.255.
procedura.
Esempio di lettura del risultato di un ordinamento attraverso una
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-SORT-4.
|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-DA-ORDINARE ASSIGN TO "input.seq".
|001300 SELECT FILE-PER-IL-RIORDINO ASSIGN TO "sort.tmp".
|001400*
|001500 DATA DIVISION.
|001600*
|001700 FILE SECTION.
|001800*
|001900 FD FILE-DA-ORDINARE.
|002000 01 RECORD-DA-ORDINARE PIC X(10).
|002100*
|002200 SD FILE-PER-IL-RIORDINO.
|002300*
|002400 01 RECORD-PER-IL-RIORDINO.
|002500 02 CHIAVE-ORDINAMENTO PIC X(5).
|002600 02 FILLER PIC X(5).