
  TYPE
    nlt$pp_pool_status_and_message = record
      pp_status_report: nlt$pp_status_report,
      received_message: array [1 ..*] of nlt$pp_message_delivery,
    recend,

    nlt$pp_message_delivery = record
      data_length: nlt$bm_buffer_length,
      message_descriptor: ^nlt$bm_message_descriptor,
    recend;

*copyc nlt$bm_buffer_length
*copyc nlt$bm_message_descriptor
*copyc nlt$pp_status_report
