COBOL - Configuration section - CLASS clause

COBOL - Configuration section - CLASS clause

Enterprise COBOL for z/OS, V4.2, Language Reference

CLASS class-name-1 IS

Fornece um meio para relacionar um nome ao conjunto especificado de caracteres listados nessa cláusula.
class-name-1 pode ser referenciado apenas em uma condição de classe.
Os caracteres especificados pelos valores dos literais nesta cláusula definem o conjunto exclusivo de caracteres dos quais essa classe consiste.

O nome da classe na cláusula CLASS pode ser uma palavra definida pelo usuário DBCS.

literal-4, literal-5

Deve ser da categoria numérica ou alfanumérica e ambas devem ser da mesma categoria.

Se numérico, literal-4 e literal-5 devem ser números inteiros sem sinal e devem ter um valor maior ou igual a 1 e menor ou igual ao número de caracteres no alfabeto especificado.
Cada número corresponde à posição ordinal de cada caractere na sequência de intercalação EBCDIC ou ASCII de byte único.

Se alfanumérico, literal-4 e literal-5 são um caractere EBCDIC de um byte real.

literal-4 e literal-5 não devem especificar uma constante figurativa de caractere simbólico.
Se o valor do literal alfanumérico contiver vários caracteres, cada caractere no literal será incluído no conjunto de caracteres identificado pelo nome da classe.

Literais de ponto flutuante não podem ser usados ??na cláusula CLASS.

Se o literal alfanumérico estiver associado a uma frase THROUGH, o literal deverá ter um caractere.

THROUGH, THRU: THROUGH e THRU são equivalentes.
Se THROUGH for especificado, class-name incluirá os caracteres que começam com o valor do literal-4 e terminam com o valor do literal-5.
Além disso, os caracteres especificados por uma frase THROUGH podem estar em ordem crescente ou decrescente.