Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 993
|002700
|002800 WORKING-STORAGE SECTION.
|002900 77 EOF PIC 9 VALUE 0.
|003000*
|003100 PROCEDURE DIVISION.
|003200*------------------------- LIVELLO 0 -----------------------------
|003300 MAIN SECTION.
|003400 INIZIO.
|003500 SORT FILE-PER-IL-RIORDINO,
|003600 ON ASCENDING KEY CHIAVE-ORDINAMENTO,
|003700 USING FILE-DA-ORDINARE,
|003800 OUTPUT PROCEDURE IS MOSTRA-FILE-ORDINATO.
|003900*
|004000 STOP RUN.
|004100*
|004200*--------------------- SORT-MERGE PROCEDURE ----------------------
|004300 MOSTRA-FILE-ORDINATO SECTION.
|004400 INIZIO.
|004500 PERFORM MOSTRA-RECORD UNTIL EOF = 1.
|004600 GO TO FINE.
|004700 MOSTRA-RECORD.
|004800 RETURN FILE-PER-IL-RIORDINO RECORD
|004900 AT END MOVE 1 TO EOF,
|005000 DISPLAY "FINE DEL FILE ORDINATO".
|005100 IF EOF = 0
|005200 THEN
|005300 DISPLAY RECORD-PER-IL-RIORDINO.
|005400 FINE.
|005500 EXIT.
|005600*
L’esempio riguarda la visualizzazione di un file ordinato, senza generare il file stesso, ma si
applica tale e quale al caso della fusione.
82.13.5 Acquisizione dei dati per il riordino da una procedura
Limitatamente al caso del riordino, con l’istruzione ‘SORT’, è possibile acquisire i record da
riordinare attraverso una procedura:
«
Nell’ambito dell’intervallo di procedure chiamato, occorre usare l’istruzione ‘RELEASE’ per
passare formalmente un record. L’istruzione ‘RELEASE’ si utilizza e si comporta come
l’istruzione ‘WRITE’ per i file sequenziali: