Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 991
82.13.3 Gestire i dati in ingresso o in uscita attraverso delle
procedure
Nelle istruzioni ‘SORT’ e ‘MERGE’, a seconda dei casi, esiste la possibilità di specificare un
gruppo di procedure con le forme seguenti:
«
Queste procedure sono da intendere come un intervallo di sezioni o di paragrafi della divisione
‘PROCEDURE DIVISION’, da procedure-name-1 a procedure-name-2. Questa porzione di
sezione o di paragrafi deve però rispettare delle condizioni: deve servire esclusivamente per lo
scopo del riordino o della fusione; non può contenere chiamate a procedure esterne; non può
essere usata nel programma per fini differenti.
In generale, se si intendono usare delle procedure per generare dati da ordinare, leggere i dati
ordinati o fusi, conviene gestire la divisione ‘PROCEDURE DIVISION’ in sezioni. L’esempio
seguente mostra proprio una sezione che potrebbe essere usata per leggere il risultato di un file
ordinato o fuso:
|Listato 82.252.
‘MERGE’.
Esempio di sezione da usare come procedura di uscita di ‘SORT’ o
|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,
|004800 DISPLAY "FINE DEL FILE ORDINATO".
|004900 IF EOF = 0
|005000 THEN
|005100 DISPLAY RECORD-PER-IL-RIORDINO.
|005200 FINE.
|005300 EXIT.
Nell’esempio si vede anche l’uso del famigerato ‘GO TO’, allo scopo di uscire dalla sezione
dopo l’esecuzione del ciclo di chiamate al paragrafo ‘MOSTRA-RECORD’, dal momento che
l’istruzione ‘EXIT’, secondo lo standard, deve trovarsi da sola in un paragrafo.