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