Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 947
Si osservi che un programma COBOL scritto in modo ordinato non dovrebbe avere bisogno di
questa istruzione.
|000000 PERFORM UNO THRU TRE.
|000000 ...
|000000 UNO.
|000000 ...
|000000 DUE.
|000000 ...
|000000 IF ...
|000000 THEN
|000000 GO TO TRE.
|000000 ...
|000000 TRE.
|000000 EXIT.
|000000 QUATTRO.
|000000 ...
L’esempio appena mostrato serve a dare un’idea del significato dell’istruzione ‘EXIT’: la chiamata
iniziale con l’istruzione ‘PERFORM’ richiede l’esecuzione sequenziale dei paragrafi da
‘UNO’ a ‘TRE’, ma nel paragrafo ‘DUE’ si verifica una condizione e al suo avverarsi si esegue
un salto (‘GO TO’) al paragrafo ‘TRE’, che conclude comunque la chiamata principale.
Come già accennato, dal momento che l’uso dell’istruzione ‘EXIT’ implica l’utilizzo di ‘GO
TO’, che notoriamente complica la comprensibilità di un programma in modo eccessivo,
entrambe queste istruzioni sono da evitare accuratamente.
82.12.9 Istruzione «GO TO»
L’istruzione ‘GO TO’ consente di saltare all’inizio di un paragrafo specificato, senza ritorno.
Sono previsti due modi di utilizzo:
«
Oppure:
Nel primo caso, l’esecuzione dell’istruzione passa il controllo al paragrafo indicato; nel secondo,
viene scelto il paragrafo a cui passare il controllo in base al valore indicato dopo la parola
‘DEPENDING’. Il valore in questione deve essere un numero intero, rappresentato attraverso
una variabile (altrimenti non ci sarebbe motivo di usarlo), dove il valore uno rappresenta il primo
paragrafo nominato dopo le parole ‘GO TO’ e il valore n rappresenta il paragrafo n-esimo
dello stesso elenco.
L’utilizzo dell’istruzione ‘GO TO’ complica la lettura di un programma sorgente CO-
BOL e, secondo il parere di molti, andrebbe abolita. Si veda a questo proposito: Edsger
W. Dijkstra, Go To Statement Considered Harmful, 1968, 〈http://www.acm.org/classics/
oct95/ 〉, 〈http://www.kbs.uni-hannover.de/Lehre/SWTG/goto.pdf 〉, 〈http://www.cs.utsa.edu/~wagner/CS3723/
nogoto/harm2.html 〉 e altri indirizzi.