
  TYPE
    dst$resource_request = RECORD
      channel: dst$iou_resource,
      CASE resource_request_type: dst$resource_request_types OF
      = dsc$rrt_get_pp, dsc$rrt_return_pp =
        options: dst$resource_request_options,
        primary_pp: dst$iou_resource,
        secondary_pp: dst$iou_resource,
      = dsc$rrt_get_equipment, dsc$rrt_return_equipment =
        equipment_number: cmt$physical_equipment_number,
        unit_number: cmt$physical_unit_number,
      CASEND,
    RECEND;

?? PUSH (LISTEXT := ON) ??
*copyc cmt$physical_equipment_number
*copyc cmt$physical_unit_number
*copyc dst$iou_resource
*copyc dst$resource_request_options
*copyc dst$resource_request_types
?? POP ??
