*DECLARATIONS


DATA:
gv_string_1 type string value 'Enjoy the coding',
gv_vowels type c LENGTH 6 value 'aeiouy', 
vowel_counter type i value 0, 
string_offset type i, 
vowel_offset type i value 6,
x type i.


*---*
"Main Logic" 

x = strlen ( gv_string_1 ).


DO x TIMES. 
    DO 6 TIMES
        IF gv_string_1+string_offset(1) = gv_vowels+vowel_offset(1).
        vowel_counter + 1.
        ENDIF.
    
    vowel_offset + 1.
    ENDDO.
    
string_offset+1.    

ENDDO.

write: / gv_string_1.
write: / 'The number of vowels: 'vowel_counter.