*DECK COBPP 
          PRGM COBPP; 
  
 #        COBPP - SETS UP PROC DIV PARSER INFO                         #
  
          BEGIN 
*CALL TABLEDF 
*CALL TABLETYP
          XREF
              BEGIN 
              PROC PP;
              PROC LDRPOVL;   #R-PARSER RETURN MECHANISM# 
              PROC RPRTN;     #R-PARSER RETURN (BORROWED)#
              PROC TMSPLIT; 
              END 
  
  
 #     START OF EXECUTION                                              #
  
          TMSPLIT(TABLETYPE"DNAT$");
          TMSPLIT(TABLETYPE"PNAT$");
          LDRPOVL;
 #     SET WORK1 AND WORK5 AS NOT TYPE 1 DUE TO MULTI-OVERLAYS #
          TTABGROUP1 [TABLETYPE "WORK1$"] = FALSE;
          TTABGROUP1 [TABLETYPE "WORK5$"] = FALSE;
          PP;     #EXECUTE PROC DIV PARSER# 
 #     VIRTUAL WILL RESET WORK1 AND WORK5 TO BY TYPE 1 #
 #     SPLIT TABLES FOR ADDITIONS MADE AFTER PPARSER #
          TMSPLIT(TABLETYPE"DNAT$");
         RPRTN; 
          END 
          TERM
