POPUP_WITH_TABLE_DISPLAY 彈出選擇窗體

 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 = '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.