Parte ii - IIS Marconi Latina - Area didattica

994 volume V Programmazione
Il record è il nome della variabile strutturata corrispondente del file che esegue in pratica
l’ordinamento, ovvero quello che nello schema sintattico dell’istruzione ‘SORT’ appare come
file-name-1.
|Listato 82.258. Esempio di acquisizione di record da ordinare attraverso l’inserimento
diretto.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-SORT-3.
|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-PER-IL-RIORDINO ASSIGN TO "sort.tmp".
|001300*
|001400 DATA DIVISION.
|001500*
|001600 FILE SECTION.
|001700*
|001800 SD FILE-PER-IL-RIORDINO.
|001900*
|002000 01 RECORD-PER-IL-RIORDINO.
|002100 02 CHIAVE-ORDINAMENTO PIC X(5).
|002200 02 FILLER PIC X(5).
|002300
|002400 WORKING-STORAGE SECTION.
|002500 77 EOJ PIC 9 VALUE 0.
|002600 77 EOF PIC 9 VALUE 0.
|002700 77 DATI-INSERITI PIC X(10).
|002800*
|002900 PROCEDURE DIVISION.
|003000*------------------------- LIVELLO 0 -----------------------------
|003100 MAIN SECTION.
|003200 INIZIO.
|003300 SORT FILE-PER-IL-RIORDINO,
|003400 ON ASCENDING KEY CHIAVE-ORDINAMENTO,
|003500 INPUT PROCEDURE IS INSERIMENTO-DATI,
|003600 OUTPUT PROCEDURE IS MOSTRA-FILE-ORDINATO.
|003700*
|003800 STOP RUN.
|003900*
|004000*--------------------- SORT-MERGE PROCEDURE ----------------------
|004100 MOSTRA-FILE-ORDINATO SECTION.
|004200 INIZIO.
|004300 PERFORM MOSTRA-RECORD UNTIL EOF = 1.
|004400 GO TO FINE.
|004500 MOSTRA-RECORD.
|004600 RETURN FILE-PER-IL-RIORDINO RECORD
|004700 AT END MOVE 1 TO EOF,