Re: Leave outside of DO group???

These lines of code:
Do
chkobj ...
monmsg cpf9800 exec(goto err9800)
call ...
...
err9800: /* this label must remain with the EndDo */ +
EndDo

Are nothing near to:
Do
ChkObj QSTRUPEX1 *Pgm /* Check for exit program. */
MonMsg CPF9800 EXEC(Leave) /* Not there or Not Authorized */
Call QSTRUPEX1 /* Run it. */
MonMsg CPF0000
EndDo

The first example never breaks out of the loop. It's like coding
:tag
chkobj ...
monmsg cpf9800 exec(goto err9800)
call ...
...
err9800: /* this label must remain with the EndDo */ +
goto tag

Larry can change his loop to
DOWHILE COND(1 = 1) /* LEAVE not allowed in a simple DO group */
It's artificial constraints, like not allowing a LEAVE in a simple DO
group, that causes people to write DOWHILE COND(1=1). It's the old "you
can lead a horse to water but you can't make him drink".
Submit a DCR to eliminate this artifical constraint.


Rob Berendt