Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 911
|001500 03 COGNOME PIC X(30).
|001600 03 NOME PIC X(30).
|001700 03 NOTA PIC X(200).
|001800 77 UTENTI-MAX USAGE IS INDEX.
82.7.6 Scansione delle tabelle
Il linguaggio COBOL prevede un’istruzione apposita per facilitare la scansione delle tabelle.
Si tratta di ‘SEARCH’, che ha due modalità di funzionamento, a seconda che si voglia eseguire
una ricerca sequenziale o una ricerca binaria. Naturalmente, la ricerca sequenziale si presta
alla scansione di una tabella i cui dati non sono ordinati, mentre nel secondo caso devono
esserlo.
«
Viene mostrato l’esempio di un programma completo che inizia con l’inserimento di dati
all’interno di una tabella, quindi esegue una ricerca sequenziale al suo interno:
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-SEARCH.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 INSTALLATION. NANOLINUX IV,
|000500 OPENCOBOL 0.31,
|000600 DATE-WRITTEN. 2005-03-12.
|000700*
|000800 ENVIRONMENT DIVISION.
|000900*
|001000 DATA DIVISION.
|001100*
|001200 WORKING-STORAGE SECTION.
|001300 01 RECORD-UTENTI.
|001400 02 UTENTE OCCURS 60 TIMES
|001500 INDEXED BY IND-UTENTE.
|001600 03 COGNOME PIC X(30).
|001700 03 NOME PIC X(30).
|001800 03 NOTA PIC X(200).
|001900 77 EOJ PIC 9 VALUE ZERO.
|002000 77 RISPOSTA PIC XX.
|002100 77 RICERCA PIC X(30).
|002200*
|002300 PROCEDURE DIVISION.
|002400*------------------------- LIVELLO 0 -----------------------------
|002500 MAIN.
|002600 PERFORM INSERIMENTO-DATI
|002700 VARYING IND-UTENTE FROM 1 BY 1
|002800 UNTIL EOJ = 1.
|002900 MOVE 0 TO EOJ.
|003000 PERFORM SCANSIONE UNTIL EOJ = 1.
|003100*
|003200 STOP RUN.
|003300*------------------------- LIVELLO 1 -----------------------------
|003400 INSERIMENTO-DATI.
|003500 DISPLAY IND-UTENTE, " INSERISCI IL COGNOME: ".