  PROCEDURE [XREF] dfp$change_pp
    (    p_q_interface_directory_entry: ^dft$q_interface_directory_entry;
         new_name: cmt$element_name;
         pp_task: ost$name;
     VAR status: ost$status );

*copyc cmt$element_name
*copyc dft$queue_interface_directory
*copyc ost$status
