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
Popular
-
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). MOV...
-
Level-66 Data-item is used for RENAMES Clause. RENAMES clause is used to regroup(Re-arrange), club together existing fields under a new name...
-
REDEFINES Clause IN COBOL Sometime two or more different variables defined in a program are not in use simultaneously. Their memory can b...
-
Almost all COBOL compilers treat a line of COBOL code as if it contained two distinct areas. These are - AREA A - Between Column 8 to 11 -Di... -
SYNC Keyword is used in COBOL to align the data(storage-area) to a Word-Boundary(Any address which is a multiple of 4). This is because, on...
Y si el numero llega con espacion cual seria el resultado "8421 243"
ReplyDeleteNo es numerico.
DeleteGood info .
ReplyDeleteFor real time scenario based Mainframe interview questions with good explanation,please refer
www.MAINFRAMEINTERVIEW.com
What will happen if the value in WS-TEXT is shorter than the length of the variable ? The result of IS NUMERIC is TRUE or FALSE ?
ReplyDeleteFor example :
01 WS-TEXT PIC X(10).
MOVE '1562 ' TO WS-TEXT.
In cobol, moves are controlled by the size and type of the receiving field. Therefore, the resulting value will be "1562 ": not numeric.
Delete