RE: Perform Varying Statement

[Richard Casey <caseyr@xxxxxxxxxxxxx>]

You can "nest" your PERFORM VARYING if you want. Just make sure you have an 
END-PERFORM for each PERFORM.

For example, the code sample listed in the original message could be written as

Perform Varying INDEX01 from 1 by 1 until INDEX01 is > 50
     Perform Varying   INDEX02    from 1 by 1 until    INDEX02 is > 75
          Add X, Y giving Z
     End-Perform
End-Perform

You can use IF statements as well; just close them with an END-IF instead of a 
period.

Hope this helps!


-----Original Message-----
From:   Chris.Chambers [SMTP:Chris.Chambers@v2music.com]
Sent:   Monday, November 29, 1999 12:29 PM
To:     COBOL400-L
Subject:        Re: Perform Varying Statement

I have also tried this and it would seem that the editor does not like a
'perform varying' as the operation to be performed.

Try putting the add statement in a seperate section or paragraph thus :

Perform Varying INDEX01 from 1 by 1 until INDEX 01 is > 50
     Perform ADD
End-Perform

ADD SECTION.
ADD-START
     Perform Varying   INDEX02    from 1 by 1 until    INDEX02 is > 75
          Add X, Y giving Z
     End-Perform.

ADD-EXIT.
Exit.





"Hess, Dyanna" <Dyanna.Hess@valueoptions.com> on 29/11/99 16:13:12

Please respond to COBOL400-L@midrange.com

To:   "'COBOL400-L@midrange.com'" <COBOL400-L@midrange.com>
cc:    (bcc: Chris Chambers/London/V2 Music)
Subject:  RE: Perform Varying Statement




My project was to make a two dimensional table so I tried using:
     Perform Varying _____ from 1 by 1 until ______ is > 50
     Perform Varying _____ from 1 by 1 until ______ is > 75
     end-perform
But I wouldn't take the whole screen looked like a Christmas tree!
I have not seen any examples of this structure here at my work. Should I
have put and add statement below the last perform connecting them together?
Example"

     Add (_______), (__________)

I saw something of this sort in a COBOL/400 book. Would something of this
sort take?
Thanks for answering my question.

Dyanna


-----Original Message-----
From: Chris.Chambers@v2music.com [mailto:Chris.Chambers@v2music.com]
Sent: Monday, November 29, 1999 10:39 AM
To: COBOL400-L@midrange.com
Subject: Re: Perform Varying Statement


The perform varying statement should work - please post the exact code -
does it
fail at compile time or does the editor
highlight some 'grammatical' error.

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