EVALUATE sample

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO-WORLD.
DATA DIVISION.                             
WORKING-STORAGE SECTION.                   
01 IFELSE-CHK PIC X(6).                    
01 DAT-CHK PIC X(6).                       
01 LNGTH PIC 9(1).                         
01  COUNTER-VARIABLES.                     
    05  X-COUNTER    PIC 9(01) VALUE ZEROS.
    05  X-OP-COUNTER PIC 9(01) VALUE 1.    
01 MARKS PIC 9(3).                         
   88 PASS VALUE IS 035 THRU 100.          
   88 FAIL VALUE IS 000 THRU 034.          
 PROCEDURE DIVISION.                                 
     INITIALIZE  IFELSE-CHK                          
               , DAT-CHK                             
               , LNGTH.                              
     ACCEPT IFELSE-CHK.                              
     DISPLAY IFELSE-CHK.
     STRING IFELSE-CHK DELIMITED BY ' ' INTO DAT-CHK.
     EVALUATE DAT-CHK
        WHEN 'MALE'                      
            DISPLAY "HE IS MALE"                        
        WHEN 'FEMALE'                                         
            DISPLAY "SHE IS FEMALE" 
        WHEN OTHER
            DISPLAY "NOT KNOWN" 
      END-EVALUATE.                                        
    ACCEPT MARKS.                           
    DISPLAY MARKS.                          
    IF PASS THEN                            
       DISPLAY "STUDENT IS PASS WITH " MARKS
    ELSE                                    
       DISPLAY "STUDENT IS FAIL WITH " MARKS
    END-IF.                                 
    STOP RUN.