Re: Evaluate Statement

[CarlMcElroy@xxxxxxxxxxx]

Should you place or instead of , between values?



                                                                                
                                 
                      Diane Nott                                                
                                 
                      <dnott@xxxxxxxxxxxxx        To:       
cobol400-l@xxxxxxxxxxxx                              
                      >                           cc:                           
                                 
                      Sent by:                    Subject:  Evaluate Statement  
                                 
                      cobol400-l-bounces@x                                      
                                 
                      idrange.com                                               
                                 
                                                                                
                                 
                                                                                
                                 
                      03/25/2003 12:24 PM                                       
                                 
                      Please respond to                                         
                                 
                      COBOL Programming on                                      
                                 
                      the iSeries/AS400                                         
                                 
                                                                                
                                 
                                                                                
                                 




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.


_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.