Code for PROGRAM OF CLASS CONDITION in Cobol
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG.
DATA DIVISION.
01 VAL PIC X(5).
PROCEDURE DIVISION.
DISPLAY "ENTER THE CHAR".
ACCEPT VAL.
IF VAL IS ALPHABETIC
DISPLAY "ENTER CHAR IS ALPHABETIC"
ELSE
IF VAL IS NUMERIC
DISPLAY "ENTER CHAR IS NUMERIC"
ELSE
DISPLAY "ENTER CHAR IS UNKNOWN"
END-IF.
STOP RUN.