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...) -- Edward E Jaffe Phoenix Software International, Inc 831 Parkview Drive North El Segundo, CA 90245 310-338-0400 x318 edja...@phoenixsoftware.com http://www.phoenixsoftware.com/ ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN
