victw

       //Cycle-main with unhandled divide by zero error
       Ctl-Opt Option(*SrcStmt:*NoDebugIO);

      //Divide by 0 error
       Dcl-S Result zoned(2:0)  ;
       Dcl-S Zero zoned(1:0) Inz(0);

       Result = 10/Zero;
       *InLR= *ON;

victw

       //This is an example of a linear-main with an unhandled divide by zero error
       Ctl-Opt Option(*SrcStmt);

       Ctl-Opt Main(ILEMSGDIV);

       Dcl-PR ILEMSGDIV ExtPgm('ILEMSGDIV');
       End-Pr;

       Dcl-Proc ILEMSGDIV;