  PROCEDURE [INLINE] dfp$fetch_served_family_entry
    (    served_family_table_index: dft$served_family_table_index;
     VAR p_served_family_entry: ^dft$served_family_table_entry;
     VAR status: ost$status);

    VAR
      family: ost$family_name,
      p_queue_interface_table: dft$p_queue_interface_table,
      queue_index: dft$queue_index,
      server_mainframe_id: pmt$binary_mainframe_id,
      valid_index: boolean;

    status.normal := TRUE;
    dfp$fetch_served_family_info (served_family_table_index, family,
          server_mainframe_id, p_queue_interface_table, queue_index,
          valid_index);
    IF NOT valid_index THEN
      dfp$set_invalid_family_index (served_family_table_index,
            ' dfp$fetch_served_family_entry ', status);
      RETURN;
    IFEND;

    p_served_family_entry := ^dfv$served_family_table_root.
          p_family_list_pointer_array^ [served_family_table_index.
          pointers_index].p_served_family_list^
          [served_family_table_index.family_list_index];
  PROCEND dfp$fetch_served_family_entry;

?? PUSH (LISTEXT := ON) ??
*copyc dfp$fetch_served_family_info
*copyc dfp$set_invalid_family_index
*copyc dft$served_family_table_index
*copyc dfv$served_family_table_root
*copyc ost$status
?? POP ??

