  TYPE
    rat$element_descriptor = record
      name: ost$name,
      format: rat$file_format,
      class: rat$file_class,
    recend;

*copyc ost$name
*copyc rat$file_format
*copyc rat$file_class

