IDENTIFICATION DIVISION.
 PROGRAM-ID.     upro1.
 AUTHOR.         U. Kreckel.
 DATE-WRITTEN.   OKT.86.
* REMARKS.
* test message.
*
 ENVIRONMENT DIVISION.
 DATA DIVISION.
*
 WORKING-STORAGE SECTION.

 01  A-I              PICTURE S9999 COMP.
 01  BL-I             PICTURE S9999 COMP.
 01  FIELD-XX         PIC     XXXX.

 LINKAGE SECTION.

 01  EXDKOMM2.
  02 FIELD            PIC X(100).

 PROCEDURE DIVISION USING EXDKOMM2.
 EINGANG.
     INSPECT FIELD REPLACING ALL SPACE BY ZERO.
     MOVE  1 TO A-I.
     IF    FIELD-XX NUMERIC
        DISPLAY "OK".
     IF    FIELD-XX NOT NUMERIC
        DISPLAY "NOT OK".

     IF   FIELD NOT NUMERIC    or greater 11
        display "????".
 SKW-END.  EXIT.