ILEMSGDIV

       //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;

           Dcl-S Result zoned(2:0)  ;
           Dcl-S Zero zoned(1:0) Inz(0);

           //Divide by 0 error
           Result = 10/Zero;

       End-Proc;