  TYPE
    ost$processor_element_id = record
      fill: ost$halfword,
      element_number: ost$processor_element_number,
      model_number: ost$processor_model_number,
      serial_number: ost$processor_serial_number,
    recend;

*copyc ost$halfword
*copyc ost$processor_element_number
*copyc ost$processor_model_number
*copyc ost$processor_serial_number
