  PROCEDURE [INLINE] osp$get_set_name
    (    family: ost$name;
     VAR set_name: stt$set_name;
     VAR status: ost$status);
?? PUSH (LISTEXT := ON) ??

    VAR
      i: integer;

    status.normal := TRUE;

    IF osv$family_table <> NIL THEN
      FOR i := 1 TO UPPERBOUND (osv$family_table^) DO
        IF osv$family_table^ [i].family_name = family THEN
          set_name := osv$family_table^ [i].set_name;
          RETURN;
        IFEND;
      FOREND;
    IFEND;

    osp$set_status_abnormal (pfc$permanent_file_manager_id, pfe$unknown_family, family, status);
  PROCEND osp$get_set_name;
*copyc pfe$error_condition_codes
*copyc osp$set_status_abnormal
*copyc osv$family_table
?? POP ??
