*DECK RPARSER 
          PRGM RPARSER; 
          BEGIN 
            XREF   PROC DRIVER; 
            XREF   PROC DISPLAY;    #DISPLAY MESSAGE# 
            XREF   PROC OVERRTN;    #RETURN FROM OVERLAY# 
            ITEM   SECTIONMSG  C(10)  = "*COBRPD..*"; 
  
          #  START OF EXECUTION  #
           $BEGIN 
              DISPLAY(2,SECTIONMSG,0,10);  #PRINT SECTION MESSAGE#
           $END 
            DRIVER(4);  #4 INDICATES RPARSER TO THE DRIVER# 
          OVERRTN;
          END 
          TERM
