 TYPE
    cmt$channel_adapter_definition = record
      microcode_identification: cmt$equipment_identification,
      peripheral_driver_name: pmt$program_name,
      physical_equipment_number : cmt$physical_equipment_number,
      response_handler_name: pmt$program_name,
      connection: cmt$channel_adapter_connection,
    recend;

?? PUSH(LISTEXT := ON) ??
*copyc cmt$channel_adapter_connection
*copyc cmt$equipment_identification
*copyc pmt$program_name
*copyc cmt$physical_equipment_number
?? POP ??
