ALV development in SAP 4.5

Question

Hi
Has anyone done any development on ALV interactive report on SAP version 4.5? Possible to provide me pointer. The interactive ALV report include checkbox to perform certain task once the save button is clicked.

Answer 1

Hi Min,
*& Report  Z_REPORTFROMKNA1ANDT005T
REPORT  Z_REPORTFROMKNA1ANDT005T
                  LINE-SIZE 180
                  MESSAGE-ID ZZ.
TABLES:EKKO.
TYPE-POOLS : SLIS.
      Internal table for ALV
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,     "Field catalog
       WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,       "WA for Field catalog
       IT_EVENT TYPE SLIS_T_EVENT,               "events
       WA_EVENT TYPE SLIS_ALV_EVENT,             "WA for events
       IT_COMMENT TYPE SLIS_T_LISTHEADER,        "Header details
       WA_COMMENT TYPE SLIS_LISTHEADER,          "WA for header details
       WA_LAYOUT TYPE SLIS_LAYOUT_ALV,           "Layout
       IT_SORT TYPE SLIS_T_SORTINFO_ALV,         "Sort table
       WA_SORT TYPE SLIS_SORTINFO_ALV,           "WA for sort table
       IT_KEYINFO TYPE SLIS_KEYINFO_ALV.         "Pass key value
DATA : V_REPID LIKE SY-REPID.
V_REPID = SY-REPID.
DATA : V_DATE LIKE SY-DATUM.
color management.
DATA  : IT_COLOR TYPE TABLE OF LVC_S_SCOL.       "Color management.
      Internal table declearation
DATA:BEGIN OF IT_EKKO OCCURS 0,
  EBELN LIKE EKKO-EBELN,
  BUKRS  LIKE EKKO-BUKRS,
  AEDAT  LIKE EKKO-AEDAT,
END OF IT_EKKO.
DATA : BEGIN OF IT_EKPO OCCURS 0,
  EBELN LIKE EKPO-EBELN,
  EBELP LIKE EKPO-EBELP,
  MATNR LIKE EKPO-MATNR,
  MENGE LIKE EKPO-MENGE,
  MEINS LIKE EKPO-MEINS,
  NETPR LIKE EKPO-NETPR,
  NETWR LIKE EKPO-MENGE,
END OF IT_EKPO.
DATA : BEGIN OF IT_EKBE OCCURS 0,
       EBELN LIKE EKBE-EBELN,
       EBELP LIKE EKBE-EBELP,
       BELNR LIKE EKBE-BELNR,
       MENGE LIKE EKBE-MENGE,
       MATNR LIKE EKBE-MATNR,
  END OF IT_EKBE.
DATA : BEGIN OF IT_FINAL OCCURS 0,
  EBELN LIKE EKPO-EBELN,
  EBELP LIKE EKPO-EBELP,
  MATNR LIKE EKPO-MATNR,
  MENGE LIKE EKPO-MENGE,
  MEINS LIKE EKPO-MEINS,
  NETPR LIKE EKPO-NETPR,
  NETWR LIKE EKPO-NETWR,
  LINE_COLOR(4) TYPE C,     "Used to store row color attributes
END OF IT_FINAL.
SELECTION-SCREEN BEGIN OF BLOCK BLK WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS:S_EBELN FOR EKKO-EBELN.
PARAMETERS : RB1 RADIOBUTTON GROUP G1 MODIF ID Z1,
             RB2 RADIOBUTTON GROUP G1 MODIF ID Z2,
             RB3 RADIOBUTTON GROUP G1 MODIF ID Z3.
SELECTION-SCREEN END OF BLOCK BLK.
AT SELECTION-SCREEN OUTPUT.
  PERFORM MODIFY_SCREEN.
START-OF-SELECTION.
  PERFORM GET_DETAILS.
  PERFORM GET_ALV.
*&      Form  modify_screen
      text
-->  p1        text
<--  p2        text
FORM MODIFY_SCREEN .
IF RB1 = 'X'.
   LOOP AT SCREEN.
     IF SCREEN-GROUP1 = 'Z1' .
       SCREEN-INVISIBLE = 1.
       SCREEN-ACTIVE = 0.
     ELSE.
       SCREEN-INVISIBLE = 0.
       SCREEN-ACTIVE = 1.
     ENDIF.
     MODIFY SCREEN.
   ENDLOOP.
ENDIF.
ENDFORM.                    " modify_screen
*&      Form  GET_DETAILS
      Get the details
FORM GET_DETAILS .
  DATA: LD_COLOR(1) TYPE C.
  SELECT EBELN
         BUKRS
         AEDAT
    FROM EKKO
    INTO TABLE IT_EKKO
   WHERE EBELN IN S_EBELN.
  IF SY-SUBRC = 0.
    SORT IT_EKKO BY EBELN.
  ELSE.
    MESSAGE E000 WITH 'DATA NOT FOUND'.
  ENDIF.
  IF NOT IT_EKKO[] IS INITIAL.
    SELECT EBELN
           EBELP
           MATNR
           MENGE
           MEINS
           NETPR
           NETWR
      FROM EKPO
      INTO TABLE IT_EKPO
       FOR ALL ENTRIES IN IT_EKKO
     WHERE EBELN = IT_EKKO-EBELN.
    IF SY-SUBRC = 0.
      SORT IT_EKPO BY EBELN.
    ENDIF.
  ENDIF.
  LOOP AT IT_EKPO.
    IT_FINAL-EBELN = IT_EKPO-EBELN.
    IT_FINAL-EBELP = IT_EKPO-EBELP.
    IT_FINAL-MATNR = IT_EKPO-MATNR.
    IT_FINAL-MENGE = IT_EKPO-MENGE.
    IT_FINAL-MEINS = IT_EKPO-MEINS.
    IT_FINAL-NETPR = IT_EKPO-NETPR.
    IT_FINAL-NETWR = IT_EKPO-NETWR.
    ON CHANGE OF IT_FINAL-EBELN.
      LD_COLOR = 7.
      CONCATENATE 'C' LD_COLOR '10' INTO IT_FINAL-LINE_COLOR.
    ENDON.
    APPEND IT_FINAL.
    CLEAR IT_FINAL.
  ENDLOOP.
ENDFORM.                    " GET_DETAILS
*&      Form  GET_ALV
      text
FORM GET_ALV .
  PERFORM GENERATE_FIELDCAT.
  PERFORM GENERATE_LAYOUT.
  PERFORM GENERATE_EVENTS.
  PERFORM GENERATE_SORT.
  PERFORM ALV_GRID_DISPLAY.
ENDFORM.                    " GET_ALV
*&      Form  GENERATE_FIELDCAT
      Field catalog
FORM GENERATE_FIELDCAT .
  IF RB1 = 'X' OR RB2 = 'X'.
    WA_FIELDCAT-FIELDNAME = 'EBELN'.
    WA_FIELDCAT-COL_POS = '1'.
    WA_FIELDCAT-JUST = 'R'.
    WA_FIELDCAT-SELTEXT_L = 'PO Number'.
    WA_FIELDCAT-LOWERCASE = 'X'.
    WA_FIELDCAT-DO_SUM = 'X'.
    APPEND WA_FIELDCAT TO IT_FIELDCAT.
    WA_FIELDCAT-FIELDNAME = 'EBELP'.
    WA_FIELDCAT-COL_POS = '2'.
    WA_FIELDCAT-JUST = 'C'.
    WA_FIELDCAT-SELTEXT_L = 'Item Number'.
    WA_FIELDCAT-LOWERCASE = 'X'.
    WA_FIELDCAT-EDIT = 'X'.
    APPEND WA_FIELDCAT TO IT_FIELDCAT.
    WA_FIELDCAT-FIELDNAME = 'MATNR'.
    WA_FIELDCAT-COL_POS = '3'.
    WA_FIELDCAT-JUST = 'C'.
    WA_FIELDCAT-SELTEXT_L = 'Material Number'.
    WA_FIELDCAT-LOWERCASE = 'X'.
    APPEND WA_FIELDCAT TO IT_FIELDCAT.
    WA_FIELDCAT-FIELDNAME = 'MENGE'.
    WA_FIELDCAT-COL_POS = '4'.
    WA_FIELDCAT-JUST = 'C'.
    WA_FIELDCAT-SELTEXT_L = 'PO Quantity'.
    WA_FIELDCAT-LOWERCASE = 'X'.
    APPEND WA_FIELDCAT TO IT_FIELDCAT.
    WA_FIELDCAT-FIELDNAME = 'MEINS'.
    WA_FIELDCAT-COL_POS = '5'.
    WA_FIELDCAT-JUST = 'C'.
    WA_FIELDCAT-SELTEXT_L = 'Order unit'.
    WA_FIELDCAT-LOWERCASE = 'X'.
    APPEND WA_FIELDCAT TO IT_FIELDCAT.
    WA_FIELDCAT-FIELDNAME = 'NETPR'.
    WA_FIELDCAT-COL_POS = '6'.
    WA_FIELDCAT-JUST = 'C'.
    WA_FIELDCAT-SELTEXT_L = 'Net price'.
    WA_FIELDCAT-LOWERCASE = 'X'.
    APPEND WA_FIELDCAT TO IT_FIELDCAT.
    WA_FIELDCAT-FIELDNAME = 'NETWR'.
    WA_FIELDCAT-COL_POS = '7'.
    WA_FIELDCAT-JUST = 'C'.
    WA_FIELDCAT-SELTEXT_L = 'Net order value'.
    WA_FIELDCAT-LOWERCASE = 'X'.
    APPEND WA_FIELDCAT TO IT_FIELDCAT.
   wa_fieldcat-fieldname = 'CHK'.
   wa_fieldcat-col_pos = '8'.
   wa_fieldcat-just = 'C'.
   wa_fieldcat-seltext_l = 'Check Box'.
   wa_fieldcat-lowercase = 'X'.
   wa_fieldcat-checkbox = 'X'.
   wa_fieldcat-edit = 'X'.
   append wa_fieldcat to it_fieldcat.
  ELSE.
    CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
     EXPORTING
       I_PROGRAM_NAME               = V_REPID
       I_INTERNAL_TABNAME           = 'IT_EKKO'
    I_STRUCTURE_NAME             = I_STRUCTURE_NAME
    I_CLIENT_NEVER_DISPLAY       = 'X'
       I_INCLNAME                   = V_REPID
    I_BYPASSING_BUFFER           = I_BYPASSING_BUFFER
    I_BUFFER_ACTIVE              = I_BUFFER_ACTIVE
      CHANGING
        CT_FIELDCAT                  = IT_FIELDCAT
     EXCEPTIONS
       INCONSISTENT_INTERFACE       = 1
       PROGRAM_ERROR                = 2
       OTHERS                       = 3
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
     EXPORTING
       I_PROGRAM_NAME               = V_REPID
       I_INTERNAL_TABNAME           = 'IT_EKPO'
  I_STRUCTURE_NAME             = I_STRUCTURE_NAME
  I_CLIENT_NEVER_DISPLAY       = 'X'
       I_INCLNAME                   = V_REPID
  I_BYPASSING_BUFFER           = I_BYPASSING_BUFFER
  I_BUFFER_ACTIVE              = I_BUFFER_ACTIVE
      CHANGING
        CT_FIELDCAT                  = IT_FIELDCAT
     EXCEPTIONS
       INCONSISTENT_INTERFACE       = 1
       PROGRAM_ERROR                = 2
       OTHERS                       = 3
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
  ENDIF.
ENDFORM.                    " GENERATE_FIELDCAT
*&      Form  GENERATE_EVENTS
      Generate Events
FORM GENERATE_EVENTS .
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    IMPORTING
      ET_EVENTS       = IT_EVENT
    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.
  IF NOT IT_EVENT[] IS INITIAL.
    READ TABLE IT_EVENT INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
    IF SY-SUBRC = 0.
      WA_EVENT-FORM = 'TOP_OF_PAGE'.
      MODIFY IT_EVENT FROM WA_EVENT INDEX SY-TABIX.
    ENDIF.
  ENDIF.
ENDFORM.                    " GENERATE_EVENTS
*&      Form  TOP_OF_PAGE
      TOP_OF_PAGE
FORM TOP_OF_PAGE.
  DATA : V_CONCATE(50) TYPE C.
  DATA : V_SPACE(10) TYPE C.
  CONCATENATE 'VIKRANTH' 'RAJESH' INTO V_CONCATE.
  WA_COMMENT-TYP = 'S'.
  WA_COMMENT-KEY = 'USER :'.
  WA_COMMENT-INFO = V_CONCATE.
  APPEND WA_COMMENT TO IT_COMMENT.
  WA_COMMENT-TYP = 'S'.
  WA_COMMENT-KEY = 'DATE:'.
  WA_COMMENT-INFO = SY-DATUM.
  APPEND WA_COMMENT TO IT_COMMENT.
  WA_COMMENT-TYP = 'S'.
  WA_COMMENT-KEY = 'TIME:'.
  WA_COMMENT-INFO = SY-TIMLO.
  APPEND WA_COMMENT TO IT_COMMENT.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = IT_COMMENT.
  CLEAR IT_COMMENT.
ENDFORM.                    "TOP_OF_PAGE
*&      Form  ALV_GRID_DISPLAY
      Grid display
FORM ALV_GRID_DISPLAY .
  IF RB1 = 'X'.
    PERFORM GRID_DISPLAY.
  ELSEIF RB2 = 'X'.
    PERFORM LIST_DISPLAY.
  ELSE.
    PERFORM HIERSEQ_DISPLAY.
  ENDIF.
ENDFORM.                    " ALV_GRID_DISPLAY
*&      Form  GENERATE_LAYOUT
      LAYOUT
FORM GENERATE_LAYOUT .
  WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.           "OPTIMIZING FIELD WIDTH
  WA_LAYOUT-ZEBRA = 'X'.                       "PUTTING ZEBRA COLORS
  WA_LAYOUT-TOTALS_TEXT = 'Total'.
  WA_LAYOUT-SUBTOTALS_TEXT = 'SUB TOTAL'.
  WA_LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.
ENDFORM.                    " GENERATE_LAYOUT
*&      Form  GENERATE_SORT
      SORT
FORM GENERATE_SORT .
  WA_SORT-FIELDNAME = 'EBELN'.
  WA_SORT-SPOS = '1'.
  WA_SORT-UP = 'X'.
  WA_SORT-SUBTOT = 'X'.
  APPEND WA_SORT TO IT_SORT.
ENDFORM.                    " GENERATE_SORT
*&      Form  GRID_DISPLAY
      GRID DISPLAY
FORM GRID_DISPLAY .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
  I_INTERFACE_CHECK                 = ' '
  I_BYPASSING_BUFFER                = ' '
  I_BUFFER_ACTIVE                   = ' '
   I_CALLBACK_PROGRAM                = V_REPID
  I_CALLBACK_PF_STATUS_SET          = ' '
   I_CALLBACK_USER_COMMAND           = 'IT_USER_COMMAND'
  I_CALLBACK_TOP_OF_PAGE            = ' '
  I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
  I_CALLBACK_HTML_END_OF_LIST       = ' '
  I_STRUCTURE_NAME                  =
  I_BACKGROUND_ID                   = ' '
   I_GRID_TITLE                      = 'Purchase Order Details'
  I_GRID_SETTINGS                   = I_GRID_SETTINGS
   IS_LAYOUT                         = WA_LAYOUT
   IT_FIELDCAT                       = IT_FIELDCAT
  IT_EXCLUDING                      = IT_EXCLUDING
  IT_SPECIAL_GROUPS                 = IT_SPECIAL_GROUPS
   IT_SORT                           = IT_SORT
  IT_FILTER                         = IT_FILTER
  IS_SEL_HIDE                       = IS_SEL_HIDE
  I_DEFAULT                         = 'X'
  I_SAVE                            = ' '
  IS_VARIANT                        = IS_VARIANT
   IT_EVENTS                         = IT_EVENT
  IT_EVENT_EXIT                     = IT_EVENT_EXIT
  IS_PRINT                          = IS_PRINT
  IS_REPREP_ID                      = IS_REPREP_ID
  I_SCREEN_START_COLUMN             = 0
  I_SCREEN_START_LINE               = 0
  I_SCREEN_END_COLUMN               = 0
  I_SCREEN_END_LINE                 = 0
  I_HTML_HEIGHT_TOP                 = 0
  I_HTML_HEIGHT_END                 = 0
  IT_ALV_GRAPHICS                   = IT_ALV_GRAPHICS
  IT_HYPERLINK                      = IT_HYPERLINK
  IT_ADD_FIELDCAT                   = IT_ADD_FIELDCAT
  IT_EXCEPT_QINFO                   = IT_EXCEPT_QINFO
  IR_SALV_FULLSCREEN_ADAPTER        = IR_SALV_FULLSCREEN_ADAPTER
IMPORTING
  E_EXIT_CAUSED_BY_CALLER           = E_EXIT_CAUSED_BY_CALLER
  ES_EXIT_CAUSED_BY_USER            = 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.                    " GRID_DISPLAY
*&      Form  LIST_DISPLAY
      LIST DISPLAY
FORM LIST_DISPLAY .
  CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
    I_INTERFACE_CHECK              = ' '
    I_BYPASSING_BUFFER             = I_BYPASSING_BUFFER
    I_BUFFER_ACTIVE                = ' '
     I_CALLBACK_PROGRAM             = V_REPID
    I_CALLBACK_PF_STATUS_SET       = ' '
     I_CALLBACK_USER_COMMAND        = 'IT_USER_COMMAND'
    I_STRUCTURE_NAME               = I_STRUCTURE_NAME
     IS_LAYOUT                      = WA_LAYOUT
     IT_FIELDCAT                    = IT_FIELDCAT
    IT_EXCLUDING                   = IT_EXCLUDING
    IT_SPECIAL_GROUPS              = IT_SPECIAL_GROUPS
     IT_SORT                        = IT_SORT
    IT_FILTER                      = IT_FILTER
    IS_SEL_HIDE                    = IS_SEL_HIDE
    I_DEFAULT                      = 'X'
    I_SAVE                         = ' '
    IS_VARIANT                     = IS_VARIANT
     IT_EVENTS                      = IT_EVENT
    IT_EVENT_EXIT                  = IT_EVENT_EXIT
    IS_PRINT                       = IS_PRINT
    IS_REPREP_ID                   = IS_REPREP_ID
    I_SCREEN_START_COLUMN          = 0
    I_SCREEN_START_LINE            = 0
    I_SCREEN_END_COLUMN            = 0
    I_SCREEN_END_LINE              = 0
    IR_SALV_LIST_ADAPTER           = IR_SALV_LIST_ADAPTER
    IT_EXCEPT_QINFO                = IT_EXCEPT_QINFO
    I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE
  IMPORTING
    E_EXIT_CAUSED_BY_CALLER        = E_EXIT_CAUSED_BY_CALLER
    ES_EXIT_CAUSED_BY_USER         = 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.                    " LIST_DISPLAY
*&      Form  HIERSEQ_DISPLAY
      HIERSEQ DISPLAY
FORM HIERSEQ_DISPLAY .
  IT_KEYINFO-HEADER01 = 'EBELN'.
  IT_KEYINFO-ITEM01 = 'EBELN'.
  CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'
    EXPORTING
  I_INTERFACE_CHECK              = ' '
     I_CALLBACK_PROGRAM             = V_REPID
  I_CALLBACK_PF_STATUS_SET       = ' '
  I_CALLBACK_USER_COMMAND        = ' '
     IS_LAYOUT                      = WA_LAYOUT
     IT_FIELDCAT                    = IT_FIELDCAT
  IT_EXCLUDING                   = IT_EXCLUDING
  IT_SPECIAL_GROUPS              = IT_SPECIAL_GROUPS
     IT_SORT                        = IT_SORT
  IT_FILTER                      = IT_FILTER
  IS_SEL_HIDE                    = IS_SEL_HIDE
  I_SCREEN_START_COLUMN          = 0
  I_SCREEN_START_LINE            = 0
  I_SCREEN_END_COLUMN            = 0
  I_SCREEN_END_LINE              = 0
  I_DEFAULT                      = 'X'
  I_SAVE                         = ' '
  IS_VARIANT                     = IS_VARIANT
     IT_EVENTS                      = IT_EVENT
  IT_EVENT_EXIT                  = IT_EVENT_EXIT
      I_TABNAME_HEADER               = 'IT_EKKO'
      I_TABNAME_ITEM                 = 'IT_EKPO'
  I_STRUCTURE_NAME_HEADER        = I_STRUCTURE_NAME_HEADER
  I_STRUCTURE_NAME_ITEM          = I_STRUCTURE_NAME_ITEM
      IS_KEYINFO                     = IT_KEYINFO
  IS_PRINT                       = IS_PRINT
  IS_REPREP_ID                   = IS_REPREP_ID
  I_BYPASSING_BUFFER             = I_BYPASSING_BUFFER
  I_BUFFER_ACTIVE                = I_BUFFER_ACTIVE
  IR_SALV_HIERSEQ_ADAPTER        = IR_SALV_HIERSEQ_ADAPTER
  IT_EXCEPT_QINFO                = IT_EXCEPT_QINFO
  I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE
IMPORTING
  E_EXIT_CAUSED_BY_CALLER        = E_EXIT_CAUSED_BY_CALLER
  ES_EXIT_CAUSED_BY_USER         = ES_EXIT_CAUSED_BY_USER
    TABLES
      T_OUTTAB_HEADER                = IT_EKKO
      T_OUTTAB_ITEM                  = IT_EKPO
   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.                    " HIERSEQ_DISPLAY
*& Form IT_USER_COMMAND
text
FORM IT_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
                           RS_SELFIELD TYPE SLIS_SELFIELD.
  FREE IT_FIELDCAT.
  CASE R_UCOMM.
    WHEN '&IC1'.
      READ TABLE IT_FINAL INDEX RS_SELFIELD-TABINDEX.
      PERFORM GET_EKBE.
      PERFORM GET_FIELD_CATALOG.
      PERFORM GET_LIST.
  ENDCASE.
ENDFORM.                               "IT_USER_COMMAND
*&      Form  GET_EKBE
      text
FORM GET_EKBE .
  IF NOT IT_FINAL[] IS INITIAL.
    SELECT EBELN
           EBELP
           BELNR
           MENGE
           MATNR
      INTO TABLE IT_EKBE
      FROM EKBE
       FOR ALL ENTRIES IN IT_FINAL
     WHERE EBELN = IT_FINAL-EBELN
       AND EBELP = IT_FINAL-EBELP.
  ENDIF.
ENDFORM.                    " GET_EKBE
*&      Form  GET_FIELD_CATALOG
      text
FORM GET_FIELD_CATALOG .
  WA_FIELDCAT-FIELDNAME = 'EBELN'.
  WA_FIELDCAT-COL_POS = '1'.
  WA_FIELDCAT-JUST = 'R'.
  WA_FIELDCAT-SELTEXT_L = 'PO Number'.
  WA_FIELDCAT-LOWERCASE = 'X'.
  WA_FIELDCAT-DO_SUM = 'X'.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  WA_FIELDCAT-FIELDNAME = 'EBELP'.
  WA_FIELDCAT-COL_POS = '2'.
  WA_FIELDCAT-JUST = 'R'.
  WA_FIELDCAT-SELTEXT_L = 'Item Number'.
  WA_FIELDCAT-LOWERCASE = 'X'.
  WA_FIELDCAT-DO_SUM = 'X'.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  WA_FIELDCAT-FIELDNAME = 'BELNR'.
  WA_FIELDCAT-COL_POS = '3'.
  WA_FIELDCAT-JUST = 'R'.
  WA_FIELDCAT-SELTEXT_L = 'Material Document'.
  WA_FIELDCAT-LOWERCASE = 'X'.
  WA_FIELDCAT-DO_SUM = 'X'.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  WA_FIELDCAT-FIELDNAME = 'MENGE'.
  WA_FIELDCAT-COL_POS = '4'.
  WA_FIELDCAT-JUST = 'R'.
  WA_FIELDCAT-SELTEXT_L = 'Quantity'.
  WA_FIELDCAT-LOWERCASE = 'X'.
  WA_FIELDCAT-DO_SUM = 'X'.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  WA_FIELDCAT-FIELDNAME = 'MATNR'.
  WA_FIELDCAT-COL_POS = '5'.
  WA_FIELDCAT-JUST = 'R'.
  WA_FIELDCAT-SELTEXT_L = 'Material Number'.
  WA_FIELDCAT-LOWERCASE = 'X'.
  WA_FIELDCAT-DO_SUM = 'X'.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
ENDFORM.                    " GET_FIELD_CATALOG
*&      Form  get_list
      text
FORM GET_LIST .
  IF RB1 = 'X'.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
    I_INTERFACE_CHECK                 = ' '
    I_BYPASSING_BUFFER                = ' '
    I_BUFFER_ACTIVE                   = ' '
       I_CALLBACK_PROGRAM                = V_REPID
    I_CALLBACK_PF_STATUS_SET          = ' '
    I_CALLBACK_USER_COMMAND           = ' '
    I_CALLBACK_TOP_OF_PAGE            = ' '
    I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
    I_CALLBACK_HTML_END_OF_LIST       = ' '
    I_STRUCTURE_NAME                  = I_STRUCTURE_NAME
    I_BACKGROUND_ID                   = ' '
       I_GRID_TITLE                      = 'SECONDARY LIST'
    I_GRID_SETTINGS                   = I_GRID_SETTINGS
    IS_LAYOUT                         = IS_LAYOUT
       IT_FIELDCAT                       = IT_FIELDCAT
    IT_EXCLUDING                      = IT_EXCLUDING
    IT_SPECIAL_GROUPS                 = IT_SPECIAL_GROUPS
    IT_SORT                           = IT_SORT
    IT_FILTER                         = IT_FILTER
    IS_SEL_HIDE                       = IS_SEL_HIDE
    I_DEFAULT                         = 'X'
    I_SAVE                            = ' '
    IS_VARIANT                        = IS_VARIANT
    IT_EVENTS                         = IT_EVENTS
    IT_EVENT_EXIT                     = IT_EVENT_EXIT
    IS_PRINT                          = IS_PRINT
    IS_REPREP_ID                      = IS_REPREP_ID
    I_SCREEN_START_COLUMN             = 0
    I_SCREEN_START_LINE               = 0
    I_SCREEN_END_COLUMN               = 0
    I_SCREEN_END_LINE                 = 0
    I_HTML_HEIGHT_TOP                 = 0
    I_HTML_HEIGHT_END                 = 0
    IT_ALV_GRAPHICS                   = IT_ALV_GRAPHICS
    IT_HYPERLINK                      = IT_HYPERLINK
    IT_ADD_FIELDCAT                   = IT_ADD_FIELDCAT
    IT_EXCEPT_QINFO                   = IT_EXCEPT_QINFO
    IR_SALV_FULLSCREEN_ADAPTER        = IR_SALV_FULLSCREEN_ADAPTER
  IMPORTING
    E_EXIT_CAUSED_BY_CALLER           = E_EXIT_CAUSED_BY_CALLER
    ES_EXIT_CAUSED_BY_USER            = ES_EXIT_CAUSED_BY_USER
      TABLES
        T_OUTTAB                          = IT_EKBE
     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.
  ENDIF.
  IF RB2 = 'X'.
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
     EXPORTING
  I_INTERFACE_CHECK              = ' '
  I_BYPASSING_BUFFER             = I_BYPASSING_BUFFER
  I_BUFFER_ACTIVE                = ' '
       I_CALLBACK_PROGRAM             = V_REPID
  I_CALLBACK_PF_STATUS_SET       = ' '
  I_CALLBACK_USER_COMMAND        = ' '
  I_STRUCTURE_NAME               = I_STRUCTURE_NAME
  IS_LAYOUT                      = IS_LAYOUT
       IT_FIELDCAT                    = IT_FIELDCAT
  IT_EXCLUDING                   = IT_EXCLUDING
  IT_SPECIAL_GROUPS              = IT_SPECIAL_GROUPS
  IT_SORT                        = IT_SORT
  IT_FILTER                      = IT_FILTER
  IS_SEL_HIDE                    = IS_SEL_HIDE
  I_DEFAULT                      = 'X'
  I_SAVE                         = ' '
  IS_VARIANT                     = IS_VARIANT
  IT_EVENTS                      = IT_EVENTS
  IT_EVENT_EXIT                  = IT_EVENT_EXIT
  IS_PRINT                       = IS_PRINT
  IS_REPREP_ID                   = IS_REPREP_ID
  I_SCREEN_START_COLUMN          = 0
  I_SCREEN_START_LINE            = 0
  I_SCREEN_END_COLUMN            = 0
  I_SCREEN_END_LINE              = 0
  IR_SALV_LIST_ADAPTER           = IR_SALV_LIST_ADAPTER
  IT_EXCEPT_QINFO                = IT_EXCEPT_QINFO
  I_SUPPRESS_EMPTY_DATA          = ABAP_FALSE
IMPORTING
  E_EXIT_CAUSED_BY_CALLER        = E_EXIT_CAUSED_BY_CALLER
  ES_EXIT_CAUSED_BY_USER         = ES_EXIT_CAUSED_BY_USER
      TABLES
        T_OUTTAB                       = IT_EKBE
     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.
  ENDIF.
ENDFORM.                    " get_list
Thanks
Vikranth Khimavath