IDENTIFICATION DIVISION.
        PROGRAM-ID. CLTEST4.

       DATA DIVISION.
        WORKING-STORAGE SECTION.
          01 TMP. 
           05 STR1 PIC X(6).

       PROCEDURE DIVISION.
        DISP.
           DISPLAY " ENTER VALUE : ".
           ACCEPT STR1.
           IF STR1 IS ALPHABETIC
           DISPLAY STR1 " IS ALPHABETIC  "
      *    ELSE IF STR1 IS ALPHABETIC-UPPER
      *     DISPLAY STR1 " IS ALPHABETIC UPPERCASE "
      *    ELSE IF STR1 IS ALPHABETIC-LOWER
      *     DISPLAY STR1 " IS ALPHABETIC LOWERCASE  "
           ELSE IF STR1 IS NUMERIC
           DISPLAY STR1 " IS NUMERIC "
           ELSE 
           DISPLAY STR1 " IS ALPHANUMERIC " 
           END-IF.
            STOP RUN.
       
/*********************************************************************************************
                                    OUTPUT
**********************************************************************************************/

ENTER VALUE : premkiran02
premkiran02 IS ALPHANUMERIC