  TYPE
    cmt$communications_definition = record
      microcode_identification: cmt$equipment_identification,
      peripheral_driver_name: pmt$program_name,
      physical_equipment_number: cmt$physical_equipment_number,
      protocol: cmt$controller_protocol,
      connection: cmt$communications_connectivity,
    recend;

*copyc cmt$communications_connectivity
*copyc cmt$controller_protocol
*copyc cmt$equipment_identification
*copyc cmt$physical_equipment_number
*copyc pmt$program_name
