Skip to Content
-2
May 22, 2020 at 08:11 AM

abap interactive report error !!

234 Views

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.