Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 951
Compilando l’esempio e avviando il programma eseguibile che si ottiene, si dovrebbe vedere
il risultato seguente:
|CONTATORI: 30 07 22
Con la parola ‘ALL’ si intendono contare tutte le corrispondenze con una certa sottostringa
(identifier-3 o literal-1), contenuta nella stringa complessiva o nella porzione specificata
successivamente. Con la parola ‘LEADING’, si vogliono contare solo le corrispondenze che
avvengono in modo contiguo, purché inizino dal principio della zona di interesse.
|Listato 82.183. Programma elementare che scandisce una stringa e conta i caratteri che
corrispondono a delle sottostringhe.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-INSPECT-TALLYING-2.
|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 77 CONTATORE-1 PIC 99 VALUE IS 0.
|001500 77 CONTATORE-2 PIC 99 VALUE IS 0.
|001600 77 CONTATORE-3 PIC 99 VALUE IS 0.
|001700*
|001800 PROCEDURE DIVISION.
|001900*------------------------- LIVELLO 0 -----------------------------
|002000 MAIN.
|002100 MOVE "ABCDEFGHIAAAABBBBCCCCDDDDEEEEF"
|002200 TO STRINGA-DI-CARATTERI.
|002300 INSPECT STRINGA-DI-CARATTERI
|002400 TALLYING CONTATORE-1
|002500 FOR ALL "E",
|002600 TALLYING CONTATORE-2
|002700 FOR LEADING "A" AFTER INITIAL "I",
|002800 TALLYING CONTATORE-3
|002900 FOR LEADING "B" BEFORE INITIAL "I".
|003000 DISPLAY "CONTATORI: ", CONTATORE-1, " ", CONTATORE-2, " ",
|003100 CONTATORE-3.
|003200 STOP RUN.
In questo esempio viene cercata la corrispondenza con tutte le lettere «E»; le lettere «A»