RE: what is unclear about 01 02 03 -Reply

Come on Terry, this routine obviously calls for a GOTO statement! :>

Eric Kempter
Director of MIS
Commair Mechanical Services

-----Original Message-----
From:   Terry Herrin [SMTP:therrin@isaac.net]
Sent:   Sunday, May 03, 1998 7:32 PM
To:     MIDRANGE-L@midrange.com
Subject:        Re: what is unclear about 01 02 03 -Reply

JFlanary <JFlanary@aol.com> wrote:
>Don't forget that indicator on the ENDDO opcode 
>                        DO         100             X
>                        IF           FRED   = "RED HAIR"
>                        MOVE     '1'             *IN50 
>                        END
> 50                   END

Yeesh!!  I support a lot of older code, but I've never come across
this one.  I guess when indicator 50 is on the loop will end?
Hmmm...looks to me like you should have used LEAVE instead.  <snicker>

Terry Herrin
Sr. Programmer/Analyst
New Hanover Regional Medical Center

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---