RE: Evaluate Statement

["Jon Paris" <Jon.Paris@xxxxxxxxxxxxxx>]

Wouldn't it be simpler (and a whole lot prettier) to combine the four flags
into a single field and use that as the comparison key to search an array
containing the patterns - then just use the resulting index to increment the
appropriate pattern element?

Like so (not tested so ....)


  Working-Storage Section.

 01  Patterns.
     05 Current-Pattern.
       10 RS-SUMG       Pic x.
       10 RS-SUMW       Pic x.
       10  RS-FALLG     Pic x.
       10  RS-FALLW     Pic x.

     05 Pattern-Values.
       10 Filler         Pic x(4) value "X   ".
       10 Filler         Pic x(4) value " X  ".
       10 Filler         Pic x(4) value "  X ".
       10 Filler         Pic x(4) value "   X".
       10 Filler         Pic x(4) value "X   ".
*      etc. etc. for the rest of the patterns

     05 Pattern-Array  Redefines Pattern-Values
                       Pic x(4) occurs 14.
 01  Pattern-Counts.
     05 Pattern-Index  Pic S9(3) Comp-3.
     05 Pattern        Pic S9(5) Comp-3  Occurs 14.

 Procedure Division.
 Process-It.
     Search Pattern-Array varying Pattern-Index
         when Pattern-Array(Pattern-Index) = Current-Pattern
             Add 1 to Pattern(Pattern-Index).

Jon Paris
Partner400
www.Partner400.com