Parte ii - IIS Marconi Latina - Area didattica

952 volume V Programmazione
adiacenti che iniziano a partire dalla prima apparizione della lettera «I»; le lettere «B» adiacenti
e iniziali, che si trovano prima di quella stessa lettera «I».
Compilando l’esempio e avviando il programma eseguibile che si ottiene, si dovrebbe vedere
il risultato seguente:
|CONTATORI: 05 04 00
Il secondo schema sintattico mostra l’uso di ‘INSPECT’ per rimpiazzare delle sottostringhe.
L’interpretazione dello schema è simile a quella del conteggio, con la differenza che si aggiunge
la parola chiave ‘BY’, che ha alla sinistra la sottostringa da rimpiazzare e alla destra il suo
nuovo valore. Quando si usa la parola ‘CHARACTERS’, si intende rimpiazzare tutta la stringa
(o tutta la porzione prima o dopo un certo riferimento), con qualcosa con un carattere; le parole
‘ALL’ e ‘LEADING’ funzionano sostanzialmente come nel conteggio, riferendosi a tutte le
sottostringhe di un certo tipo o a tutte le sottostringhe iniziali e adiacenti, dello stesso tipo. In
questo schema, si aggiunge la parola ‘FIRST’, che identifica solo una prima corrispondenza,
non ripetuta.
|Listato 82.186. Programma che scandisce una stringa e sostituisce alcuni suoi contenuti.
Il programma sfrutta un’estensione al linguaggio standard, che permette di eseguire più
sostituzioni in una sola istruzione ‘INSPECT’.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-INSPECT-REPLACING.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 INSTALLATION. NANOLINUX IV,
|000500 OPENCOBOL 0.31,
|000600 DATE-WRITTEN. 2005-03-15.
|000700*
|000800 ENVIRONMENT DIVISION.
|000900*
|001000 DATA DIVISION.
|001100*
|001200 WORKING-STORAGE SECTION.
|001300 77 STRINGA-DI-CARATTERI PIC X(30).
|001400*
|001500 PROCEDURE DIVISION.
|001600*------------------------- LIVELLO 0 -----------------------------
|001700 MAIN.
|001800 MOVE "AAAAAABBBBBBCCCCCCDDDDDDEEEEEE"
|001900 TO STRINGA-DI-CARATTERI.
|002000 INSPECT STRINGA-DI-CARATTERI REPLACING