/Free - sample RPG Code snippit of Monitor Opcode in /Free

// Example of using MONITOR
      Monitor;               
      #PoPon = %Uns(GlSbl);
      On-Error *all;         
         #PoPon = *Zero;      
      endmon;                

[report a broken link by clicking here]