IS NUMERIC clause IN COBOL IS NUMERIC CLAUSE

IS NUMERIC is used to check if the data is numeric or not.


IS NUMERIC clause IN COBOL EXAMPLE


01 WS-TEXT PIC X(05).
MOVE '15623' TO WS-TEXT.
IF WS-TEXT IS NUMERIC DISPLAY 'NUMBER'
ELSE
DISPLAY 'TEXTUAL CHARACTERS’
END-IF.
Output:
NUMBER
MOVE 'HE123' TO WS-TEXT
IF WS-TEXT IS NUMERIC DISPLAY 'NUMBER'
ELSE
DISPLAY 'TEXTUAL CHARACTERS’
END-IF.


Output:
TEXTUAL CHARACTERS