RE: Perform Varying Statement

[Jon.Paris@xxxxxxxxxx]

This is fine - works exactly the same way as mainframe COBOL.  Your comment

"But I wouldn't take the whole screen looked like a Christmas tree!"

May be the clue here. Did you ever complete the code? SEU will highlight
everything until it sees a complete syntactically correct piece of code. In this
case that doesn't happen until the second end-perform goes in.  None of the
mainframe systems I ever worked on had a syntax checking editor so you never
knew anything was right/wrong until you compiled.

       WORKING-STORAGE SECTION.
       01  Array.
           05 Level1                  Occurs 10.
               10 Level2        Pic X Occurs 20.
       77  X                    Pic 99.
       77  Y                    Pic 99.

       PROCEDURE DIVISION.
       SAMPLE.
           Perform varying X from 1 by 1 until X > 10
              Perform varying Y from 1 by 1 until Y > 20
              Move 'X' Level2(X, Y)
              End-perform
           End-perform.


+---
| 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