
  PROCEDURE [XREF] cmp$change_state_r1
    (    element_name: cmt$element_name;
         element_type: cmt$element_type;
         controller_type: cmt$controller_type;
         system_critical_element: boolean;
         new_state: cmt$element_state;
         iou: dst$iou_number;
         pp: iot$pp_number;
         channel: cmt$physical_channel;
         controller: cmt$physical_equipment_number;
         logical_unit: iot$logical_unit;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$controller_type
*copyc cmt$element_name
*copyc cmt$element_state
*copyc cmt$element_type
*copyc cmt$physical_channel
*copyc cmt$physical_equipment_number
*copyc iot$logical_unit
*copyc iot$pp_interface_table
*copyc ost$status
?? POP ??
