RE: Can you have nested MONITOR statements?

["Jon Paris" <Jon.Paris@xxxxxxxxxxxxxx>]

Charles,

Since I have no access to your Msg_throw() routine and have no idea what it
does, I substituted a divide by zero to cause the second error.  See the
code below.  It works as I would expect it to, and I see all three displays.

I ran it on V5R3 and V5R2 - both worked the same.  That leaves me to
conclude that either you are missing a PTF, or whatever you are doing in
your Msg_throw() routines is the cause.

     d x               s              5i 0 inz
     d lvl1err         s               n
     d lvl2err         s               n

      /free
        monitor;

          monitor;
            x = x / x;  // Blow up
          on-error;
            dsply ('On-error lvl2');
            lvl2err = *ON;
          endmon;
          if lvl2err;
            dsply ('Had Error at lvl2');
            x = x / x;  // Blow up again
          endif;

        on-error;  
          dsply ('On-error lvl1');

        endmon;
        dsply 'EndMon';
        *INLR = *ON;
        return;
      /end-free

Jon Paris
Partner400

www.Partner400.com