ABAP 最简单的例子学习docking用法,需要建一个屏幕9001

REPORT ztest001.

DATA:
  g_spfli     TYPE REF TO cl_gui_alv_grid,
  g_spfli_dc  TYPE REF TO cl_gui_docking_container.

DATA:
  td_field    TYPE lvc_t_fcat,                "设置显示行的格式表
  td_spfli TYPE TABLE OF spfli.

START-OF-SELECTION.
  CALL SCREEN 9001.

*&--------------------------------------------------------------------*
*&      Form  frm_get_data
*&--------------------------------------------------------------------*
*       text
*---------------------------------------------------------------------*
FORM frm_get_data .
  SELECT *
    INTO TABLE td_spfli
    FROM spfli.
ENDFORM.                    "frm_get_data

*&---------------------------------------------------------------------*
*&      Form  frm_display
*&---------------------------------------------------------------------*
*       显示数据
*----------------------------------------------------------------------*
FORM frm_display.

  DATA ls_stable TYPE lvc_s_stbl.

  ls_stable-row = 'X'.
  ls_stable-col = 'X'.

  IF g_spfli_dc IS INITIAL.
    CREATE OBJECT g_spfli_dc
      EXPORTING
        repid = sy-repid
        dynnr = sy-dynnr
        ratio = 95.  "最大值只能设置成95

    CREATE OBJECT g_spfli         "创建CL_GUI_ALV_GRID
      EXPORTING
        i_parent = g_spfli_dc.

    CALL METHOD g_spfli->set_table_for_first_display
      EXPORTING
*        is_layout                     = th_layout
*        it_toolbar_excluding          = td_exclude
*        is_variant                    = th_variant
        i_default                     = 'X'
        i_save                        = 'A'
      CHANGING
*        it_filter                     = td_filter
        it_outtab                     = td_spfli
        it_fieldcatalog               = td_field
      EXCEPTIONS
        invalid_parameter_combination = 1
        program_error                 = 2
        too_many_lines                = 3
        OTHERS                        = 4.
  ELSE.
    CALL METHOD g_spfli->refresh_table_display
      EXPORTING
        is_stable = ls_stable
      EXCEPTIONS
        finished  = 1
        OTHERS    = 2.
  ENDIF.

ENDFORM.                    " frm_display
*&---------------------------------------------------------------------*
*&      Module  STATUS_9001  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_9001 OUTPUT.
*  SET PF-STATUS 'xxxxxxxx'.
*  SET TITLEBAR 'xxx'.
  PERFORM frm_get_data.
  PERFORM frm_set_field.
  PERFORM frm_display.
ENDMODULE.                 " STATUS_9001  OUTPUT
*&---------------------------------------------------------------------*
*&      Form  frm_set_field
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM frm_set_field .
  DATA:
   th_field   TYPE lvc_s_fcat.           "用于设置显示字段格式

  th_field-fieldname     = 'CARRID'."对应的内表字段名
  th_field-scrtext_l     = '航线承运人ID'."长文本名称
  APPEND th_field TO td_field.

  CLEAR th_field.
  th_field-fieldname     = 'CONNID'."对应的内表字段名
  th_field-scrtext_l     = '航班连接 Id'."长文本名称
  APPEND th_field TO td_field.
ENDFORM.                    " frm_set_field