RE: Can you have nested MONITOR statements?

Jon,

It doesn't seem to work for me at v5r2.

The lower level on-error works, but the higher level one doesn't get hit.  
Instead, I get CEE9901 -
Application Error, unmonitored exception.

I've tried:
      /free
        monitor;
          Proc1();
          monitor;
            Proc2();
          on-error;
            dsply 'On-error lvl2';
            lvl2err = *ON;
          endmon;
          if lvl2err;
            err.msgData = 'Had Error at lvl2';
            Msg_throw(err);  // THIS THROW OCCURS
          endif;
          Proc3();
        on-error;  //BUT THIS ON-ERROR DOESN'T GET CONTROL
          dsply 'On-error lvl1';
          Msg_Catch(excpt);
          msg = excpt.msgData;
          dsply msg;
        endmon;
        dsply 'EndMon';
        *INLR = *ON;
        return; 
      /end-free

And this way:

      /free
        monitor;
          Proc1();
          monitor;
            Proc2();
          on-error;
            dsply 'On-error lvl2';
            err.msgData = 'Had Error at lvl2';
            Msg_throw(err);  // THIS THROW OCCURS
          endmon;
          Proc3();
        on-error;  //BUT THIS ON-ERROR DOESN'T GET CONTROL
          dsply 'On-error lvl1';
          Msg_Catch(excpt);
          msg = excpt.msgData;
          dsply msg;
        endmon;
        dsply 'EndMon';
        *INLR = *ON;
        return; 
     /end-free

What are you doing that works?  And what release?

Thanks,
Charles


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On 
Behalf Of Jon Paris
Sent: Tuesday, February 20, 2007 12:53 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Can you have nested MONITOR statements?

but I was hoping I was doing something wrong

It works the way I would want/expect it to happen.  What do you want to happen?


Jon Paris
Partner400

www.Partner400.com 


--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list To 
post a message email:
RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at 
http://archive.midrange.com/rpg400-l.




This e-mail transmission contains information that is intended to be 
confidential and privileged.  If you receive this e-mail and you are not a 
named addressee you are hereby notified that you are not authorized to read, 
print, retain, copy or disseminate this communication without the consent of 
the sender and that doing so is prohibited and may be unlawful.  Please reply 
to the message immediately by informing the sender that the message was 
misdirected.  After replying, please delete and otherwise erase it and any 
attachments from your computer system.  Your assistance in correcting this 
error is appreciated.