On 4/27/2012 3:18 PM, Edward Jaffe wrote:
On 4/26/2012 3:46 AM, Shmuel Metz (Seymour J.) wrote:
3. Rexx does not have a GOTO. Those who try to use SIGNAL as if it were GOTO
often shoot themselves in the foot as a result
Wow! Not only does Rexx not support GOTO, but if you try to use it you get an
infinite loop!
Consider the following test program:
/* REXX */
trace i
goto a
say 'the goto failed'
exit
a: say 'the goto worked'
exit
If you execute under TSO on z/OS 1.13 you get:
3 *-* goto a
>L> "GOTO"
>L> "A"
>O> "GOTO A"
3 *-* goto a
>L> "GOTO"
>L> "A"
>O> "GOTO A"
3 *-* goto a
>L> "GOTO"
>L> "A"
>O> "GOTO A"
3 *-* goto a
>L> "GOTO"
>L> "A"
>O> "GOTO A"
3 *-* goto a
>L> "GOTO"
>L> "A"
>O> "GOTO A"
3 *-* goto a
>L> "GOTO"
>L> "A"
>O> "GOTO A"
3 *-* goto a
>L> "GOTO"
>L> "A"
>O> "GOTO A"
3 *-* goto a
>L> "GOTO"
>L> "A"
>O> "GOTO A"
.. (never-ending loop...)
But, Ed, it does have "DO FOREVER".
I like to joke "You gotta' love a language that does
not have a GOTO but does have a DO FOREVER"
So somehow you've combined the two in one exec! Very
strange behavior.
Do you have a local TSO command called 'goto'? When
REXX sees a command it does not know, it passes it
to the underlying host as a host command.
--
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-355-2752
http://www.trainersfriend.com
* To get a good Return on your Investment, first make an investment!
+ Training your people is an excellent investment
* Try our tool for calculating your Return On Investment
for training dollars at
http://www.trainersfriend.com/ROI/roi.html
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
