ALV Object : how to manage two grid in one screen ?

Question

Hello,
I would like to print in a same screen two ALV grid with different command for each.
The two grid will be linked.
One is the header of the datas and the second represent the items of the selected data in the the header grid.
Is it possible to do this in ALV object or only in transaction with "control tables"?
Do you have any example for me, please ?
Thanks in advance for help,
Best regards,
Bertrand

Answer 1

Hi,
go through this code,
REPORT  Z7RNP_ALV_SO_BLOCK  MESSAGE-ID Z7NEW                     .
TABLE DECLARATION
TABLES: VBAK ,             "Sales Document: Header Data
        VBAP ,             "Sales Document: Item Data
        MAKT ,             "Material Descriptions
        LIPS .             "SD document: Delivery: Item data
DECLARATION OF TYPE-POOL
*THIS TYPE-POOL CONTAINS THE EVENTS,
TYPE-POOLS : SLIS.
DECLARATION OF EVENTS
DECLARATION OF FIELD LAYOUT
DATA: I_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: T_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: T_EVENT TYPE SLIS_T_EVENT.
DATA: X_EVENT TYPE SLIS_ALV_EVENT.
DECLARATION OF LIST HEADER
DATA: I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DECLARATION OF FIELD CATALOG FOR SCREEN 1
DATA: I_FLDCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
DECLARATION OF FIELD CATALOG FOR SCREEN 2
DATA: I_FLDCAT2 TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE.
SORTING OF OUTPUT
DATA: I_SORT TYPE SLIS_T_SORTINFO_ALV.
DATA: T_SORT TYPE SLIS_T_SORTINFO_ALV.
*DATA DECLARATION
DATA: V_AUART TYPE TVAK-AUART,
      V_VKORG TYPE TVKO-VKORG,
      V_KUNNR TYPE KNA1-KUNNR,
      V_MATNR TYPE MARA-MATNR ,
      V_SPART TYPE TVTA-SPART .
DATA: V_REPID LIKE SY-REPID .
TYPES: BEGIN OF IT_SO ,
       VBELN TYPE VBELN_VA ,          "SALES ORDER NO.
       AUART TYPE AUART ,             "SALES DOC. TYPE
       VKORG TYPE VKORG ,             "SALES ORG.
       SPART TYPE SPART ,             "DIVISION
       KUNNR TYPE KUNAG ,             "SOLD TO PARTY
       POSNR TYPE POSNR_VA ,          "SALES DOC. ITEM
       MATNR TYPE MATNR ,             "MATERIAL NO
       MAKTX TYPE MAKTX ,             "DESCRIPTION
       KWMENG TYPE KWMENG ,           "QUANTITY
       VRKME TYPE VRKME ,             "SALES UNIT
       END OF IT_SO .
TYPES: BEGIN OF IT_DEL ,
       VBELN TYPE VBELN_VL ,         "SALES ORDER NO.
       POSNR TYPE POSNR_VL ,         "SALES DOC. ITEM
       MATNR TYPE MATNR ,            "MATERIAL NO
       WERKS TYPE WERKS_D ,          "PLANT
       LGORT TYPE LGORT_D ,          "STORAGE LOCATION
       CHARG TYPE CHARG_D ,          "BATCH NO.
       LFIMG TYPE LFIMG ,            "ACTUAL DELIVERY QTY.
       VRKME TYPE VRKME ,            "SALES UNIT
       END OF IT_DEL .
TYPES: BEGIN OF TYPE_VBFA ,
       VBELV TYPE VBELN_VON ,
       "Preceding sales and distribution document
       POSNV TYPE POSNR_VON ,      "Preceding item of an SD document
       VBELN TYPE VBELN_NACH ,
       "Subsequent sales and distribution document
       POSNN TYPE POSNR_NACH,
       "Document category of subsequent document
       VBTYP_N TYPE VBTYP_N ,
      END OF TYPE_VBFA .
DATA: IT_SO1 TYPE STANDARD TABLE OF IT_SO ,
      IT_DEL1 TYPE STANDARD TABLE OF IT_DEL ,
      IT_VBFA TYPE STANDARD TABLE OF TYPE_VBFA,
      IT_DEL_FUL TYPE STANDARD TABLE OF IT_DEL.
DATA: WA_SO TYPE IT_SO ,
      WA_DEL TYPE IT_DEL ,
      WA_VBFA TYPE TYPE_VBFA,
      wa_IT_DEL_FUL TYPE IT_DEL.
*SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME TITLE TEXT-004 .
SELECT-OPTIONS: S_VBELN FOR VBAK-VBELN ,
                S_AUART FOR V_AUART ,
                S_VKORG FOR V_VKORG ,
                S_SPART FOR V_SPART ,
                S_KUNNR FOR V_KUNNR ,
                S_MATNR FOR V_MATNR .
SELECTION-SCREEN END OF BLOCK BLK1 .
*AT SELECTION SCREEN
AT SELECTION-SCREEN.
  SELECT SINGLE VBELN
                 FROM VBAK INTO VBAK-VBELN
                 WHERE VBELN IN S_VBELN.
  IF SY-SUBRC <> 0.
    MESSAGE E202.
  ENDIF.
*START OF SELECTION
INITIALIZATION.
  V_REPID = SY-REPID.
START-OF-SELECTION .
  PERFORM DATA_SELECT.
FOR BLOCK 1
  PERFORM INITIALIZE_BLOCK .
  PERFORM FLD_CAT USING I_FLDCAT[] .
  PERFORM T_LAYOUT USING I_LAYOUT .
  PERFORM I_SORT USING I_SORT .
  PERFORM EVENT USING T_EVENT .
  PERFORM CALL_ALV.
FOR BLOCK 2
  PERFORM FLD_CAT2 USING I_FLDCAT2[] .
  PERFORM I_LAYOUT USING I_LAYOUT .
PERFORM T_SORT USING I_SORT .
  PERFORM EVENT1 USING T_EVENT .
  PERFORM CALL_ALV1.
  PERFORM BLOCK-DISPLAY .
*&      Form  DATA_SELECT
      text
-->  p1        text
<--  p2        text
FORM DATA_SELECT .
  REFRESH: IT_VBFA, IT_SO1, IT_DEL1, IT_DEL_FUL.
  SELECT
        A~VBELN
        A~AUART
        A~VKORG
        A~SPART
        A~KUNNR
        B~POSNR
        B~MATNR
        C~MAKTX
        B~KWMENG
        B~VRKME
        INTO TABLE IT_SO1 FROM VBAK AS A
              JOIN VBAP AS B ON BVBELN = AVBELN
              JOIN MAKT AS C ON CMATNR = BMATNR
              AND C~SPRAS = SY-LANGU
              WHERE A~VBELN IN S_VBELN .
  IF SY-SUBRC = 0.
    SELECT VBELV POSNV VBELN POSNN VBTYP_N INTO TABLE IT_VBFA
           FROM VBFA
           FOR ALL ENTRIES IN IT_SO1
           WHERE VBELV = IT_SO1-VBELN
           AND   POSNN = IT_SO1-POSNR
           AND VBTYP_N ='J' .
   IF SY-SUBRC = 0.
      SELECT VBELN POSNR MATNR WERKS LGORT CHARG LFIMG VRKME
             FROM LIPS INTO TABLE IT_DEL_FUL
             FOR ALL ENTRIES IN IT_VBFA
             WHERE VBELN = IT_VBFA-VBELN
             AND   POSNR = IT_VBFA-POSNN.
    ENDIF.
    ENDIF .
    V_REPID = SY-REPID .
ENDFORM.                    " DATA_SELECT
*&      Form  INITIALIZE_BLOCK
      text
-->  p1        text
<--  p2        text
FORM INITIALIZE_BLOCK .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
  EXPORTING
    I_CALLBACK_PROGRAM             = V_REPID .
  I_CALLBACK_PF_STATUS_SET       = ' '
  I_CALLBACK_USER_COMMAND        = ' '
  IT_EXCLUDING                   =
ENDFORM.                    " INITIALIZE_BLOCK
*&      Form  FLD_CAT
      text
     -->P_I_FLDCAT[]  text
FORM FLD_CAT  USING    P_I_FLDCAT TYPE SLIS_T_FIELDCAT_ALV.
  CLEAR I_FLDCAT.
  I_FLDCAT-FIELDNAME   = 'VBELN'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT-TABNAME     = 'IT_SO1'.
  I_FLDCAT-SELTEXT_M   = 'SALES ORDER NO.'.
  I_FLDCAT-COL_POS     = 1.        " POSITION OF THE COLUMN.
  I_FLDCAT-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT-KEY         = 'X'.      " SO THAT THIS FIELD IS NOT
  "SCROLLABLE AND HIDDABLE.
  I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT.
  CLEAR I_FLDCAT.
  I_FLDCAT-FIELDNAME   = 'AUART'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT-TABNAME     = 'IT_SO1'.
  I_FLDCAT-SELTEXT_M   = 'SALES DOC. TYPE'.
  I_FLDCAT-COL_POS     = 2.        " POSITION OF THE COLUMN.
  I_FLDCAT-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT-KEY         = 'X'.
  " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT.
  CLEAR I_FLDCAT.
  I_FLDCAT-FIELDNAME   = 'VKORG'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT-TABNAME     = 'IT_SO1'.
  I_FLDCAT-SELTEXT_M   = 'SALES ORG.'.
  I_FLDCAT-COL_POS     = 3.        " POSITION OF THE COLUMN.
  I_FLDCAT-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT-KEY         = 'X'.
  " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT.
  CLEAR I_FLDCAT.
  I_FLDCAT-FIELDNAME   = 'SPART'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT-TABNAME     = 'IT_SO1'.
  I_FLDCAT-SELTEXT_M   = 'DIVISION'.
  I_FLDCAT-COL_POS     = 4.        " POSITION OF THE COLUMN.
  I_FLDCAT-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT-KEY         = 'X'.
  " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT.
  CLEAR I_FLDCAT.
  I_FLDCAT-FIELDNAME   = 'KUNNR'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT-TABNAME     = 'IT_SO1'.
  I_FLDCAT-SELTEXT_M   = 'SOLD TO PARTY'.
  I_FLDCAT-COL_POS     = 5.        " POSITION OF THE COLUMN.
  I_FLDCAT-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT-KEY         = 'X'.
  " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT.
  CLEAR I_FLDCAT.
  I_FLDCAT-FIELDNAME   = 'POSNR'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT-TABNAME     = 'IT_SO1'.
  I_FLDCAT-SELTEXT_M   = 'SALES DOC. ITEM'.
  I_FLDCAT-COL_POS     = 6.        " POSITION OF THE COLUMN.
  I_FLDCAT-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT-KEY         = 'X'.
  " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT.
  CLEAR I_FLDCAT.
  I_FLDCAT-FIELDNAME   = 'MATNR'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT-TABNAME     = 'IT_SO1'.
  I_FLDCAT-SELTEXT_M   = 'MATERIAL NO.'.
  I_FLDCAT-COL_POS     = 7.        " POSITION OF THE COLUMN.
  I_FLDCAT-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT-KEY         = 'X'.
  " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT.
  CLEAR I_FLDCAT.
  I_FLDCAT-FIELDNAME   = 'MAKTX'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT-TABNAME     = 'IT_SO1'.
  I_FLDCAT-SELTEXT_M   = 'DESCRIPTION'.
  I_FLDCAT-COL_POS     = 8.        " POSITION OF THE COLUMN.
  I_FLDCAT-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT-KEY         = 'X'.
  " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT.
  CLEAR I_FLDCAT.
  I_FLDCAT-FIELDNAME   = 'KWMENG'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT-TABNAME     = 'IT_SO1'.
  I_FLDCAT-SELTEXT_M   = 'QUANTITY'.
  I_FLDCAT-COL_POS     = 9.        " POSITION OF THE COLUMN.
  I_FLDCAT-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT-KEY         = 'X'.
  " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT.
  CLEAR I_FLDCAT.
  I_FLDCAT-FIELDNAME   = 'VRKME'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT-TABNAME     = 'IT_SO1'.
  I_FLDCAT-SELTEXT_M   = 'SALES UNIT'.
  I_FLDCAT-COL_POS     = 10.        " POSITION OF THE COLUMN.
  I_FLDCAT-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT-KEY         = 'X'.
  " SO THAT THIS FIELD IS NOT SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT.
ENDFORM.                    " FLD_CAT
*&      Form  T_LAYOUT
      text
     -->P_I_LAYOUT  text
FORM T_LAYOUT  USING    P_I_LAYOUT TYPE SLIS_LAYOUT_ALV .
P_I_LAYOUT-ZEBRA = 'X'.
P_I_LAYOUT-KEY_HOTSPOT = 'X'.
P_I_LAYOUT-F2CODE            = 'DISP'.
ENDFORM.                    " T_LAYOUT
*&      Form  I_SORT
      text
     -->P_I_SORT  text
FORM I_SORT  USING    P_I_SORT TYPE SLIS_T_SORTINFO_ALV .
  DATA: I_SORT TYPE SLIS_SORTINFO_ALV .
  REFRESH P_I_SORT .
  CLEAR I_SORT.
  I_sort-spos = 1.
  I_sort-fieldname = 'VBELN'.
  I_sort-up = 'X'.
  I_sort-subtot = 'X'.
  I_sort-group = '*'.
  APPEND I_SORT TO P_I_SORT.
ENDFORM.                    " I_SORT
*&      Form  CALL_ALV
      text
-->  p1        text
<--  p2        text
FORM   CALL_ALV .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
  EXPORTING
    IS_LAYOUT                        = T_LAYOUT
    IT_FIELDCAT                      = I_FLDCAT[]
    I_TABNAME                        = 'IT_SO1'
    IT_EVENTS                        = T_EVENT
   IT_SORT                          = I_SORT
   I_TEXT                           = TEXT-202
  TABLES
    T_OUTTAB                         = IT_SO1
EXCEPTIONS
  PROGRAM_ERROR                    = 1
  MAXIMUM_OF_APPENDS_REACHED       = 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.
REFRESH T_EVENT .
CLEAR T_EVENT .
ENDFORM.                    " CALL_ALV
*&      Form  FLD_CAT2
      text
     -->P_I_FLDCAT2[]  text
FORM FLD_CAT2  USING    P_I_FLDCAT2 TYPE SLIS_T_FIELDCAT_ALV.
  CLEAR I_FLDCAT2.
  I_FLDCAT2-FIELDNAME   = 'VBELN'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT2-SELTEXT_M   = 'DELIVERY NO.'.
  I_FLDCAT2-COL_POS     = 1.        " POSITION OF THE COLUMN.
  I_FLDCAT2-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT2-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT2-KEY         = 'X'.      " SO THAT THIS FIELD IS NOT
  "SCROLLABLE AND HIDDABLE.
  I_FLDCAT2-HOTSPOT     = 'X'.
  APPEND I_FLDCAT2.
  CLEAR I_FLDCAT2.
  I_FLDCAT2-FIELDNAME   = 'POSNR'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT2-SELTEXT_M   = 'DELIVERY ITEM'.
  I_FLDCAT2-COL_POS     = 2.        " POSITION OF THE COLUMN.
  I_FLDCAT2-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT2-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT2-KEY         = 'X'.      " SO THAT THIS FIELD IS NOT
  "SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT2.
  CLEAR I_FLDCAT2.
  I_FLDCAT2-FIELDNAME   = 'MATNR'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT2-SELTEXT_M   = 'MATERIAL NO.'.
  I_FLDCAT2-COL_POS     = 3.        " POSITION OF THE COLUMN.
  I_FLDCAT2-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT2-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT2-KEY         = 'X'.      " SO THAT THIS FIELD IS NOT
  "SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT2.
  CLEAR I_FLDCAT2.
  I_FLDCAT2-FIELDNAME   = 'WERKS'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT2-SELTEXT_M   = 'PLANT.'.
  I_FLDCAT2-COL_POS     = 4.        " POSITION OF THE COLUMN.
  I_FLDCAT2-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT2-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT2-KEY         = 'X'.      " SO THAT THIS FIELD IS NOT
  "SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT2.
  CLEAR I_FLDCAT2.
  I_FLDCAT2-FIELDNAME   = 'LGORT'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT2-SELTEXT_M   = 'ST. LOCATION'.
  I_FLDCAT2-COL_POS     = 5.        " POSITION OF THE COLUMN.
  I_FLDCAT2-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT2-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT2-KEY         = 'X'.      " SO THAT THIS FIELD IS NOT
  "SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT2.
  CLEAR I_FLDCAT2.
  I_FLDCAT2-FIELDNAME   = 'CHARG'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT2-SELTEXT_M   = 'BATCH NO.'.
  I_FLDCAT2-COL_POS     = 6.        " POSITION OF THE COLUMN.
  I_FLDCAT2-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT2-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT2-KEY         = 'X'.      " SO THAT THIS FIELD IS NOT
  "SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT2.
  CLEAR I_FLDCAT2.
  I_FLDCAT2-FIELDNAME   = 'LFIMG'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT2-SELTEXT_M   = 'ACT. DEL. QTY.'.
  I_FLDCAT2-COL_POS     = 7.        " POSITION OF THE COLUMN.
  I_FLDCAT2-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT2-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT2-KEY         = 'X'.      " SO THAT THIS FIELD IS NOT
  "SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT2.
  CLEAR I_FLDCAT2.
  I_FLDCAT2-FIELDNAME   = 'VRKME'. "FIELD FOR WHICH CATALOG ID FILLED
  I_FLDCAT2-SELTEXT_M   = 'SALES UNIT.'.
  I_FLDCAT2-COL_POS     = 8.        " POSITION OF THE COLUMN.
  I_FLDCAT2-OUTPUTLEN   = 20.       " SET THE OUTPUT LENGTH.
  I_FLDCAT2-EMPHASIZE   = 'X'.      " COLOR OF THIS COLUMN.
  I_FLDCAT2-KEY         = 'X'.      " SO THAT THIS FIELD IS NOT
  "SCROLLABLE AND HIDDABLE.
I_FLDCAT-HOTSPOT     = 'X'.
  APPEND I_FLDCAT2.
ENDFORM.                    " FLD_CAT2
*&      Form  I_LAYOUT
      text
     -->P_I_LAYOUT  text
FORM I_LAYOUT  USING    P_I_LAYOUT TYPE SLIS_LAYOUT_ALV .
P_I_LAYOUT-ZEBRA = 'X'.
P_I_LAYOUT-KEY_HOTSPOT = 'X'.
P_I_LAYOUT-F2CODE            = 'DISP'.
ENDFORM.                    " I_LAYOUT
*&      Form  CALL_ALV1
      text
-->  p1        text
<--  p2        text
FORM CALL_ALV1 .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
  EXPORTING
    IS_LAYOUT                        = I_LAYOUT
    IT_FIELDCAT                      = I_FLDCAT2[]
    I_TABNAME                        = 'IT_DEL_FUL'
    IT_EVENTS                        = T_EVENT
  IT_SORT                          =
  I_TEXT                           = ' '
  TABLES
    T_OUTTAB                         = IT_DEL_FUL
EXCEPTIONS
  PROGRAM_ERROR                    = 1
  MAXIMUM_OF_APPENDS_REACHED       = 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.
ENDFORM.                    " CALL_ALV1
*&      Form  BLOCK-DISPLAY
      text
-->  p1        text
<--  p2        text
FORM BLOCK-DISPLAY .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
EXPORTING
  I_INTERFACE_CHECK             = ' '
  IS_PRINT                      =
  I_SCREEN_START_COLUMN         = 0
  I_SCREEN_START_LINE           = 0
  I_SCREEN_END_COLUMN           = 0
  I_SCREEN_END_LINE             = 0
IMPORTING
  E_EXIT_CAUSED_BY_CALLER       =
  ES_EXIT_CAUSED_BY_USER        =
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.                    " BLOCK-DISPLAY
*&      Form  EVENT
      text
     -->P_T_EVENT  text
FORM EVENT  USING    P_T_EVENT type slis_t_event.
x_event-form = 'TOP_OF_LIST1'.
x_event-name = slis_ev_top_of_list.
append x_event to p_t_event.
clear x_event .
ENDFORM.                    " EVENT
*&      Form  EVENT1
      text
     -->P_T_EVENT  text
FORM EVENT1  USING    P_T_EVENT type slis_t_event.
x_event-form = 'TOP_OF_LIST2'.
x_event-name = slis_ev_top_of_list.
append x_event to p_t_event.
ENDFORM.                    " EVENT1
FORM TOP_OF_LIST1.
SKIP 1.
WRITE: 10 'BLOCK LIST 1 FOR SALES ORDER DETAILS ' COLOR 4 .
skip 1.
format reset.
endform.
FORM TOP_OF_LIST2.
skip 1.
WRITE: 10 'BLOCK LIST 2 FOR DELIVERY ORDER DETAILS ' COLOR 4 .
skip 1.
format reset.
endform.
reward if useful.