
  PROCEDURE [XREF] nap$reserve_network_elements
    (    element: cmt$element_name;
         channel: cmt$channel_ordinal;
         channel_address: cmt$physical_equipment_number,
         driver_name: pmt$program_name;
     VAR logical_unit: iot$logical_unit;
     VAR pp_identification: cmt$pp_identification;
     VAR pp_number: iot$pp_number;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc iot$pp_number
*copyc cmt$channel_ordinal
*copyc cmt$element_name
*copyc cmt$physical_equipment_number
*copyc cmt$pp_identification
*copyc iot$logical_unit
*copyc ost$status
*copyc pmt$program_name
?? POP ??
