ALV for one header and multiple item table

Question

Hello All,
I have a requirement to display records from one header and three item table using ALV.
The output should be such that
     1-line - record from header table
     followed by - records from the 1st item table(can have multiple entries corresponding to a header record and each should be displayed on separate line)
     followed by - records from 2nd item table(can have multiple entries corresponding to a header record and each should be displayed on separate line)
     followed by - record from 3rd item table(can have multiple entries corresponding to a header record and each should be displayed on separate line)
Can you help me out.
Thanks and regards,
Subramanian.

Answer 1

hi
data population is same for alv or normal reporting.
First you select the data from header
          select from item data using for all entries in it_header where....
          select item 2
          selct item 3
loop a it_header
read item1
read item2
read item3
check sy-subrc
move to i_final
then build fieldcatalog and display..
look the example
SELECT   PERNR
           STELL
           WERKS
           ABKRS
           ENAME
           ENDDA
           BEGDA
           ORGEH
           PERSG
           PERSK
           KOSTL
      FROM PA0001
      INTO TABLE I_PA0001
     WHERE PERNR IN S_PERNR
       AND ABKRS IN S_ABKRS
       AND PERSG IN S_PERSG.
SELECT  SPRSL
            STELL
            ENDDA
            STLTX
            FROM T513S
            INTO TABLE I_T513S
            FOR ALL ENTRIES IN I_PA0001
            WHERE STELL = I_PA0001-STELL AND SPRSL = 'EN'.
    SELECT  PERSA
            NAME1
         FROM T500P
         INTO TABLE I_T500P
         FOR ALL ENTRIES IN I_PA0001
        WHERE PERSA EQ I_PA0001-WERKS.
  LOOP AT I_PA0001 .
READ TABLE I_T513S INTO WA_T513S WITH KEY STELL = WA_PA0001-STELL
                                              SPRSL = 'EN'
                                              ENDDA = WA_PA0001-ENDDA.
    IF SY-SUBRC IS INITIAL.
      MOVE WA_T513S-STLTX TO WA_FINAL-STLTX.
    ENDIF.
    V_SNO = V_SNO + 1.
Read Value For Personal area Text.
    READ TABLE I_T500P INTO WA_T500P WITH KEY
                            PERSA = WA_PA0001-WERKS.
    IF SY-SUBRC EQ 0.
      MOVE WA_T500P-NAME1 TO WA_FINAL-NAME1.
    ENDIF.
FORM DISPLAY_DATA .
--BUILDING FIELD CATALOG--
  CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
     I_PROGRAM_NAME               = V_REPID
     I_INTERNAL_TABNAME           = 'I_FINAL'
  I_STRUCTURE_NAME             =
  I_CLIENT_NEVER_DISPLAY       = 'X'
     I_INCLNAME                   = V_REPID
  I_BYPASSING_BUFFER           =
  I_BUFFER_ACTIVE              =
    CHANGING
      CT_FIELDCAT                  = I_FCAT[]
   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.
*--Modifying titles of Field Catalog--
  READ TABLE I_FCAT INTO WA_FCAT WITH KEY FIELDNAME = 'S_NO'.
  IF SY-SUBRC EQ 0.
    WA_FCAT-REPTEXT_DDIC = 'X'.
    WA_FCAT-SELTEXT_S = TEXT-041.
    WA_FCAT-SELTEXT_M = TEXT-041.
    WA_FCAT-SELTEXT_L = TEXT-041.
    WA_FCAT-OUTPUTLEN = 3.
    WA_FCAT-JUST = 'L'.
    MODIFY  I_FCAT FROM WA_FCAT INDEX SY-TABIX.
    CLEAR WA_FCAT.
  ENDIF.
do for all the fields u want to display..
Award points if useful.