I love the ITERATE statement, to the extent that I've insisted on its
availability in other languages. In VBA, for instance, like this:
For each oxct in xcts
If Not Exists(Collection, xct.Key) Then Goto IterateXct
...blah, blah, blah...
IterateXct:
Next oxct
Very handy to prevent long indented If blocks; multiple ITERATES are much
easier to debug.
---
Bob Bridges, robhbrid...@gmail.com, cell 336 382-7313
/* Three people may keep a secret, if two of them are dead. -Poor Richard */
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf
Of Gibney, Dave
Sent: Thursday, February 27, 2020 17:40
On further contemplation, I also wanted to use iterate, so I surrounded the
whole thing with
i = 1
do forever
do i = i to stem.0
/* Processing with conditional additions and iterates */
end
if i > stem.0 leave
end
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
