Parte ii - IIS Marconi Latina - Area didattica

882 volume V Programmazione
Viene proposto un esempio di riordino di file, nel quale, in particolare, si dichiarano i nomi dei
file su disco, direttamente nell’istruzione ‘SELECT’:
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. ORDINA.
|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-DA-ORDINARE ASSIGN TO "input.seq".
|001300 SELECT FILE-ORDINATO ASSIGN TO "output.seq".
|001400 SELECT FILE-PER-IL-RIORDINO ASSIGN TO "sort.tmp".
|001500*
|001600 DATA DIVISION.
|001700*
|001800 FILE SECTION.
|001900*
|002000 FD FILE-DA-ORDINARE.
|002100 01 RECORD-DA-ORDINARE PIC X(80).
|002200*
|002300 FD FILE-ORDINATO.
|002400 01 RECORD-ORDINATO PIC X(80).
|002500*
|002600 SD FILE-PER-IL-RIORDINO.
|002700*
|002800 01 RECORD-PER-IL-RIORDINO.
|002900 02 CHIAVE-ORDINAMENTO PIC X(10).
|003000 02 FILLER PIC X(70).
|003100*
|003200 PROCEDURE DIVISION.
|003300*
|003400 MAIN.
|003500 SORT FILE-PER-IL-RIORDINO,
|003600 ON ASCENDING KEY CHIAVE-ORDINAMENTO,
|003700 USING FILE-DA-ORDINARE,
|003800 GIVING FILE-ORDINATO.
|003900*
|004000 STOP RUN.
|004100*
Come si può vedere, si vuole ordinare il file ‘input.seq’ per generare il file ‘output.seq’,
ordinato. Per fare questo, si usa un file intermedio, denominato ‘sort.tmp’. Al termine
dell’operazione, non dovrebbe rimanere traccia del file intermedio.
Si osservi che non si rende necessaria l’apertura dei file coinvolti per portare a termine
l’operazione.