
  TYPE
    fst$mainframe_write_concurrency = (fsc$not_attached_for_write,
          fsc$shared_memory, fsc$shared_mass_storage);

