can someone help me i getting interactive report output..!
i am just learning please tell whats wrong and why i am not getting output..
REPORT zmanoj6.
TYPE-POOLS : slis.
TABLES : mara, makt.
TYPES : BEGIN OF ty,
matnr TYPE matnr,
ersda TYPE ersda,
ernam TYPE ernam,
laeda TYPE laeda,
vpsta TYPE vpsta,
END OF ty.
TYPES : BEGIN OF ty1,
matnr TYPE matnr,
spras TYPE spras,
maktx TYPE maktx,
maktg TYPE maktg,
END OF ty1.
DATA : it TYPE TABLE OF ty,
wa TYPE ty,
it1 TYPE TABLE OF ty,
wa1 TYPE ty.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
wa_fieldcat TYPE slis_fieldcat_alv.
DATA: it_fieldcat1 TYPE slis_t_fieldcat_alv,
wa_fieldcat1 TYPE slis_fieldcat_alv.
DATA : it_events TYPE slis_t_event,
wa_events LIKE LINE OF it_events.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
PARAMETERS mat TYPE mara-matnr OBLIGATORY .
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
SELECT matnr,
ersda,
ernam,
laeda,
vpsta FROM mara INTO TABLE @DATA(it_mara)
WHERE matnr EQ @mat.
wa_fieldcat-fieldname = 'MATNR'.
wa_fieldcat-ref_tabname = 'MARA'.
wa_fieldcat-seltext_m = 'Accounting Document Number'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ERSDA'.
wa_fieldcat-ref_tabname = 'MARA'.
wa_fieldcat-seltext_m = 'Ating Document Number'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ERNAM'.
wa_fieldcat-ref_tabname = 'MARA'.
wa_fieldcat-seltext_m = 'Accounument Number'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'LAEDA'.
wa_fieldcat-ref_tabname = 'MARA'.
wa_fieldcat-seltext_m = 'AccounNumber'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'VPSTA'.
wa_fieldcat-ref_tabname = 'MARA'.
wa_fieldcat-seltext_m = 'Accounr'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_grid_title = 'FIRST ALV'
it_fieldcat = it_fieldcat
it_events = it_events
i_structure_name = 'TY_MARA'
TABLES
t_outtab = it_mara.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
IMPORTING
et_events = it_events.
READ TABLE it_events INTO wa_events WITH KEY = 'user_command'.
wa_events-form = 'FORM_USER_COMMAND'.
* MODIFY it_events FROM wa_events INDEX sy-tabix.
FORM user_command USING r_ucomm LIKE sy-ucomm
rs_selfield TYPE slis_selfield.
READ TABLE it_mara INTO wa INDEX rs_selfield-tabindex.
SELECT matnr
spras
maktx
maktg FROM makt INTO TABLE IT1 WHERE matnr = wa-matnr.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_grid_title = 'SECOND ALV'
it_fieldcat = it_fieldcat1
it_events = it_events
i_structure_name = 'TY_MAKT'
tables
t_outtab = it1.
wa_fieldcat1-fieldname = 'MATNR'.
wa_fieldcat1-ref_tabname = 'MAKT'.
wa_fieldcat1-seltext_m = 'QQQQ'.
APPEND wa_fieldcat1 TO it_fieldcat1.
CLEAR wa_fieldcat1.
wa_fieldcat1-fieldname = 'SPRAS'.
wa_fieldcat1-ref_tabname = 'MAKT'.
wa_fieldcat1-seltext_m = 'Accounr'.
APPEND wa_fieldcat1 TO it_fieldcat1.
CLEAR wa_fieldcat1.
wa_fieldcat1-fieldname = 'MAKTX'.
wa_fieldcat1-ref_tabname = 'MAKT'.
wa_fieldcat1-seltext_m = 'AccoSSSr'.
APPEND wa_fieldcat1 TO it_fieldcat1.
CLEAR wa_fieldcat1.
wa_fieldcat1-fieldname = 'MAKTG'.
wa_fieldcat1-ref_tabname = 'MAKT'.
wa_fieldcat1-seltext_m = 'Accounr'.
APPEND wa_fieldcat1 TO it_fieldcat1.
CLEAR wa_fieldcat1.
endform.