 IDENTIFICATION DIVISION.
 PROGRAM-ID. TEST049.

 DATA DIVISION.
 WORKING-STORAGE SECTION.
 
  01 INP    PIC X(1).

 PROCEDURE DIVISION.

  ACCEPT INP.

  EVALUATE TRUE
      WHEN INP = 'a'
      WHEN INP = 'i'
      WHEN INP = 'u'
      WHEN INP = 'e'
      WHEN INP = 'o'
        DISPLAY 'vowel'
      WHEN OTHER
        DISPLAY 'consonant'
  END-EVALUATE.

 STOP RUN.