
  PROCEDURE [INLINE] pfp$detach_unavail_queued_cat
    (    internal_catalog_name: pft$internal_catalog_name;
     VAR catalog_locator: {i/o} pft$catalog_locator);

?? PUSH (LISTEXT := ON) ??

    { This procedure is based on detach_catalog (pfm$file_system_interfaces).

    IF (NOT catalog_locator.new_catalog)
{ } AND catalog_locator.queuing_info.attach_queued
{ } AND (NOT catalog_locator.queuing_info.set_catalog_alarm)
{ } AND (pfv$p_p_newest_queued_catalog^ <> NIL) THEN
      pfp$detach_queued_catalog (internal_catalog_name, catalog_locator);
    IFEND;
  PROCEND pfp$detach_unavail_queued_cat;

*copyc pfp$detach_queued_catalog
*copyc pfv$p_p_newest_queued_catalog
?? POP ??
