Perform Varying

[Howard Weatherly <hweatherly@xxxxxxxxxxxx>]

Dyanna,

I have some samples using a one dimensional table, but the rules are the
same for each, the only issue is your variable it is not clear if you
have set up an index or you are using a subscript variable. The reason I
mention this is that if you set up an index and did not initialize it
and (big leap here) it just happend to be with the scope of your table,
you would get odd behavior. The same would be tru for a subscript but
you would spot that easier.

so...

1 Table-Name.
   2 T-ARRAY-1 Occurs 50 Times Indexed by L1IX.
      3 T-ARRAY-2 Occurs 75 Times Indexed by L2IX.
         4 Array-Value   Pic X.


Perform varying L1IX from 1 by 1 Until L1IX > 50
   after L2IX from 1 by 1 Until L2IX > 75
       Move Array-Value(L1IX,L2IX) to Someplace
End-Perform

This example is absolutly useless except for an example of varying two
indices in an inline PERFORM, hope it helps though!

+---
| This is the COBOL/400 Mailing List!
| To submit a new message, send your mail to COBOL400-L@midrange.com.
| To subscribe to this list send email to COBOL400-L-SUB@midrange.com.
| To unsubscribe from this list send email to COBOL400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END