Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 965
|Figura 82.210. Diagramma di flusso dell’istruzione ‘PERFORM’ iterativa con la gestione
di due contatori.
L’esempio seguente mostra in modo molto semplice la gestione di tre contatori, che
scandiscono valori interi da zero a due, senza fare nulla altro di particolare.
|Listato 82.211. Programma chiama un paragrafo incrementando tre contatori.
|000100 IDENTIFICATION DIVISION.
|000200 PROGRAM-ID. TEST-PERFORM.
|000300 AUTHOR. DANIELE GIACOMINI.
|000400 INSTALLATION. NANOLINUX IV,
|000500 OPENCOBOL 0.31,
|000600 DATE-WRITTEN. 2005-03-17.
|000700*
|000800 ENVIRONMENT DIVISION.
|000900*
|001000 DATA DIVISION.