ALV With Multiple Header information

Question

Hi Friends,
I have the following requirement.
Company Header Information 1
Company Header Information 2
Company Header Information 3
Company Header Information 4
Company Header Information 5
Operator1 Details1
Operator1 Details2
     Customer Information A
             Sales InformationA1
             Sales InformationA2
             Sales InformationA3
             Sales InformationA4
Operator1 Information2
     Customer Information B
             Sales InformationB1
             Sales InformationB2
             Sales InformationB3
             Sales InformationB4
Is this possible through any ALV?
Thanks & Regards,
Lijo Joseph

Answer 1

hi,
Execute this program nad check if this helps in ur requirement.
*& Report  ZKEERTHI_ALV3                                               *
REPORT  ZKEERTHI_ALV3   LINE-COUNT 100                        .
*& tables declaration
TABLES: MARA.
*& type-pools declaration
TYPE-POOLS: SLIS.
*& data declaration
DATA: G_REPID TYPE SY-REPID.
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,  "mara
       WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA : IT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,  "makt
       WA_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV.
DATA : IT_FIELDCAT2 TYPE SLIS_T_FIELDCAT_ALV,  "marc
       WA_FIELDCAT2 TYPE SLIS_FIELDCAT_ALV.
DATA: GT_PRINT TYPE SLIS_PRINT_ALV,
      WA_LAYOUT TYPE SLIS_LAYOUT_ALV,
      XS_EVENT  TYPE SLIS_ALV_EVENT,
      GT_XEVENTS TYPE SLIS_T_EVENT,
      GT_YEVENTS TYPE SLIS_T_EVENT,
      GT_ZEVENTS TYPE SLIS_T_EVENT,
      WA_SORT TYPE SLIS_SORTINFO_ALV,
      IT_SORT TYPE SLIS_T_SORTINFO_ALV.
DATA: BEGIN OF IT_MARA OCCURS 0,
        MATNR LIKE MARA-MATNR,
        MTART LIKE MARA-MTART,
        MATKL LIKE MARA-MATKL,
        MEINS LIKE MARA-MEINS,
        NTGEW LIKE MARA-NTGEW,
      END OF IT_MARA.
DATA: BEGIN OF IT_MAKT OCCURS 0,
        MATNR LIKE MAKT-MATNR,
        SPRAS LIKE MAKT-SPRAS,
        MAKTX LIKE MAKT-MAKTX,
        MAKTG LIKE MAKT-MAKTG,
      END OF IT_MAKT.
DATA: BEGIN OF IT_MARC OCCURS 0,
        MATNR LIKE MARC-MATNR,
        WERKS LIKE MARC-WERKS,
        LADGR LIKE MARC-LADGR,
        MTVFP LIKE MARC-MTVFP,
        DISPR LIKE MARC-DISPR,
        DISMM LIKE MARC-DISMM,
        DISPO LIKE MARC-DISPO,
      END OF IT_MARC.
*& initialisation
INITIALIZATION.
G_REPID = SY-REPID.
*& selection screen
SELECTION-SCREEN BEGIN OF BLOCK B WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_MATNR FOR MARA-MATNR,
                S_MTART FOR MARA-MTART.
SELECTION-SCREEN END OF BLOCK B.
*& start of selection
START-OF-SELECTION.
PERFORM GET_MARADETAILS.
PERFORM GET_MAKTDETAILS.
PERFORM GET_MARCDETAILS.
*&      Form  get_maradetails
      text
-->  p1        text
<--  p2        text
FORM GET_MARADETAILS .
SELECT MATNR
       MTART
       MATKL
       MEINS
       NTGEW FROM MARA
       INTO TABLE IT_MARA
       WHERE MATNR IN S_MATNR AND
             MTART IN S_MTART.
ENDFORM.                    " get_maradetails
*&      Form  get_maktdetails
      text
-->  p1        text
<--  p2        text
FORM GET_MAKTDETAILS .
SELECT MATNR
       SPRAS
       MAKTX
       MAKTG FROM MAKT INTO TABLE IT_MAKT
       FOR ALL ENTRIES IN IT_MARA
       WHERE MATNR = IT_MARA-MATNR..
ENDFORM.                    " get_maktdetails
*&      Form  get_marcdetails
      text
-->  p1        text
<--  p2        text
FORM GET_MARCDETAILS .
SELECT MATNR
       WERKS
       LADGR
       MTVFP
       DISPR
       DISMM
       DISPO FROM MARC
       INTO TABLE IT_MARC
       FOR ALL ENTRIES IN IT_MARA
       WHERE MATNR = IT_MARA-MATNR.
ENDFORM.                    " get_marcdetails
*& end of selection
END-OF-SELECTION.
PERFORM SORT_LIST.
PERFORM MODIFY_FIELDCAT.
PERFORM EVENT_LIST.
PERFORM BLOCK_LIST.
*&      Form  modify_fieldcat
      text
-->  p1        text
<--  p2        text
FORM MODIFY_FIELDCAT .
CLEAR WA_FIELDCAT.
  WA_FIELDCAT-FIELDNAME = 'MATNR'.
  WA_FIELDCAT-TABNAME = 'IT_MARA'.
  WA_FIELDCAT-SELTEXT_L = 'MATERIAL NUM'.
  WA_FIELDCAT-COL_POS = 1.
  WA_FIELDCAT-OUTPUTLEN = 18.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  CLEAR WA_FIELDCAT.
  WA_FIELDCAT-FIELDNAME = 'MTART'.
  WA_FIELDCAT-TABNAME = 'IT_MARA'.
  WA_FIELDCAT-SELTEXT_L = 'MAT TYPE'.
  WA_FIELDCAT-COL_POS = 2.
  WA_FIELDCAT-OUTPUTLEN = 5.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  CLEAR WA_FIELDCAT.
  WA_FIELDCAT-FIELDNAME = 'MATKL'.
  WA_FIELDCAT-TABNAME = 'IT_MARA'.
  WA_FIELDCAT-SELTEXT_L = 'MAT GROUP'.
  WA_FIELDCAT-COL_POS = 3.
  WA_FIELDCAT-OUTPUTLEN = 10.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  CLEAR WA_FIELDCAT.
  WA_FIELDCAT-FIELDNAME = 'MEINS'.
  WA_FIELDCAT-TABNAME = 'IT_MARA'.
  WA_FIELDCAT-SELTEXT_L = 'UNIT'.
  WA_FIELDCAT-COL_POS = 4.
  WA_FIELDCAT-OUTPUTLEN = 5.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  CLEAR WA_FIELDCAT.
  WA_FIELDCAT-FIELDNAME = 'NTGEW'.
  WA_FIELDCAT-TABNAME = 'IT_MARA'.
  WA_FIELDCAT-DO_SUM = 'X'.
  WA_FIELDCAT-SELTEXT_L = 'QUANTITY'.
  WA_FIELDCAT-COL_POS = 5.
  WA_FIELDCAT-OUTPUTLEN = 15.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
  CLEAR WA_FIELDCAT.
CLEAR WA_FIELDCAT1.
  WA_FIELDCAT1-FIELDNAME = 'MATNR'.
  WA_FIELDCAT1-TABNAME = 'IT_MAKT'.
  WA_FIELDCAT1-SELTEXT_L = 'MATERIAL NUM'.
  WA_FIELDCAT1-COL_POS = 1.
  WA_FIELDCAT1-OUTPUTLEN = 18.
APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.
  CLEAR WA_FIELDCAT1.
  WA_FIELDCAT1-FIELDNAME = 'SPRAS'.
  WA_FIELDCAT1-TABNAME = 'IT_MAKT'.
  WA_FIELDCAT1-SELTEXT_L = 'LANGUAGE'.
  WA_FIELDCAT1-COL_POS = 2.
  WA_FIELDCAT1-OUTPUTLEN = 2.
APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.
  CLEAR WA_FIELDCAT1.
  WA_FIELDCAT1-FIELDNAME = 'MAKTX'.
  WA_FIELDCAT1-TABNAME = 'IT_MAKT'.
  WA_FIELDCAT1-SELTEXT_L = 'MAT DESC'.
  WA_FIELDCAT1-COL_POS = 3.
  WA_FIELDCAT1-OUTPUTLEN = 40.
APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.
  CLEAR WA_FIELDCAT1.
  WA_FIELDCAT1-FIELDNAME = 'MAKTG'.
  WA_FIELDCAT1-TABNAME = 'IT_MAKT'.
  WA_FIELDCAT1-SELTEXT_L = 'GRP DESC'.
  WA_FIELDCAT1-COL_POS = 4.
  WA_FIELDCAT1-OUTPUTLEN = 40.
APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.
  CLEAR WA_FIELDCAT1.
CLEAR WA_FIELDCAT2.
  WA_FIELDCAT2-FIELDNAME = 'MATNR'.
  WA_FIELDCAT2-TABNAME = 'IT_MARC'.
  WA_FIELDCAT2-SELTEXT_L = 'MATERIAL NUM'.
  WA_FIELDCAT2-COL_POS = 1.
  WA_FIELDCAT2-OUTPUTLEN = 18.
APPEND WA_FIELDCAT2 TO IT_FIELDCAT2.
  CLEAR WA_FIELDCAT2.
  WA_FIELDCAT2-FIELDNAME = 'WERKS'.
  WA_FIELDCAT2-TABNAME = 'IT_MARC'.
  WA_FIELDCAT2-SELTEXT_L = 'PLANT'.
  WA_FIELDCAT2-COL_POS = 2.
  WA_FIELDCAT2-OUTPUTLEN = 4.
  APPEND WA_FIELDCAT2 TO IT_FIELDCAT2.
  CLEAR WA_FIELDCAT2.
  WA_FIELDCAT2-FIELDNAME = 'LADGR'.
  WA_FIELDCAT2-TABNAME = 'IT_MARC'.
  WA_FIELDCAT2-SELTEXT_L = 'LOAD GRP'.
  WA_FIELDCAT2-COL_POS = 3.
  WA_FIELDCAT2-OUTPUTLEN = 4.
  APPEND WA_FIELDCAT2 TO IT_FIELDCAT2.
  CLEAR WA_FIELDCAT2.
  WA_FIELDCAT2-FIELDNAME = 'MTVFP'.
  WA_FIELDCAT2-TABNAME = 'IT_MARC'.
  WA_FIELDCAT2-SELTEXT_L = 'GRP CHK'.
  WA_FIELDCAT2-COL_POS = 4.
  WA_FIELDCAT2-OUTPUTLEN = 4.
  APPEND WA_FIELDCAT2 TO IT_FIELDCAT2.
  CLEAR WA_FIELDCAT2.
  WA_FIELDCAT2-FIELDNAME = 'DISPR'.
  WA_FIELDCAT2-TABNAME = 'IT_MARC'.
  WA_FIELDCAT2-SELTEXT_L = 'MRP PROFILE'.
  WA_FIELDCAT2-COL_POS = 5.
  WA_FIELDCAT2-OUTPUTLEN = 4.
  APPEND WA_FIELDCAT2 TO IT_FIELDCAT2.
  CLEAR WA_FIELDCAT2.
  WA_FIELDCAT2-FIELDNAME = 'DISMM'.
  WA_FIELDCAT2-TABNAME = 'IT_MARC'.
  WA_FIELDCAT2-SELTEXT_L = 'MRP TYPE'.
  WA_FIELDCAT2-COL_POS = 6.
  WA_FIELDCAT2-OUTPUTLEN = 4.
  APPEND WA_FIELDCAT2 TO IT_FIELDCAT2.
  CLEAR WA_FIELDCAT2.
  WA_FIELDCAT2-FIELDNAME = 'DISPO'.
  WA_FIELDCAT2-TABNAME = 'IT_MARC'.
  WA_FIELDCAT2-SELTEXT_L = 'MRP CON'.
  WA_FIELDCAT2-COL_POS = 7.
  WA_FIELDCAT2-OUTPUTLEN = 4.
APPEND WA_FIELDCAT2 TO IT_FIELDCAT2.
  CLEAR WA_FIELDCAT2.
ENDFORM.                    " modify_fieldcat
*&      Form  BLOCK_LIST
      text
-->  p1        text
<--  p2        text
FORM BLOCK_LIST .
CLEAR WA_LAYOUT.
WA_LAYOUT-ZEBRA = 'X'.
WA_LAYOUT-TOTALS_TEXT = 'TOTAL'.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
  EXPORTING
    I_CALLBACK_PROGRAM             = G_REPID
   I_CALLBACK_PF_STATUS_SET       = ' '
   I_CALLBACK_USER_COMMAND        = 'user_command'.
  IT_EXCLUDING                   =
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
  EXPORTING
    IS_LAYOUT                        = WA_LAYOUT
    IT_FIELDCAT                      = IT_FIELDCAT[]
    I_TABNAME                        = 'IT_MARA'
    IT_EVENTS                        = GT_XEVENTS
   IT_SORT                          = IT_SORT
  I_TEXT                           = ' '
  TABLES
    T_OUTTAB                         = IT_MARA
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.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
  EXPORTING
    IS_LAYOUT                        = WA_LAYOUT
    IT_FIELDCAT                      = IT_FIELDCAT1
    I_TABNAME                        = 'IT_MAKT'
    IT_EVENTS                        = GT_YEVENTS
  IT_SORT                          =
  I_TEXT                           = ' '
  TABLES
    T_OUTTAB                         = IT_MAKT
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.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
  EXPORTING
    IS_LAYOUT                        = WA_LAYOUT
    IT_FIELDCAT                      = IT_FIELDCAT2
    I_TABNAME                        = 'IT_MARC'
    IT_EVENTS                        = GT_ZEVENTS
  IT_SORT                          =
  I_TEXT                           = ' '
  TABLES
    T_OUTTAB                         = IT_MARC
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.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
EXPORTING
  I_INTERFACE_CHECK             = ' '
   IS_PRINT                      = GT_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_LIST
*&      Form  EVENT_LIST
      text
-->  p1        text
<--  p2        text
FORM EVENT_LIST .
CLEAR XS_EVENT.
  XS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
  XS_EVENT-FORM = 'XTOP_OF_PAGE'.
  APPEND XS_EVENT TO GT_XEVENTS.
  CLEAR XS_EVENT.
  XS_EVENT-NAME = SLIS_EV_END_OF_PAGE.
  XS_EVENT-FORM = 'XEND_OF_PAGE'.
  APPEND XS_EVENT TO GT_XEVENTS.
  CLEAR XS_EVENT.
  XS_EVENT-NAME = SLIS_EV_TOP_OF_LIST.
  XS_EVENT-FORM = 'XTOP_OF_LIST'.
  APPEND XS_EVENT TO GT_XEVENTS.
  CLEAR XS_EVENT.
  XS_EVENT-NAME = SLIS_EV_END_OF_LIST.
  XS_EVENT-FORM = 'XEND_OF_LIST'.
  APPEND XS_EVENT TO GT_XEVENTS.
  CLEAR XS_EVENT.
  XS_EVENT-NAME = SLIS_EV_END_OF_PAGE.
  XS_EVENT-FORM = 'YEND_OF_PAGE'.
  APPEND XS_EVENT TO GT_YEVENTS.
  CLEAR XS_EVENT.
  XS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
  XS_EVENT-FORM = 'YTOP_OF_PAGE'.
  APPEND XS_EVENT TO GT_YEVENTS.
  CLEAR XS_EVENT.
  XS_EVENT-NAME = SLIS_EV_TOP_OF_LIST.
  XS_EVENT-FORM = 'YTOP_OF_LIST'.
  APPEND XS_EVENT TO GT_YEVENTS.
  CLEAR XS_EVENT.
  XS_EVENT-NAME = SLIS_EV_END_OF_LIST.
  XS_EVENT-FORM = 'YEND_OF_LIST'.
  APPEND XS_EVENT TO GT_YEVENTS.
  CLEAR XS_EVENT.
  XS_EVENT-NAME = SLIS_EV_END_OF_PAGE.
  XS_EVENT-FORM = 'ZEND_OF_PAGE'.
  APPEND XS_EVENT TO GT_ZEVENTS.
  CLEAR XS_EVENT.
  XS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.
  XS_EVENT-FORM = 'ZTOP_OF_PAGE'.
  APPEND XS_EVENT TO GT_ZEVENTS.
  CLEAR XS_EVENT.
  XS_EVENT-NAME = SLIS_EV_TOP_OF_LIST.
  XS_EVENT-FORM = 'ZTOP_OF_LIST'.
  APPEND XS_EVENT TO GT_ZEVENTS.
  CLEAR XS_EVENT.
  XS_EVENT-NAME = SLIS_EV_END_OF_LIST.
  XS_EVENT-FORM = 'ZEND_OF_LIST'.
  APPEND XS_EVENT TO GT_ZEVENTS.
  CLEAR XS_EVENT.
ENDFORM.                    " EVENT_LIST
FORM XTOP_OF_PAGE.
WRITE:/ 'TOP OF PAGE FOR MARA'.
ENDFORM.
FORM YTOP_OF_PAGE.
WRITE:/ 'TOP OF PAGE FOR MAKT'.
ENDFORM.
FORM ZTOP_OF_PAGE.
WRITE:/ 'TOP OF PAGE FOR MARC'.
ENDFORM.
FORM XEND_OF_PAGE.
WRITE:/ 'END OF PAGE FOR MARA'.
ENDFORM.
FORM YEND_OF_PAGE.
WRITE:/ 'END OF PAGE FOR MAKT'.
ENDFORM.
FORM ZEND_OF_PAGE.
WRITE:/ 'END OF PAGE FOR MARC'.
ENDFORM.
FORM XTOP_OF_LIST.
WRITE:/ 'TOP OF LIST FOR MARA'.
ENDFORM.
FORM YTOP_OF_LIST.
WRITE:/ 'TOP OF LIST FOR MAKT'.
ENDFORM.
FORM ZTOP_OF_LIST.
WRITE:/ 'TOP OF LIST FOR MARC'.
ENDFORM.
FORM XEND_OF_LIST.
WRITE:/ 'END OF LIST FOR MARA'.
ENDFORM.
FORM YEND_OF_LIST.
WRITE:/ 'END OF LIST FOR MAKT'.
ENDFORM.
FORM ZEND_OF_LIST.
WRITE:/ 'END OF LIST FOR MARC'.
ENDFORM.
*&      Form  sort_list
      text
-->  p1        text
<--  p2        text
FORM SORT_LIST .
  CLEAR WA_SORT.
  WA_SORT-FIELDNAME = 'MTART'.
  WA_SORT-SUBTOT = 'X'.
    APPEND WA_SORT TO IT_SORT.
  CLEAR WA_SORT.
  WA_SORT-FIELDNAME = 'MATKL'.
WA_SORT-SUBTOT = 'X'.
  APPEND WA_SORT TO IT_SORT.
  CLEAR WA_SORT.
ENDFORM.                    " sort_list
regards,
keerthi