Mit dieser Klausel lassen sich benutzereigene Klassen definieren. Eine solche Klasse ist nichts anderes, als ein Begriff, unter den eine betimmte Menge Zeichen logisch untergeordnet wird. Mit Hilfe der IF-Abfrage läßt sich dann überprüfen, ob diese Zeichen verwendet wurden.
Beispiel:
CLASS IS Deutsch IS "A" THRU "Z"
"a" THRU "z"
"ΔάΦδόφί"
01 Text PIC X(60).
01 Meldung PIC X(60).
IF Text Deutsch THEN MOVE Text TO Meldung.
|
Hier wird der Inhalt von Text nach Meldung verschoben, wenn die verwendeten Zeichen dem deutschen Alphabet entsprechen.
