COBOL EVALUATE CONDITIONAL EXPRESSION
EVALUATE CONDITIONAL EXPRESSION
The following COBOL program depicts the use of
EVALUATE CONDITIONAL EXPRESSION
IDENTIFICATION DIVISION.
PROGRAM-ID. PGM024.
AUTHOR. MAINFRAMEWIZARD.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 STUDENT1-MARKS PIC 999 VALUE ZEROS.
01 STUDENT2-MARKS PIC 999 VALUE ZEROS.
PROCEDURE DIVISION.
10000-MAIN-PARA.
MOVE 99 TO STUDENT1-MARKS.
MOVE 100 TO STUDENT2-MARKS.
EVALUATE (STUDENT1-MARKS> STUDENT2-MARKS)
WHEN TRUE
DISPLAY 'STUDENT1 HAS MORE MARKS'
WHEN FALSE
DISPLAY 'STUDENT2 HAS MORE MARKS'
END-EVALUATE
STOP RUN.
The output of the program is
STUDENT2 HAS MORE MARKS