DATA : BEGIN OF itab_nba OCCURS 0 ,
a TYPE c LENGTH 10 ,
b TYPE c LENGTH 10 ,
END OF itab_nba .
DATA : counts LIKE sy -tabix .
itab_nba -a = '11' .
itab_nba -b = '22' .
APPEND itab_nba .
itab_nba -a = '112' .
itab_nba -b = '222' .
APPEND itab_nba .
itab_nba -a = '13' .
itab_nba -b = '222' .
APPEND itab_nba .
itab_nba -a = '14' .
itab_nba -b = '222' .
APPEND itab_nba .
itab_nba -a = '111' .
itab_nba -b = '222' .
APPEND itab_nba .
itab_nba -a = '11' .
itab_nba -b = '22' .
APPEND itab_nba .
itab_nba -a = '112' .
itab_nba -b = '222' .
APPEND itab_nba .
itab_nba -a = '13' .
itab_nba -b = '222' .
APPEND itab_nba .
itab_nba -a = '14' .
itab_nba -b = '222' .
APPEND itab_nba .
itab_nba -a = '111' .
itab_nba -b = '222' .
APPEND itab_nba .
CALL FUNCTION 'POPUP_WITH_TABLE_DISPLAY'
EXPORTING
endpos_col = 50 "右下角X
endpos_row = 10 "右下角Y
startpos_col = 10 "左上角X
startpos_row = 5 "左上角Y
titletext = 'Please Choose Your Entry'
IMPORTING
choise = counts "返回選中行
TABLES
valuetab = itab_nba "可選擇的表
EXCEPTIONS
break_off = 1
OTHERS = 2 .
IF counts NE 0 .
READ TABLE itab_nba INDEX counts .
WRITE : itab_nba -a .
ENDIF .
CLEAR :itab_nba ,counts .
REFRESH :itab_nba .