Problem:

EXAMINE WSVAR TALLYING UNTIL FIRST "Y".

produces compiler error

Resolution:

Use compiler directive dialect(OSVS) or consider using the following INSPECT statement

        INSPECT WSVAR TALLYING count1 For Characters Before "Y"

where count1 is declared as pic s9(9).