Might be nice to highlight this errored comments

[worksofliam]

       **************************************************************************
       *                     Display View Event subfile subprocedure            *
       **************************************************************************
                Dcl-Proc Viwevdisplay;

                  Vsfldsp = *On;
                  Vsfldspctl = *On;
                  Vsflend = *On;
                    If Vrrn < 1;
                       Vsfldsp = *Off;
                    Endif;

                       Write Dspfooter ;
                       Exfmt Viwevntctl ;

                       Vinopt = *Off ;
                       Clear Errmsg;
                       Clear Evopt;

                End-Proc;

                Dcl-Proc Resetviewevents ;
                     Clear Srchpos;
                     Clear Errmsg;

                     Viwevclear();
                     Viwevload();

                End-Proc;