
  TYPE
    nlt$pp_status_report = record
      pp_buffer_pool_status: array [1 .. 2] of nlt$pp_buffer_pool_status,
      peer_global_flow_control: nlt$peer_global_flow_control,
    recend,

    nlt$pp_buffer_pool_status = record
      fill: 0 .. 0ff(16),
      buffer_pool_status: nlt$buffer_pool_status,
    recend;

*copyc nlt$buffer_pool_status
*copyc nlt$peer_global_flow_control
