How to generate third fourth reports in alv interactive

Question

Hey,
  I am able to generate secondary report in alv interactive reports using USER_COMMAND. I want to know how to genrate third and fourth reports. I am trying to implement the form for third and fourth as i did in secondary report. But i am unable to genrate the third and fourth reports.
Kudos in advance

Answer 1

Hi,
Check this sample report..
TYPE-POOLS: slis.
DATA: BEGIN OF itab1 OCCURS 0,
        vbeln TYPE vbeln,
      END OF itab1.
DATA: BEGIN OF itab2 OCCURS 0,
        vbeln  TYPE vbeln,
        posnr  TYPE posnr,
      END OF itab2.
DATA: BEGIN OF itab3 OCCURS 0,
        vbeln  LIKE vbep-vbeln,
        posnr  LIKE vbep-posnr,
        etenr  LIKE vbep-etenr,
      END OF itab3.
DATA: t_fieldcatalog1 TYPE slis_t_fieldcat_alv.
DATA: t_fieldcatalog2 TYPE slis_t_fieldcat_alv.
DATA: t_fieldcatalog3 TYPE slis_t_fieldcat_alv.
DATA: v_repid         TYPE syrepid.
v_repid = sy-repid.
Get the fieldcatalog1
PERFORM get_fieldcat1.
Get the fieldcatalog2
PERFORM get_fieldcat2.
Get the fieldcatalog3
PERFORM get_fieldcat3.
SELECT vbeln UP TO 10 ROWS
       INTO TABLE itab1
       FROM vbak
       WHERE vbeln > '0060000600'.
IF NOT itab1[] IS INITIAL.
  SELECT vbeln posnr
         INTO TABLE itab2
         FROM vbap
         FOR ALL ENTRIES IN itab1
         WHERE vbeln = itab1-vbeln.
  SELECT vbeln posnr etenr
         INTO TABLE itab3
         FROM vbep
         FOR ALL ENTRIES IN itab2
         WHERE vbeln = itab2-vbeln
         AND   posnr = itab2-posnr.
ENDIF.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
     EXPORTING
          i_callback_program      = v_repid
          i_callback_user_command = 'DISPLAY_DETAIL'
          it_fieldcat             = t_fieldcatalog1
     TABLES
          t_outtab                = itab1.
      FORM display_detail                                           *
-->  UCOMM                                                         *
-->  SELFIELD                                                      *
FORM display_detail USING ucomm LIKE sy-ucomm
                        selfield TYPE slis_selfield.
  DATA: itab2_temp LIKE itab2 OCCURS 0 WITH HEADER LINE.
  IF ucomm = '&IC1'.
    READ TABLE itab1 INDEX selfield-tabindex.
    IF sy-subrc = 0.
      LOOP AT itab2 WHERE vbeln = itab1-vbeln.
        MOVE itab2 TO itab2_temp.
        APPEND itab2_temp.
      ENDLOOP.
      CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
           EXPORTING
                i_callback_program      = v_repid
                it_fieldcat             = t_fieldcatalog2
                i_callback_user_command = 'DISPLAY_THIRD'
           TABLES
                t_outtab                = itab2_temp.
    ENDIF.
  ENDIF.
ENDFORM.
      FORM display_third                                            *
-->  UCOMM                                                         *
-->  SELFIELD                                                      *
FORM display_third USING ucomm LIKE sy-ucomm
                        selfield TYPE slis_selfield.
  DATA: itab3_temp LIKE itab3 OCCURS 0 WITH HEADER LINE.
  IF ucomm = '&IC1'.
    READ TABLE itab1 INDEX selfield-tabindex.
    IF sy-subrc = 0.
      LOOP AT itab3 WHERE vbeln = itab2-vbeln.
        MOVE itab3 TO itab3_temp.
        APPEND itab3_temp.
      ENDLOOP.
      CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
           EXPORTING
                i_callback_program = v_repid
                it_fieldcat        = t_fieldcatalog3
           TABLES
                t_outtab           = itab3_temp.
    ENDIF.
  ENDIF.
ENDFORM.
      FORM GET_FIELDCAT1                                            *
FORM get_fieldcat1.
  DATA: s_fieldcatalog TYPE slis_fieldcat_alv.
  s_fieldcatalog-col_pos = '1'.
  s_fieldcatalog-fieldname = 'VBELN'.
  s_fieldcatalog-tabname   = 'ITAB1'.
  s_fieldcatalog-rollname  = 'VBELN'.
  s_fieldcatalog-hotspot   = 'X'.
  APPEND s_fieldcatalog TO t_fieldcatalog1.
  CLEAR s_fieldcatalog.
ENDFORM.
      FORM GET_FIELDCAT2                                            *
FORM get_fieldcat2.
  DATA: s_fieldcatalog TYPE slis_fieldcat_alv.
  s_fieldcatalog-col_pos = '1'.
  s_fieldcatalog-fieldname = 'VBELN'.
  s_fieldcatalog-tabname   = 'ITAB2'.
  s_fieldcatalog-rollname  = 'VBELN'.
  APPEND s_fieldcatalog TO t_fieldcatalog2.
  CLEAR s_fieldcatalog.
  s_fieldcatalog-col_pos = '2'.
  s_fieldcatalog-fieldname = 'POSNR'.
  s_fieldcatalog-tabname   = 'ITAB2'.
  s_fieldcatalog-rollname  = 'POSNR'.
  APPEND s_fieldcatalog TO t_fieldcatalog2.
  CLEAR s_fieldcatalog.
ENDFORM.
      FORM get_fieldcat3                                            *
FORM get_fieldcat3.
  DATA: s_fieldcatalog TYPE slis_fieldcat_alv.
  s_fieldcatalog-col_pos = '1'.
  s_fieldcatalog-fieldname = 'VBELN'.
  s_fieldcatalog-tabname   = 'ITAB3'.
  s_fieldcatalog-rollname  = 'VBELN'.
  APPEND s_fieldcatalog TO t_fieldcatalog3.
  CLEAR s_fieldcatalog.
  s_fieldcatalog-col_pos = '2'.
  s_fieldcatalog-fieldname = 'POSNR'.
  s_fieldcatalog-tabname   = 'ITAB3'.
  s_fieldcatalog-rollname  = 'POSNR'.
  APPEND s_fieldcatalog TO t_fieldcatalog3.
  CLEAR s_fieldcatalog.
  s_fieldcatalog-col_pos = '3'.
  s_fieldcatalog-fieldname = 'ETENR'.
  s_fieldcatalog-tabname   = 'ITAB3'.
  s_fieldcatalog-rollname  = 'ETENR'.
  APPEND s_fieldcatalog TO t_fieldcatalog3.
  CLEAR s_fieldcatalog.
ENDFORM.
Thanks,
Naren