Fw: ILE RPG - Monitor for MCH3401 not working - With code of small sample programs

*** i uploaded my samples to midrange scratchpad, and pasted the generated link here ... but this seems futile.*** Therefore i now include sample code here in text form. Sorry, i tried my best.


As described in a previous thread (which i do not replicate here) i have a problem with MONITORing for MCH3401 - "can not resolve to object".
I now have 2 sample programs, stripped down to the bone, to demonstrate this.

Sample 1: Monitoring for MCH3401 works
       //----------------------------------------------------------------------       dcl-s  msg       char(50);       dcl-s  pgmname   char(10)  inz('PGMXYZ');       //----------------------------------------------------------------------       // Test for MCH3401 - Can not resolve to object - OK       //----------------------------------------------------------------------
       monitor;     c                   call      'PGMABC'     c*     c                   eval      msg = 'Normal end'     c     msg           dsply
       on-error *PROGRAM;           msg = 'on-error *program. Status= ' + %char(%status());           dsply msg;       endmon;
       *inlr = *on; 



Sample 2: Monitoring for MCH3401 works NOT

       //----------------------------------------------------------------------       dcl-s  msg       char(50);       dcl-s  pgmname   char(10)  inz('PGMXYZ');       //----------------------------------------------------------------------       // Test for MCH3401 - Can not resolve to object - NOT ok           //----------------------------------------------------------------------
       monitor;         exsr srmain;
       on-error *PROGRAM;           msg = 'on-error *program. Status= ' + %char(%status());           dsply msg;       endmon;
       *inlr = *on;       //----------------------------------------------------------------------     c*     c     srmain        begsr     c                   call      'PGMABC'     c*     c                   eval      msg = 'Normal end'     c     msg           dsply     c*     c                   endsr        //----------------------------------------------------------------------




Slight difference: Sample2 uses EXSR, Sample1 does not.
Interestingly, other errors, eg. "MCH1210 - Decimal truncation"   ARE  handled by both samples.
Puzzling, isn't it?
Thanks for your ideas on this, cheers!Martin Neugebauer