
  PROCEDURE [XREF] cmp$mark_pp_element_reserved
    (    element_reservation: cmt$element_reservation;
         reserved_by_system: boolean;
         job_name: jmt$system_supplied_name;
         gtid: ost$global_task_id;
         physical_pp: dst$iou_resource;
         channel_present: boolean;
     VAR pp_index: iot$pp_number;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc cmt$element_reservation
*copyc dst$iou_resource
*copyc iot$pp_number
*copyc jmt$system_supplied_name
*copyc ost$global_task_id
*copyc ost$status
?? POP ??
