
  TYPE
    rat$subproduct_info_pointers = record
      sequence_descriptor_p: ^rat$sequence_descriptor,
      subproduct_info_seq_p: ^rat$subproduct_info_sequence,
      info_header_p: ^rat$subproduct_info_header,
      attributes_p: ^rat$subproduct_attributes,
      element_list_p: ^rat$element,
      path_container_p: ^rat$path_container,
      psrs_answered_p: ^rat$psrs_answered,
    recend;


*copyc rat$sequence_descriptor_types
*copyc rat$subproduct_info_types
