

  PROCEDURE [INLINE] dfp$fetch_served_family_state
    (    served_family_table_index:  dft$served_family_table_index;
     VAR server_state: dft$server_state);


      server_state := 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].server_state;

  PROCEND dfp$fetch_served_family_state;

?? PUSH (LISTEXT := ON) ??
*copyc dft$server_state
*copyc dfv$served_family_table_root
?? POP ??






