RE: Leave outside of DO group???

A structure that might better represent the original intention might be like this:
try {
try {
ChkObj QSTRUPEX1 *Pgm /* Check for exit program. */
} catch MonMsg(CPF9800) { // no exit program
Throw CPF9800
}
Call QSTRUPEX1 /* Run it. */
} catch MonMsg(CPF0000) {
// do nothing
} finally {
// do nothing
}

Re-throwing the CPF9800 causes the message to be caught by the MonMsg(CPF0000) in the outer try block which does nothing and exits the block.

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-
bounces@xxxxxxxxxxxx] On Behalf Of Dan Kimmel
Sent: Wednesday, July 24, 2013 1:20 PM
To: Midrange Systems Technical Discussion
Subject: RE: Leave outside of DO group???

I believe what's really wanted is a Try/Catch block like java or C. If ChkObj
throws a CPF9800, control jump to the catch block that handles CPF9800. If
any other error is thrown, control jumps to the more generic CPF0000 catch
block. After the code completes, whether with messages thrown or not,
control passes to the finally block, then on to the next statement after the
block.

try {
ChkObj QSTRUPEX1 *Pgm /* Check for exit program. */
Call QSTRUPEX1 /* Run it. */
} catch MonMsg(CPF9800) { // no exit program
// do nothing
} catch MonMsg(CPF0000) {
// do nothing
} finally {
// do nothing
}

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-
bounces@xxxxxxxxxxxx] On Behalf Of DrFranken
Sent: Tuesday, July 23, 2013 3: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?

--

- Larry "DrFranken" Bolhuis

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

--