*COMDECK  COMDTDBP - DATA BASE PROCEDURES.
          BASED ARRAY TDBP ;       # DATA BASE PROCEDURES # 
               BEGIN
               ITEM DBPN U (0, 0,NL) ;  # DBP NAME #
               ITEM DBPO I (0,ZL,AL) ;  # DBP ORDINAL # 
               ITEM DBPW U (0, 0,WL) ;  # DBP WORD #
               END
          ITEM TDBPL ;
