RE: Perform Varying Statement -- COBOL400-L

Title: RE: Perform Varying Statement

Thanks I'm sure this will help next time I have to do an array. I used IF statements to compensate for the perform varying statements. The code turned out to be pretty long.

Thanks again!
Dyanna

-----Original Message-----
From: Chris.Chambers@v2music.com [mailto:Chris.Chambers@v2music.com]
Sent: Monday, November 29, 1999 12:29 PM
To: COBOL400-L@midrange.com
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