***********************************************************************

*TEST

***********************************************************************

REPORT ZTESTR1_XFL NO STANDARD PAGE HEADING

                MESSAGE-ID  LINE-SIZE  LINE-COUNT .

************************************************************************

* Tables Definitions

************************************************************************

*TABLES:xxxxx.

************************************************************************

* Data Definitions

************************************************************************

DATA:BEGIN OF GT_ITAB OCCURS ,

    NAME() TYPE C,

    AGE TYPE I,

    CLASS() TYPE C,

END OF GT_ITAB.

TYPE-POOLS : SLIS.

DATA:GT_EVENT TYPE SLIS_T_EVENT,

        GW_EVENT LIKE LINE OF GT_EVENT.

DATA:LISTHEADER TYPE SLIS_T_LISTHEADER,

         WA_LISTHEADER LIKE LINE OF LISTHEADER.

DATA: GS_LAYOUT     TYPE SLIS_LAYOUT_ALV,

          GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.

************************************************************************

* Selection Screen

************************************************************************

************************************************************************

* Initialization

************************************************************************

INITIALIZATION.

************************************************************************

* At Selection Screen

************************************************************************

AT SELECTION-SCREEN.

************************************************************************

* At Selection Screen Output

************************************************************************

AT SELECTION-SCREEN OUTPUT.

************************************************************************

* Report Format

************************************************************************

TOP-OF-PAGE.

END-OF-PAGE.

************************************************************************

* Main Process

************************************************************************

START-OF-SELECTION.

     PERFORM GET_DATA.

     PERFORM BUILD_EVENTS.

     PERFORM FRM_TOP_OF_PAGE.

     PERFORM CATA_LOG.

     PERFORM ALV_SHOW.

END-OF-SELECTION.

*&---------------------------------------------------------------------*

*&      Form  GET_DATA

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

FORM GET_DATA .

    GT_ITAB-NAME = '张三'.

    GT_ITAB-AGE = .

    GT_ITAB-CLASS = 'Class1'.

    APPEND GT_ITAB.

    CLEAR GT_ITAB.

    GT_ITAB-NAME = '李四'.

    GT_ITAB-AGE = .

    GT_ITAB-CLASS = 'Class2'.

    APPEND GT_ITAB.

    CLEAR GT_ITAB.

ENDFORM.                    " GET_DATA

FORM BUILD_EVENTS.

   CALL FUNCTION 'REUSE_ALV_EVENTS_GET'

   EXPORTING

     I_LIST_TYPE           =

   IMPORTING

     ET_EVENTS             = GT_EVENT

   EXCEPTIONS

     LIST_TYPE_WRONG       =

     OTHERS                =

            .

  IF SY-SUBRC <> .

* Implement suitable error handling here

  ENDIF.

  READ TABLE GT_EVENT WITH KEY NAME = 'TOP_OF_PAGE' INTO GW_EVENT.

  IF SY-SUBRC = .

    MOVE 'FRM_TOP_OF_PAGE' TO GW_EVENT-FORM.

    MODIFY GT_EVENT FROM GW_EVENT INDEX SY-TABIX.

    ENDIF.

ENDFORM.

FORM FRM_TOP_OF_PAGE.

  DATA: H_DATUM() TYPE C,

            H_UZEIT() TYPE C.

  CLEAR:LISTHEADER,WA_LISTHEADER.

*标题

  WA_LISTHEADER-TYP = 'H'.

  WA_LISTHEADER-KEY = ''.

  WA_LISTHEADER-INFO = 'XXX学校'.

  APPEND WA_LISTHEADER TO LISTHEADER.

  CLEAR:WA_LISTHEADER.

*中标题

  WA_LISTHEADER-TYP = 'S'.

  WA_LISTHEADER-KEY = ''.

  WA_LISTHEADER-INFO = '学生名单'.

  APPEND WA_LISTHEADER TO LISTHEADER.

  CLEAR:WA_LISTHEADER.

  WRITE SY-DATUM TO H_DATUM DD/MM/YYYY.

  WRITE SY-UZEIT TO H_UZEIT USING EDIT MASK '__:__:__'.

*小标题

  WA_LISTHEADER-TYP = 'A'.

  WA_LISTHEADER-KEY = ''.

  CONCATENATE 'Today:' H_DATUM 'Time:' H_UZEIT

               INTO WA_LISTHEADER-INFO.

  APPEND WA_LISTHEADER TO LISTHEADER.

  CLEAR:WA_LISTHEADER.

  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

    EXPORTING

      IT_LIST_COMMENTARY       = LISTHEADER

*     I_LOGO                   = ''

*     I_END_OF_LIST_GRID       =

*     I_ALV_FORM               =

            .

ENDFORM.

*&---------------------------------------------------------------------*

*&      Form  CATA_LOG

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

FORM CATA_LOG.

  DEFINE FILEDCAT.

        GT_FIELDCAT-FIELDNAME = &.

        GT_FIELDCAT-SELTEXT_L = &.

        APPEND GT_FIELDCAT.

  END-OF-DEFINITION.

  FILEDCAT 'NAME'  '姓名'.

  FILEDCAT 'AGE' '年龄'.

  FILEDCAT 'CLASS'  '班级'.

ENDFORM.       " CATA_LOG

*&---------------------------------------------------------------------*

*&      Form  ALV_SHOW

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

FORM ALV_SHOW .

GS_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.

* 显示ALV的函数

    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    EXPORTING

      I_CALLBACK_PROGRAM       = SY-REPID

      IS_LAYOUT                = GS_LAYOUT

      IT_FIELDCAT              = GT_FIELDCAT[]

      IT_EVENTS = GT_EVENT

      I_SAVE                   = 'A'             "保存全局,特定變式

    TABLES

      T_OUTTAB            =  gt_itab

    EXCEPTIONS

      PROGRAM_ERROR            =

      OTHERS                   = .

ENDFORM.                    " ALV_SHOW