*DECK CBDBPBD 
USETEXT TSBP2CM 
      PROC CBDBPBD(DBPNAME);
      BEGIN 
  
# PASSED PARAMETERS#
      ITEM DBPNAME;          #NAME OF DBP TO BE PUT INTO DBP TABLE# 
  
# EXTERNAL REFERENCES#
      XREF PROC CBCKBUF;      #MEMORY MANAGER PROC# 
  
      CONTROL EJECT;
# IF DBPNAME ALREADY IN TABLE RETURN WITH DBPINDEX SET# 
      FOR DBPINDEX=0 STEP 1 UNTIL DBPLSTL DO
        IF DBPNAME EQ DBPENTRY[DBPINDEX] THEN RETURN; 
# ENTRY NOT FOUND, ADD IT TO THE TABLE# 
      OM$DBP = TRUE;
      DBPLSTL = DBPLSTL+1;
      CBCKBUF(P<DBPLST>,DBPLSTL+1);    #MAKE SURE BIG ENOUGH# 
      DBPENTRY[DBPLSTL] = DBPNAME;
      DBPLOWER[DBPLSTL] = 0;
      DBPINDEX = DBPLSTL; 
      END 
      TERM; 
