How to add interactive feature in top of page in ALV .

Question

Hi All ,
There is immediate requirement , I have to add interactive feature in top of page in ALV grid .
Can anyone sort this out ?
Reward points will be given.

Answer 1

hi,
check this example:
REPORT  ZSR_ALV_INTERACTIVE2.
TYPE-POOLS: SLIS.
*DATA DECLARATION.
TYPES: BEGIN OF I_VBAK,
VBELN TYPE VBELN_VA,
AUGRU TYPE AUGRU,
END OF I_VBAK.
TYPES: BEGIN OF I_VBAP,
VBELN TYPE VBELN_VA,
AUGRU TYPE AUGRU,
POSNR TYPE POSNR_VA,
MATNR TYPE MATNR,
ZMENG TYPE DZMENG,
END OF I_VBAP.
TYPES: BEGIN OF I_MAKT,
MATNR TYPE MATNR,
MAKTX TYPE MAKTX,
END OF I_MAKT.
TYPES: BEGIN OF I_LIPS,
POSNR TYPE POSNR_VL,
MATNR TYPE MATNR,
LFIMG TYPE LFIMG,
END OF I_LIPS.
TYPES: BEGIN OF I_REASON,
SPRAS TYPE SPRAS,
AUGRU TYPE AUGRU,
BEZEI TYPE BEZEI40,
END OF I_REASON.
TYPES: BEGIN OF I_VBPA,
VBELN TYPE VBELN,
PARVW TYPE PARVW,
KUNNR TYPE KUNNR,
END OF I_VBPA.
TYPES: BEGIN OF I_KNA1,
KUNNR TYPE KUNNR,
NAME1 TYPE NAME1_GP,
END OF I_KNA1.
TYPES: BEGIN OF I_FINAL,
VBELN TYPE VBELN_VA,
POSNR TYPE POSNR_VA,
MATNR TYPE MATNR,
ZMENG TYPE DZMENG,
MAKTX TYPE MAKTX,
LFIMG TYPE LFIMG,
SPRAS TYPE SPRAS,
AUGRU TYPE AUGRU,
BEZEI TYPE BEZEI40,
PARVW TYPE PARVW,
KUNNR TYPE KUNNR,
NAME1 TYPE NAME1_GP,
END OF I_FINAL.
*INTERNAL TABLES
DATA: IT_VBAK TYPE STANDARD TABLE OF I_VBAK.
DATA: IT_VBAP TYPE STANDARD TABLE OF I_VBAP.
DATA: IT_MAKT TYPE STANDARD TABLE OF I_MAKT.
DATA: IT_LIPS TYPE STANDARD TABLE OF I_LIPS.
DATA: IT_VBPA TYPE STANDARD TABLE OF I_VBPA.
DATA: IT_KNA1 TYPE STANDARD TABLE OF I_KNA1.
DATA: IT_FINAL TYPE STANDARD TABLE OF I_FINAL.
DATA: IT_REASON TYPE STANDARD TABLE OF I_REASON.
DATA : V_FLAG.
*WORK AREA
DATA: WA_VBAK TYPE I_VBAK.
DATA: WA_VBAP TYPE I_VBAP.
DATA: WA_MAKT TYPE I_MAKT.
DATA: WA_LIPS TYPE I_LIPS.
DATA: WA_VBPA TYPE I_VBPA.
DATA: WA_KNA1 TYPE I_KNA1.
DATA: WA_FINAL TYPE I_FINAL.
DATA: WA_REASON TYPE I_REASON.
*DATA DECLARATION.
DATA: V_PROGNAME TYPE SY-REPID.
DATA: V_VBELN TYPE VBAK-VBELN.
DATA: V_GRIDTITLE TYPE LVC_TITLE.
***PARAMETERS: D_VARI LIKE DISVARIANT-VARIANT.
*DATA: I_VARIANT LIKE DISVARIANT.
*DATA: P_VARI LIKE DISVARIANT-VARIANT.
*DATA DECLARATION FOR CATALOGS LAYOUT SORT EVENTCATALOG TOPOFPAGE.
DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: I_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: I_SORTINFO TYPE SLIS_T_SORTINFO_ALV.
DATA: I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA: I_EVENTCAT TYPE SLIS_T_EVENT.
INITIALIZATION.
  V_PROGNAME = SY-REPID.
  V_FLAG = SPACE.
*SELECTION SCREEN
  SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-002.
  SELECT-OPTIONS: S_VBELN FOR V_VBELN.
  SELECTION-SCREEN END OF BLOCK BLK1.
*AT SLECTION-SCREEN.
AT SELECTION-SCREEN.
  PERFORM Z_VALIDATIONS.
*START OF SELECTION.
START-OF-SELECTION.
  PERFORM Z_SELECT.
  PERFORM CHECK_VALIDATION_FLAG.
  PERFORM Z_FIELDCAT USING I_FIELDCAT.
  PERFORM Z_LAYOUT.
  PERFORM Z_SORTINFO USING I_SORTINFO.
  PERFORM Z_EVENTCAT USING I_EVENTCAT.
  PERFORM Z_GRIDTITLE.
  PERFORM Z_LISTHEADER USING I_LISTHEADER.
  PERFORM Z_DISPLAY.
*& Form Z_VALIDATIONS
FORM Z_VALIDATIONS .
  SELECT VBELN INTO V_VBELN
  UP TO 1 ROWS
  FROM VBAK
  WHERE VBELN IN S_VBELN.
  ENDSELECT.
  IF SY-SUBRC <> 0.
    MESSAGE I002(SY) WITH 'No Records'.
    V_FLAG = 'X'.
  ENDIF.
ENDFORM. " Z_VALIDATIONS
*& Form Z_FIELDCAT
FORM Z_FIELDCAT USING P_I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
  DATA: I_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
*VBAK-VELN
  I_FIELDCAT-COL_POS = '1'. " POSITION OF THE COLUMN.
  I_FIELDCAT-FIELDNAME = 'VBELN'. " FIELD FOR WHICH CATALOG ID FILLED.
  I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
  I_FIELDCAT-KEY = 'X'. " SO THAT THIS FIELD IS NOT SCROLLABLE AND
*HIDDABLE.
  I_FIELDCAT-JUST = 'C'. " FOR JUSTIFICATION.
  I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
  I_FIELDCAT-SELTEXT_L = 'SALES ORDER'. " LONG TEXT FOR HEADER.
  I_FIELDCAT-OUTPUTLEN = 15. " SET THE OUTPUT LENGTH.
  I_FIELDCAT-REF_TABNAME = 'VBAK'. " FOR F1 & F4 HELP AS REFERNCED TO
*THE DDIC TABLE.
  APPEND I_FIELDCAT TO P_I_FIELDCAT.
*VBAP-SPRAS
  I_FIELDCAT-COL_POS = '2'. " POSITION OF THE COLUMN.
  I_FIELDCAT-FIELDNAME = 'SPRAS'. " FIELD FOR WHICH CATALOG ID FILLED.
  I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
  I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
  I_FIELDCAT-SELTEXT_L = 'LANGUAGE'. " LONG TEXT FOR HEADER.
  I_FIELDCAT-OUTPUTLEN = 5. " SET THE OUTPUT LENGTH.
  I_FIELDCAT-REF_TABNAME = 'TVAUT'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
  APPEND I_FIELDCAT TO P_I_FIELDCAT.
*VBAP-AUGRU
  I_FIELDCAT-COL_POS = '3'. " POSITION OF THE COLUMN.
  I_FIELDCAT-FIELDNAME = 'AUGRU'. " FIELD FOR WHICH CATALOG ID FILLED.
  I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
  I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
  I_FIELDCAT-SELTEXT_L = 'REASON'. " LONG TEXT FOR HEADER.
  I_FIELDCAT-OUTPUTLEN = 5. " SET THE OUTPUT LENGTH.
  I_FIELDCAT-REF_TABNAME = 'VBAK'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
  APPEND I_FIELDCAT TO P_I_FIELDCAT.
*VBAP-bezei
  I_FIELDCAT-COL_POS = '4'. " POSITION OF THE COLUMN.
  I_FIELDCAT-FIELDNAME = 'BEZEI'. " FIELD FOR WHICH CATALOG ID FILLED.
  I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
  I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
  I_FIELDCAT-SELTEXT_L = 'DESCRIPTION'. " LONG TEXT FOR HEADER.
  I_FIELDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
  I_FIELDCAT-REF_TABNAME = 'TVAUT'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
  APPEND I_FIELDCAT TO P_I_FIELDCAT.
*VBAP-POSNR
  I_FIELDCAT-COL_POS = '5'. " POSITION OF THE COLUMN.
  I_FIELDCAT-FIELDNAME = 'POSNR'. " FIELD FOR WHICH CATALOG ID FILLED.
  I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
  I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
  I_FIELDCAT-SELTEXT_L = 'ITEM'. " LONG TEXT FOR HEADER.
  I_FIELDCAT-OUTPUTLEN = 8. " SET THE OUTPUT LENGTH.
  I_FIELDCAT-REF_TABNAME = 'VBAP'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
  APPEND I_FIELDCAT TO P_I_FIELDCAT.
*VBAP-MATNR.
  I_FIELDCAT-COL_POS = '6'. " POSITION OF THE COLUMN.
  I_FIELDCAT-FIELDNAME = 'MATNR'. " FIELD FOR WHICH CATALOG ID FILLED.
  I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
  I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
  I_FIELDCAT-SELTEXT_L = 'MATERIAL'. " LONG TEXT FOR HEADER.
  I_FIELDCAT-OUTPUTLEN = 10. " SET THE OUTPUT LENGTH.
  I_FIELDCAT-REF_TABNAME = 'VBAP'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
  APPEND I_FIELDCAT TO P_I_FIELDCAT.
*VBAP-ZMENG
  I_FIELDCAT-COL_POS = '7'. " POSITION OF THE COLUMN.
  I_FIELDCAT-FIELDNAME = 'ZMENG'. " FIELD FOR WHICH CATALOG ID FILLED.
  I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
  I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
  I_FIELDCAT-SELTEXT_L = 'QUANT'. " LONG TEXT FOR HEADER.
  I_FIELDCAT-OUTPUTLEN = 10. " SET THE OUTPUT LENGTH.
  I_FIELDCAT-REF_TABNAME = 'VBAP'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
  APPEND I_FIELDCAT TO P_I_FIELDCAT.
*MAKT-MAKTX
  I_FIELDCAT-COL_POS = '8'. " POSITION OF THE COLUMN.
  I_FIELDCAT-FIELDNAME = 'MAKTX'. " FIELD FOR WHICH CATALOG ID FILLED.
  I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
  I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
  I_FIELDCAT-SELTEXT_L = 'DESCRIPTION'. " LONG TEXT FOR HEADER.
  I_FIELDCAT-OUTPUTLEN = 20. " SET THE OUTPUT LENGTH.
  I_FIELDCAT-REF_TABNAME = 'MAKT'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
  APPEND I_FIELDCAT TO P_I_FIELDCAT.
*LIPS-VBELN
  I_FIELDCAT-COL_POS = '9'. " POSITION OF THE COLUMN.
  I_FIELDCAT-FIELDNAME = 'VBELN'. " FIELD FOR WHICH CATALOG ID FILLED.
  I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
  I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
  I_FIELDCAT-SELTEXT_L = 'DELIVERY'. " LONG TEXT FOR HEADER.
  I_FIELDCAT-OUTPUTLEN = 15. " SET THE OUTPUT LENGTH.
  I_FIELDCAT-REF_TABNAME = 'LIPS'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
  APPEND I_FIELDCAT TO P_I_FIELDCAT.
*LIPS-LFIMG
  I_FIELDCAT-COL_POS = '10'. " POSITION OF THE COLUMN.
  I_FIELDCAT-FIELDNAME = 'LFIMG'. " FIELD FOR WHICH CATALOG ID FILLED.
  I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
  I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
  I_FIELDCAT-DO_SUM = 'X'.
  I_FIELDCAT-SELTEXT_L = 'LFIMG'. " LONG TEXT FOR HEADER.
  I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.
  I_FIELDCAT-REF_TABNAME = 'LIPS'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
  APPEND I_FIELDCAT TO P_I_FIELDCAT.
*parvw
  I_FIELDCAT-COL_POS = '11'. " POSITION OF THE COLUMN.
  I_FIELDCAT-FIELDNAME = 'PARVW'. " FIELD FOR WHICH CATALOG ID FILLED.
  I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
  I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
  I_FIELDCAT-SELTEXT_L = 'PARTNER FUN'. " LONG TEXT FOR HEADER.
  I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.
  I_FIELDCAT-REF_TABNAME = 'VBPA'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
  APPEND I_FIELDCAT TO P_I_FIELDCAT.
*KUNNR
  I_FIELDCAT-COL_POS = '12'. " POSITION OF THE COLUMN.
  I_FIELDCAT-FIELDNAME = 'KUNNR'. " FIELD FOR WHICH CATALOG ID FILLED.
  I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
  I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
  I_FIELDCAT-SELTEXT_L = 'SHIP'. " LONG TEXT FOR HEADER.
  I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.
  I_FIELDCAT-REF_TABNAME = 'VBPA'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
  APPEND I_FIELDCAT TO P_I_FIELDCAT.
*NAME1
  I_FIELDCAT-COL_POS = '13'. " POSITION OF THE COLUMN.
  I_FIELDCAT-FIELDNAME = 'NAME1'. " FIELD FOR WHICH CATALOG ID FILLED.
  I_FIELDCAT-TABNAME = 'IT_FINAL'. " INTERNAL TABLE TO WHICH THE FIELD
*BELONGS TO.
  I_FIELDCAT-LZERO = 'X'. " OUTPUT WITH LEADING ZEROS.
  I_FIELDCAT-SELTEXT_L = 'NAME'. " LONG TEXT FOR HEADER.
  I_FIELDCAT-OUTPUTLEN = 18. " SET THE OUTPUT LENGTH.
  I_FIELDCAT-REF_TABNAME = 'KNA1'. " FOR F1 & F4 HELP AS REFERNCED TO
*TABLE.
  APPEND I_FIELDCAT TO P_I_FIELDCAT.
ENDFORM. " Z_FIELDCAT
*& Form Z_SELECT
FORM Z_SELECT .
  SELECT VBELN
  AUGRU INTO CORRESPONDING FIELDS OF TABLE IT_VBAK
  FROM VBAK
  WHERE VBELN IN S_VBELN.
  IF SY-SUBRC = 0.
    SELECT VBELN
    POSNR
    MATNR
    ZMENG INTO CORRESPONDING FIELDS OF TABLE IT_VBAP
    FROM VBAP
    FOR ALL ENTRIES IN IT_VBAK
    WHERE VBELN = IT_VBAK-VBELN.
    IF SY-SUBRC = 0.
      SELECT SPRAS
      AUGRU
      BEZEI INTO CORRESPONDING FIELDS OF TABLE IT_REASON
      FROM TVAUT
      FOR ALL ENTRIES IN IT_VBAK
      WHERE AUGRU = IT_VBAK-AUGRU.
      IF SY-SUBRC = 0.
        SELECT VBELN
        PARVW
        KUNNR INTO CORRESPONDING FIELDS OF TABLE IT_VBPA
        FROM VBPA
        FOR ALL ENTRIES IN IT_VBAK
        WHERE VBELN = IT_VBAK-VBELN.
        IF SY-SUBRC = 0.
          SELECT KUNNR
          NAME1 INTO CORRESPONDING FIELDS OF TABLE IT_KNA1
          FROM KNA1
          FOR ALL ENTRIES IN IT_VBPA
          WHERE KUNNR = IT_VBPA-KUNNR.
          IF SY-SUBRC = 0.
            SELECT POSNR
            MATNR
            LFIMG INTO CORRESPONDING FIELDS OF TABLE IT_LIPS
            FROM LIPS
            FOR ALL ENTRIES IN IT_VBAP
            WHERE POSNR = IT_VBAP-POSNR.
            IF SY-SUBRC = 0.
              SELECT MATNR
              MAKTX INTO CORRESPONDING FIELDS OF TABLE IT_MAKT
              FROM MAKT
              FOR ALL ENTRIES IN IT_VBAP
              WHERE MATNR = IT_VBAP-MATNR.
            ENDIF.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.
  ELSE.
    MESSAGE I002(SY) WITH 'No Data found'.
    LEAVE LIST-PROCESSING.
  ENDIF.
  IF SY-SUBRC = 0.
    LOOP AT IT_VBAP INTO WA_VBAP.
      READ TABLE IT_VBAK INTO WA_VBAK WITH KEY VBELN = WA_VBAP-VBELN
BINARY SEARCH.
      IF SY-SUBRC = 0.
*MOVE DATA INTO IT_FINAL.
        MOVE: WA_VBAK-VBELN TO WA_FINAL-VBELN,
        WA_VBAK-AUGRU TO WA_FINAL-AUGRU,
        WA_VBAP-POSNR TO WA_FINAL-POSNR,
        WA_VBAP-MATNR TO WA_FINAL-MATNR,
        WA_VBAP-ZMENG TO WA_FINAL-ZMENG.
      ENDIF.
      READ TABLE IT_LIPS INTO WA_LIPS WITH KEY POSNR = WA_FINAL-POSNR
BINARY SEARCH.
      IF SY-SUBRC = 0.
        MOVE: WA_LIPS-LFIMG TO WA_FINAL-LFIMG.
      ENDIF.
      READ TABLE IT_REASON INTO WA_REASON WITH KEY AUGRU =
WA_FINAL-AUGRU BINARY SEARCH.
      IF SY-SUBRC = 0.
        MOVE: WA_REASON-SPRAS TO WA_FINAL-SPRAS,
        WA_REASON-BEZEI TO WA_FINAL-BEZEI.
      ENDIF.
      READ TABLE IT_MAKT INTO WA_MAKT WITH KEY MATNR = WA_FINAL-MATNR
BINARY SEARCH.
      IF SY-SUBRC = 0.
        MOVE: WA_MAKT-MAKTX TO WA_FINAL-MAKTX.
      ENDIF.
      READ TABLE IT_VBPA INTO WA_VBPA WITH KEY VBELN = WA_FINAL-VBELN
BINARY SEARCH.
      IF SY-SUBRC = 0.
        MOVE: WA_VBPA-PARVW TO WA_FINAL-PARVW,
        WA_VBPA-KUNNR TO WA_FINAL-KUNNR.
      ENDIF.
      READ TABLE IT_KNA1 INTO WA_KNA1 WITH KEY KUNNR = WA_FINAL-KUNNR
BINARY SEARCH.
      IF SY-SUBRC = 0.
        MOVE: WA_KNA1-NAME1 TO WA_FINAL-NAME1.
      ENDIF.
      APPEND WA_FINAL TO IT_FINAL.
      CLEAR WA_FINAL.
    ENDLOOP.
  ENDIF.
ENDFORM. " Z_SELECT
*& Form Z_LAYOUT
FORM Z_LAYOUT .
  I_LAYOUT-ZEBRA = 'X'.
  I_LAYOUT-TOTALS_TEXT = 'Total'(A00).
  I_LAYOUT-SUBTOTALS_TEXT = 'SubTotal'(A01).
  I_LAYOUT-BOX_TABNAME = 'IT_FINAL'.
ENDFORM. " Z_LAYOUT
*& Form Z_SORTINFO
FORM Z_SORTINFO USING P_I_SORTINFO TYPE SLIS_T_SORTINFO_ALV.
  DATA: I_SORTINFO TYPE SLIS_SORTINFO_ALV.
  CLEAR I_SORTINFO.
  I_SORTINFO-SPOS = '1'.
  I_SORTINFO-FIELDNAME = 'VBELN'.
  I_SORTINFO-TABNAME = 'IT_FINAL'.
  I_SORTINFO-UP = 'X'.
  I_SORTINFO-GROUP = 'UL'. " I.E UNDERLINE AFTER EVERY GROUP
  I_SORTINFO-SUBTOT = 'X'.
  APPEND I_SORTINFO TO P_I_SORTINFO.
ENDFORM. " Z_SORTINFO
*& Form Z_EVENTCAT
FORM Z_EVENTCAT USING P_I_EVENTCAT TYPE SLIS_T_EVENT.
  DATA: I_EVENT TYPE SLIS_ALV_EVENT.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE     = 0
    IMPORTING
      ET_EVENTS       = P_I_EVENTCAT
    EXCEPTIONS
      LIST_TYPE_WRONG = 1
      OTHERS          = 2.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
  CLEAR I_EVENT.
  READ TABLE P_I_EVENTCAT WITH KEY NAME = SLIS_EV_TOP_OF_PAGE INTO
  I_EVENT.
  IF SY-SUBRC = 0.
    MOVE 'TOP_OF_PAGE' TO I_EVENT-FORM.
    APPEND I_EVENT TO P_I_EVENTCAT.
  ENDIF.
  READ TABLE P_I_EVENTCAT WITH KEY NAME = SLIS_EV_PF_STATUS_SET INTO
I_EVENT.
  IF SY-SUBRC = 0.
    MOVE 'SET_PF_STATUS' TO I_EVENT-FORM.
    APPEND I_EVENT TO P_I_EVENTCAT.
  ENDIF.
  CLEAR I_EVENT.
  READ TABLE P_I_EVENTCAT INTO I_EVENT WITH KEY NAME =
SLIS_EV_USER_COMMAND .
  IF SY-SUBRC = 0.
    MOVE 'USER_COMMAND' TO I_EVENT-FORM.
    APPEND I_EVENT TO P_I_EVENTCAT.
  ENDIF.
ENDFORM. " Z_EVENTCAT
*& Form Z_DISPLAY
FORM Z_DISPLAY .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
  EXPORTING
  I_CALLBACK_PROGRAM = V_PROGNAME
*I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
  I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
  I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
  I_GRID_TITLE = V_GRIDTITLE
  I_SAVE = 'A'
  IS_LAYOUT = I_LAYOUT
  IT_FIELDCAT = I_FIELDCAT[]
  IT_SORT = I_SORTINFO
  IT_EVENTS = I_EVENTCAT
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
  TABLES
  T_OUTTAB = IT_FINAL
  EXCEPTIONS
  PROGRAM_ERROR = 1
  OTHERS = 2
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
ENDFORM. " Z_DISPLAY
*& Form Z_GRIDTITLE
FORM Z_GRIDTITLE .
  V_GRIDTITLE = 'ALV FOR SALES ORDER DISPLAY'.
ENDFORM. " Z_GRIDTITLE
*TOP OF PAGE.
FORM TOP_OF_PAGE.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = I_LISTHEADER.
ENDFORM. "TOP_OF_PAGE
*MENU SETTINGS.
FORM SET_PF_STATUS USING RT_EXTAB TYPE SLIS_T_EXTAB.
  SET PF-STATUS 'ALV_MENU'.
ENDFORM. "SET_PF_STATUS
*USER-COMMAND
FORM USER_COMMAND USING P_UCOMM TYPE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
  DATA : VBELN TYPE VBELN_VA.
  CASE P_UCOMM.
    WHEN 'BACK'.
      LEAVE PROGRAM.
    WHEN '&IC1'.
      CLEAR : VBELN.
      VBELN = RS_SELFIELD-VALUE.
      SET PARAMETER ID: 'AUN' FIELD VBELN.
      CALL TRANSACTION 'VA03' AND SKIP FIRST SCREEN.
  ENDCASE.
ENDFORM. " USER_COMMAND
*& Form Z_LISTHEADER
FORM Z_LISTHEADER USING P_I_LISTHEADER TYPE SLIS_T_LISTHEADER.
  DATA: L_LISTHEADER TYPE SLIS_LISTHEADER.
  REFRESH P_I_LISTHEADER.
  CLEAR L_LISTHEADER.
  L_LISTHEADER-TYP = 'H'.
  L_LISTHEADER-INFO = TEXT-001.
  APPEND L_LISTHEADER TO P_I_LISTHEADER.
  CLEAR L_LISTHEADER.
  L_LISTHEADER-TYP = 'H'.
  L_LISTHEADER-INFO = TEXT-002.
  APPEND L_LISTHEADER TO P_I_LISTHEADER.
ENDFORM. " Z_LISTHEADER
*& Form check_validation_flag
text
--> p1 text
<-- p2 text
FORM CHECK_VALIDATION_FLAG .
  IF NOT V_FLAG IS INITIAL.
    LEAVE LIST-PROCESSING.
  ENDIF.
ENDFORM. " check_validation_flag