*COMDECK  COMDTDPN - DATA BASE PROCEDURE NAMES (FROM SCHEMA). 
          BASED ARRAY TDPN ;       # DATA BASE PROCEDURE NAMES #
               BEGIN
               ITEM DPNM U (0, 0,NL) ;  # DBP NAME #
               END
          ITEM TDPNL ;
