弹出窗口并wirte内表内容

report.
data: return like rsnewleng-fcode.
data: begin of itab occurs 0,
        posnr(6),
        ettyp(10),
      end of itab.

itab-posnr = 1.
itab-ettyp = 'aa'.
append itab.
itab-posnr = 2.
itab-ettyp = 'bb'.
append itab.
call function 'BKK_POPUP_DISPLAY_LIST'
  exporting
    i_callback_program    = 'ZTEST4'  "程序名
    i_callback_write_form = 'L_SERVER_INFO_CONTENTS'   "输出表内容的form名
    i_title               = 'test'
    i_start_column        = 25
    i_start_row           = 15
    i_end_column          = 60
    i_end_row             = 20
  importing
    answer                = return.


*&---------------------------------------------------------------------*
*&      Form  l_server_info_contents
*&---------------------------------------------------------------------*
form l_server_info_contents.
  loop at itab.
    write : / itab-posnr,' ',itab-ettyp .
  endloop.
endform.                    "l_server_info_contents