Re: Leave outside of DO group???

[DrFranken <midrange@xxxxxxxxxxxx>]

Absoutely.  I replaced the DO with


DOWHILE &TRUE


   LEAVE
ENDDO

But I can't imagine why it won't work for a simple DO as well..


        - Larry "DrFranken" Bolhuis

www.frankeni.com
www.iDevCloud.com
www.iInTheCloud.com

On 7/23/2013 5:01 PM, Gary Thompson wrote:
> *This message was transferred with a trial version of CommuniGate(r) Pro*
> I have used LEAVE successfully as in:
> DOFOR  VAR(&INT1)  FROM(2)  TO(10)  BY(2)
>       IF  (&INT1 *GE 10)  THEN(LEAVE)
> ENDDO
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of DrFranken
> Sent: Tuesday, July 23, 2013 2:49 PM
> To: Midrange Systems Technical Discussion
> Subject: Leave outside of DO group???
>
> I wrote this snippet of code:
>
> Do
>      ChkObj QSTRUPEX1 *Pgm         /* Check for exit program.     */
>         MonMsg CPF9800 EXEC(Leave) /* Not there or Not Authorized */
>         Call QSTRUPEX1             /* Run it.                     */
>            MonMsg CPF0000
> EndDo
>
>
> At the LEAVE Statement I get this error:
>
> * CPD0883 30  LEAVE command found outside of DO group.
>
> But it sure appears to be inside a Do group to me!
>
> Am I in error if I 'complain' to the fine folks in the land of IBM i?