Sentencia CLASS en SPECIAL-NAMES

[Lascu]

Hola
En una rutina en la que quiero revisar que el usuario no ingrese caracteres no válidos para el nombre de un correo electrónico, quiero declarar en la sección SPECIAL-NAMES la siguiente sentencia

CLASS wk-caracter-valido IS  '@', '_', '.',  'a' THRU 'i', 'j' THRU 'r', 's' THRU 'z', '0' THRU '9'.

Según leí en el manual esta es la forma correcta de hacerlo (NETCOBLanguageReference capítulo 4, página 127).
El problema me surge que al compilarlo no me reconoce la palabra CLASS y me tira el siguiente error " SPECIAL-NAMES(2) : JMN1123I-S An invalid word 'CLASS' was found".
¿ Se puede declarar esto de otra manera ?

Lascu

[Kuk]

Lascu, creo que te estás equivocando... Además, lo que tú quieres se puede hacer con un nivel 88 y un pequeño bucle:

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    TESTMAIL.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01  WS-MAIL.
           05  WS-MAIL-CHAR           PIC X OCCURS 50 TIMES.
               88  WS-CHAR-VAL-SI           VALUES '@' '_' '.'
               'a' THRU 'i', 'j' THRU 'r', 's' THRU 'z', '0' THRU '9'.
 
       01  IDX-1                      PIC 99.
       01  SW-ERROR                   PIC X.
           88  SW-ERROR-SI                 VALUE 'S'.
           88  SW-ERROR-NO                 VALUE 'N'.
 
       PROCEDURE DIVISION.
 
           MOVE "[email protected]"  TO WS-MAIL *>EJEMPLO
           MOVE FUNCTION LOWER-CASE(WS-MAIL) TO WS-MAIL
 
           SET SW-ERROR-NO TO TRUE
 
           MOVE 1 TO IDX-1
 
           PERFORM UNTIL WS-MAIL-CHAR(IDX-1) = SPACES OR IDX-1 > 50
               IF  NOT WS-CHAR-VAL-SI(IDX-1)
                   SET SW-ERROR-SI TO TRUE
 
                   EXIT PERFORM
               END-IF
 
               ADD 1 TO IDX-1
           END-PERFORM
 
           IF  SW-ERROR-SI
               DISPLAY "Error de e-mail: " WS-MAIL-CHAR(IDX-1)
 
           ELSE
               DISPLAY "¡E-mail correcto!"
           END-IF
 
           GOBACK.