COBOL EVALUATE IDENTIFIER
EVALUATE IDENTIFIER
The following COBOL program depicts the use of
EVALUATE IDENTIFIER
IDENTIFICATION DIVISION.
PROGRAM-ID. PGM022.
AUTHOR. MAINFRAMEWIZARD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-SUB PIC 9 VALUE ZEROS.
PROCEDURE DIVISION.
10000-MAIN-PARA.
MOVE 5 TO WS-SUB.
EVALUATE WS-SUB
WHEN 4
DISPLAY 'WS-SUB IS EQUAL TO 4'
WHEN 5
DISPLAY 'WS-SUB IS EQUAL TO 5'
WHEN OTHER
DISPLAY 'NO CONDITION MET'
END-EVALUATE
STOP RUN.
The output of the program is
WS-SUB IS EQUAL TO 5