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                                                                                                     
  • Log in or register to post comments