Parte ii - IIS Marconi Latina - Area didattica

988 volume V Programmazione
Il file da ordinare può essere costituito dal nome che appare dopo la parola ‘USING’, oppure può
essere generato da un gruppo di procedure del programma, specificate dopo le parole ‘INPUT
PROCEDURE’. Il file indicato dopo la parola ‘USING’ è un file dichiarato normalmente, con
l’organizzazione e l’accesso desiderati.
Il file che risulta dall’ordinamento può essere costituito dal nome che appare dopo la parola
‘GIVING’, oppure può essere letto da un gruppo di procedure del programma, specificate dopo
le parole ‘OUTPUT PROCEDURE’. Il file indicato dopo la parola ‘GIVING’ è un file dichiarato
normalmente, con l’organizzazione e l’accesso desiderati.
La gestione dei dati in ingresso o in uscita, attraverso delle procedure, viene descritto in altre
sezioni; per il momento viene mostrato un esempio di ordinamento tipico, che coinvolge il file
per il riordino, più due file per i dati (in ingresso e in uscita).
|Listato 82.247. Programma elementare che dimostra il funzionamento di ‘SORT’.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-SORT.
|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(10).
|002200*
|002300 FD FILE-ORDINATO.
|002400 01 RECORD-ORDINATO PIC X(10).
|002500*
|002600 SD FILE-PER-IL-RIORDINO.
|002700*
|002800 01 RECORD-PER-IL-RIORDINO.
|002900 02 CHIAVE-ORDINAMENTO PIC X(5).
|003000 02 FILLER PIC X(5).
|003100*
|003200 PROCEDURE DIVISION.
|003300*------------------------- LIVELLO 0 -----------------------------
|003400 MAIN.
|003500 SORT FILE-PER-IL-RIORDINO,
|003600 ON ASCENDING KEY CHIAVE-ORDINAMENTO,
|003700 USING FILE-DA-ORDINARE,
|003800 GIVING FILE-ORDINATO.