*DECK COBPT 
USETEXT CCTTEXT 
          PRGM COBPT; 
  
 #        COBPT - SETS UP TABLE PROCESSOR INFO                        # 
  
          BEGIN 
          XREF
              BEGIN 
              PROC CMM$FGR; 
              PROC PROCTAB; 
          PROC RETRN; 
              ITEM ZZZZZ48; 
              PROC DIAGSCN;        # DIAGNOSTIC PRESCAN                #
              PROC OVERRTN;   #RETURN FROM OVERLAY# 
              ITEM USEID I; 
              END 
  
  
 #     START OF EXECUTION                                              #
  
          PROCTAB;     #EXECUTE TABLE PROCESSOR#
          IF NOT CCTSYNTXONLY 
          THEN
              DIAGSCN;    # LOOK FOR FATAL DIAGS IF NOT SYNTAX ONLY # 
          IF CCTABORT 
          OR CCTSYNTXONLY 
          THEN
              BEGIN 
              CMM$FGR (USEID);;   #FREE USE BLOCK IF NO CGEN# 
              RETRN(LOC(ZZZZZ48));    # RETURN THE OTEXT FILE # 
              END 
          OVERRTN;
          END 
          TERM
