Cool. Thanks Richard :) Terry > -----Original Message----- > From: Richard Casey [mailto:casey_r@xxxxxxxxxxxxxxxx] > Sent: Tuesday, March 25, 2003 12:59 PM > To: COBOL Programming on the iSeries/AS400 > Subject: RE: Evaluate Statement > > > Diane, > > Try the following. > > EVALUATE RS-SUMG ALSO RS-SUGW ALSO RS-FALLG ALSO RS-FALLW > WHEN ' ' ALSO ' ' ALSO ' ' ALSO 'X' ADD 1 TO WS-PATTERN1 > WHEN ' ' ALSO ' ' ALSO 'X' ALSO ' ' ADD 1 TO WS-PATTERN2 > WHEN ' ' ALSO ' ' ALSO 'X' ALSO 'X' ADD 1 TO WS-PATTERN3 > WHEN ' ' ALSO 'X' ALSO ' ' ALSO ' ' ADD 1 TO WS-PATTERN4 > <repeat for rest of test cases> > END-EVALUATE > > Hope this helps! > Richard Casey > > <snip for bandwidth>
As an Amazon Associate we earn from qualifying purchases.
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.