IDENTIFICATION DIVISION.
        PROGRAM-ID. evalgender.

       DATA DIVISION. 
        WORKING-STORAGE SECTION.
         01 gender PIC x(6).
          88 MALE value"m","male","0".
          88 FEMALE value"f","female","1".

       PROCEDURE DIVISION.
        para1.
           DISPLAY "ENTER GENDER".
           ACCEPT gender.

           EVALUATE true
             WHEN MALE DISPLAY "YOUR GENDER IS MALE"     
             WHEN FEMALE DISPLAY "YOUR GENDER IS FEMALE"
             WHEN OTHER DISPLAY "INVALID GENDER TYPE"
           END-EVALUATE.
           STOP RUN. 

******************************************************************
ENTER GENDER
m
YOUR GENDER IS MALE

ENTER GENDER
1
YOUR GENDER IS FEMALE

ENTER GENDER
4
INVALID GENDER TYPE
******************************************************************