Parte ii - IIS Marconi Latina - Area didattica

976 volume V Programmazione
|005700 IF RICERCA = SPACES
|005800 THEN
|005900 MOVE 1 TO EOJ;
|006000 ELSE
|006100 SET IND-UTENTE TO 1,
|006200 SEARCH UTENTE
|006300 AT END
|006400 DISPLAY "IL COGNOME CERCATO ",
|006500 "NON SI TROVA NELLA TABELLA: ",
|006600 QUOTE RICERCA QUOTE;
|006700 WHEN COGNOME (IND-UTENTE) = RICERCA
|006800 DISPLAY "IL COGNOME ", RICERCA,
|006900 "SI TROVA NELLA POSIZIONE ",
|007000 IND-UTENTE.
|007100*
Nell’esempio sono evidenziate le righe in cui si dichiara la tabella e quelle che eseguono la
scansione. Si deve osservare che prima dell’istruzione ‘SEARCH’, l’indice deve essere collocato
manualmente nella posizione iniziale.
82.12.18.2 Ricerca in una tabella ordinata
«
La ricerca che si esegue con l’istruzione ‘SEARCH ALL’ richiede che si rispettino alcune
condizioni:
• i dati contenuti nella tabella devono risultare ordinati come previsto dalle chiavi già
dichiarate;
• i dati contenuti nella tabella devono risultare tutti validi;
• le chiavi a cui si fa riferimento nella condizione di ricerca devono essere sufficienti a
raggiungere l’informazione in modo univoco.
È importante considerare correttamente il problema dei dati validi: quando una tabella deve
ricevere una quantità imprecisata di dati in elementi separati, questa deve essere stata dichiarata
in modo abbastanza grande da poter contenere tutto, ma così facendo si ha la certezza di avere
una serie di celle vuote alla fine della tabella stessa. Per evitare che la scansione di ricerca tenga
conto anche delle celle vuote, si dichiara la tabella con una quantità «variabile» di celle (con
l’opzione ‘OCCURS m TO n TIMES, DEPENDING ON identifier’). In realtà, più che trattarsi
di una tabella che ha veramente una quantità variabile di celle, si fa in modo di stabilire qual è
la dimensione massima, attraverso il controllo di una variabile apposita.
Dato il tipo di ricerca, non fa alcuna differenza il valore iniziale dell’indice della tabella.
L’esempio seguente mostra una variante del programma già descritto a proposito della ricerca
sequenziale, modificato in modo da sfruttare una ricerca binaria. Si osservi che non è più
necessario impostare il valore iniziale dell’indice, prima della scansione.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-SEARCH-KEY.
|000300 AUTHOR. DANIELE GIACOMINI.