弹出窗口中实现ALV显示

TYPE-POOLS slis.

SELECTION-SCREEN PUSHBUTTON 2(20) btn USER-COMMAND push.

initialization.
  btn = 'Open new window'.

AT SELECTION-SCREEN.
  PERFORM f_main.


FORM f_main.
  DATA: lt_spfli TYPE TABLE OF spfli,
        lt_fieldcat TYPE slis_t_fieldcat_alv.

  PERFORM get_data TABLES lt_spfli.

  PERFORM set_catalog CHANGING lt_fieldcat.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      it_fieldcat           = lt_fieldcat
      i_screen_start_column = 10
      i_screen_start_line   = 1
      i_screen_end_column   = 100
      i_screen_end_line     = 25
    TABLES
      t_outtab              = lt_spfli.
ENDFORM.                    "f_main

FORM get_data TABLES pt_spfli.
  SELECT * FROM spfli INTO TABLE pt_spfli.
ENDFORM.                    "get_data


FORM   set_catalog CHANGING pt_fieldcat TYPE slis_t_fieldcat_alv.
  DATA lwa_fieldcat TYPE slis_fieldcat_alv.

  "macro
  DEFINE add_field.
    clear lwa_fieldcat.
    lwa_fieldcat-col_pos   = &1.
    lwa_fieldcat-fieldname = &2.
    lwa_fieldcat-seltext_l = &3.
    append lwa_fieldcat to pt_fieldcat.
  END-OF-DEFINITION.

  "add field catalog
  add_field 1  'MANDT'     'Client'.
  add_field 2  'CARRID'    'Airline Code'.
  add_field 3  'CONNID'    'Fight Number'.
  add_field 4  'COUNTRYFR' 'Country From'.
  add_field 5  'CITYFROM'  'City From'.
  add_field 6  'AIRPFROM'  'Airpart From'.
  add_field 7  'COUNTRYTO' 'Country To'.
  add_field 8  'CITYTO'    'City To'.
  add_field 9  'AIRPTO'    'Airpart To'.
  add_field 10 'FLTIME'    'Fly Time'.
  add_field 11 'DEPTIME'   'Dept Time'.
  add_field 12 'ARRTIME'   'Arrive Time'.
  add_field 13 'DISTANCE'  'Distance'.
  add_field 14 'DISTID'    'Mass unit of distance'.
  add_field 15 'FLTYPE'    'Flight type'.
  add_field 16 'PERIOD'    'Arrival n day(s) later'.

ENDFORM.                    "set_catalog