  CONST
    fsc$tape_label_locate_by_ident = 1,
    fsc$tape_label_locate_by_index = 2,
    fsc$tape_label_locate_by_kind = 3;

  TYPE
    fst$tape_label_location_method = 1 .. fsc$max_tape_label_loc_method;

*copyc fsc$max_tape_label_loc_method
