  PROCEDURE [XREF] dfp$unload_pp_if_last
    (    p_q_interface_directory_entry: ^dft$q_interface_directory_entry;
         queue_index: dft$queue_index;
     VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??
*copyc dft$queue_index
*copyc dft$queue_interface_directory
*copyc ost$status
?? POP ??
