ABAP 事件流

*&--------------------------------------------------------------------*
* SELECTION-SCREEN
*&--------------------------------------------------------------------*
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
  "定义屏幕输入
SELECTION-SCREEN END OF BLOCK B1.


*---------------------------------------------------------------------*
*  INITIALIZATION                                                     *
*---------------------------------------------------------------------*
INITIALIZATION.
  "ALV 格式控制
  PERFORM SET_ALV_LAYOUT  CHANGING GS_LAYOUT.
  PERFORM SET_ALV_FIELDCAT.
  "SMARTFORM INITIALIZATION
  PERFORM SF_TO_FM.


*---------------------------------------------------------------------*
*  AT SELECTION-SCREEN                                                *
*---------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
  "设置选择屏幕下拉列表
  PERFORM FORM_SET_LIST.


*---------------------------------------------------------------------*
*  START-OF-SELECTION                                                 *
*---------------------------------------------------------------------*
START-OF-SELECTION.
  "获取ALV数据
  PERFORM GET_ALV_DATA TABLES GT_ALV_OUTPUT.

*---------------------------------------------------------------------*
*  END-OF-SELECTION                                                 *
*---------------------------------------------------------------------*
END-OF-SELECTION.
  "显示ALV
  PERFORM SHOW_ALV.