Evaluate Statement

[Diane Nott <dnott@xxxxxxxxxxxxx>]

I have a question on the use of the Evaluate Statement. I have been 
trying to evaluate 4 variables at once. I tried this format and the
compiler yelled at me. Any suggestions?
Diane

EVALUATE RS-SUMG RS-SUMW RS-FALLG RS-FALLW
            WHEN   ' ', ' ', ' ', 'X'  ADD 1 TO WS-PATTERN1
            WHEN   ' ', ' ', 'X', ' '  ADD 1 TO WS-PATTERN2
            WHEN   ' ', ' ', 'X', 'X'  ADD 1 TO WS-PATTERN3
            WHEN   ' ', 'X', ' ', ' '  ADD 1 TO WS-PATTERN4
            WHEN   ' ', 'X', ' ', 'X'  ADD 1 TO WS-PATTERN5
            WHEN   ' ', 'X', 'X', 'X'  ADD 1 TO WS-PATTERN6
            WHEN   'X', ' ', ' ', ' '  ADD 1 TO WS-PATTERN7
            WHEN   'X', ' ', ' ', 'X'  ADD 1 TO WS-PATTERN8
            WHEN   'X', ' ', 'X', ' '  ADD 1 TO WS-PATTERN9
            WHEN   'X', ' ', 'X', 'X'  ADD 1 TO WS-PATTERN10
            WHEN   'X', 'X', ' ', ' '  ADD 1 TO WS-PATTERN11
            WHEN   'X', 'X', ' ', 'X'  ADD 1 TO WS-PATTERN12
            WHEN   'X', 'X', 'X', ' '  ADD 1 TO WS-PATTERN13
            WHEN   'X', 'X', 'X', 'X'  ADD 1 TO WS-PATTERN14
          END-EVALUATE.

--
Diane Nott, AT 205, Ext 7268, IS&S.
Lorain County Community College
Computer Resource Specialist
A good landing is one you can walk away from,
A great landing is one where you can rent the plane afterwards.
When in doubt, hold on to your altitude. No one has ever collided with the sky.