
  PROCEDURE [XREF] cmp$manage_channel_lock
    (    set_lock : boolean;
         iou_number: dst$iou_number;
         channel_number: dst$physical_resource_number;
         concurrent : boolean;
     VAR status: syt$monitor_status);

?? PUSH (LISTEXT := ON) ??
*copyc dst$iou_number
*copyc dst$physical_resource_number
*copyc syt$monitor_status
?? POP ??

