  PROCEDURE [INLINE] dfp$set_invalid_family_index
    (    served_family_table_index: dft$served_family_table_index;
         request: string ( * <= 31);
     VAR status: ost$status);

    osp$set_status_abnormal (dfc$file_server_id, dfe$invalid_served_family_index, request, status);
    osp$append_status_integer (osc$status_parameter_delimiter, served_family_table_index.pointers_index, 10,
          FALSE, status);
    osp$append_status_integer (osc$status_parameter_delimiter, served_family_table_index.family_list_index,
          10, FALSE, status);
  PROCEND dfp$set_invalid_family_index;
?? PUSH (LISTEXT := ON) ??
*copyc dfe$error_condition_codes
*copyc osp$set_status_abnormal
*copyc osp$append_status_integer
*copyc dft$served_family_table_index
?? POP ??
