
  PROCEDURE [XREF] cmp$search_redundant_path
    (    primary_element: cmt$element_definition;
         iou: dst$iou_number;
         channel: cmt$physical_channel;
         new_state: cmt$element_state;
     VAR redundant_path_available: boolean;
     VAR update_controller_address: boolean;
     VAR number_of_path: integer;
     VAR redundant_channel_list: array [cmt$physical_equipment_number] of cmt$physical_address;
     VAR redundant_path_pp_list: array [cmt$physical_equipment_number] of iot$pp_number;
     VAR driver_name: pmt$program_name;
     VAR pp_table_rma_list: array [cmt$physical_equipment_number] of ost$real_memory_address);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$element_definition
*copyc cmt$element_state
*copyc cmt$physical_address
*copyc iot$pp_number
*copyc ost$hardware_subranges
*copyc pmt$program_name
?? POP ??
