SAP/ABAP: OXT_MESSAGE_TO_POPUP FM

data: lt_msg   type bapirettab with header line,
           lv_pernr type pa0001-pernr.
  clear:lv_pernr.

  shift gt_out-pernr left deleting leading '0'.

  loop at gt_mesaj where pernr = gt_out-pernr.

lt_msg-type = gt_mesaj-msgtyp.
lt_msg-id = gt_mesaj-msgid.
lt_msg-number = gt_mesaj-msgnr.
lt_msg-message_v1 = gt_mesaj-msgv1.
lt_msg-message_v2 = gt_mesaj-msgv2.
lt_msg-message_v3 = gt_mesaj-msgv3.
lt_msg-message_v4 = gt_mesaj-msgv4.
    append lt_msg.
  endloop.

  check lt_msg[] is not initial.
  call function 'OXT_MESSAGE_TO_POPUP'
    exporting
      it_message = lt_msg[]
    exceptions
      bal_error  = 1
      others     = 2.
  if sy-subrc ne 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.