COBOL--EMPLEAVE

          IDENTIFICATION DIVISION.
          PROGRAM-ID. EMPLEAVE.
          DATA DIVSION.
          WORKING-STORAGE SECTION.
          01 EMP-DTL.
              05   EMP-NAME               PIC  X(05).
              05   EMP-LEAVE-TYPE  PIC  A(02).
              88  VALID-TYPE  VALUE  'EL','ML','SL','CL'.
              05   EMP- LEAVE-DATE.
                      10  EMP-DD             PIC  9(02).
                      10  EMP-MM            PIC  9(02).
                      10  EMP-YY              PIC  9(02).
        PROCEDURE DIVISION.
                ACCEPT  EMP-LEAVE-TYPE.
                IF VALID-TYPE  
                    DISPLAY  'LEAVE TYPE VALID ', EMP-LEAVE-TYPE
                ELSE
                     DISPLAY  'LEAVE TYPE  INVALID ',EMP-LEAVE-TYPE
                END-IF.
                STOP RUN.