Parte ii - IIS Marconi Latina - Area didattica

Manuale COBOL 937
82.11.6.2 Condizioni di classe
La condizione di classe serve a stabilire se l’operando a cui si applica è numerico o alfabetico.
È numerico un operando che è composto soltanto di cifre da ‘0’ a ‘9’, con il segno eventuale;
è alfabetico un operando composto soltanto dal lettere alfabetiche ed eventualmente da spazi.
«
La condizione di classe si utilizza solo per verificare il contenuto di variabili che sono state
dichiarate con una rappresentazione in byte (‘USAGE IS DISPLAY’).
Segue lo schema sintattico per esprimere la condizione di classe:
Naturalmente, se si usa la parola chiave ‘NOT’, si intende invertire il significato della
condizione.
82.11.6.3 Nomi di condizione
I nomi di condizione, che si dichiarano nella divisione ‘DATA DIVISION’ con il numero di
livello 88, servono a descrivere il confronto della variabile a cui si riferiscono con i valori che
rappresentano.
«
Supponendo di avere dichiarato il nome di condizione ‘PARI’ nel modo seguente:
|000000 02 CODICE PIC 9.
|000000 88 PARI 0, 2, 4, 6, 8.
|000000 88 DISPARI 1, 3, 5, 7, 9.
|000000 88 BASSO 0 THRU 4.
|000000 88 ALTO 5 THRU 9.
Nella divisione ‘PROCEDURE DIVISION’ potrebbero apparire righe come quelle successive,
per verificare che la variabile ‘CODICE’ contenga un valore pari:
|000000 IF PARI
|000000 THEN
|000000 PERFORM ...;
|000000 ELSE
|000000 ...