Interactive Report ALV

 

Simple Example for the ALV Interactive report using user_command.

Step1: Data decelerations.

Step2: Get the data from MARA.

Step3: Build field catalog.

Step4: Display ALV.

Step5: Implement user command.

REPORT ztest.
TABLES mara.
TYPE-POOLS: slis.

TYPES: BEGIN OF ty_mara,

         matnr TYPE mara-matnr,
         ersda TYPE mara-ersda,
         ernam TYPE mara-ernam,
       END OF ty_mara.

DATA: itab TYPE TABLE OF ty_mara.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv,
      wa_fcat     TYPE slis_fieldcat_alv.

SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: s_matnr FOR mara-matnr OBLIGATORY.
SELECTION-SCREEN: END OF BLOCK b1.

START-OF-SELECTION.

  PERFORM get_data.

  PERFORM display_data.
*&---------------------------------------------------------------------*
*&      Form  GET_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM get_data .

  SELECT matnr ersda ernam FROM mara INTO TABLE itab WHERE matnr IN s_matnr.

ENDFORM.                    " GET_DATA
*&---------------------------------------------------------------------*
*&      Form  DISPLAY_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM display_data .

  PERFORM create_fieldcat.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = sy-repid
*     I_CALLBACK_PF_STATUS_SET          = ' '
      i_callback_user_command = 'INT_ALV1'
      it_fieldcat             = it_fieldcat
      i_default               = 'X'
      i_save                  = 'I'
    TABLES
      t_outtab                = itab[]
    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.                    " DISPLAY_DATA
*&---------------------------------------------------------------------*
*&      Form  CREATE_FIELDCAT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM create_fieldcat .

  wa_fcat-fieldname = 'MATNR'.
  wa_fcat-tabname = 'ITAB'.
  wa_fcat-seltext_m = 'MAT. NO.'.
  APPEND wa_fcat TO it_fieldcat.
  CLEAR wa_fcat.

  wa_fcat-fieldname = 'ERSDA'.
  wa_fcat-tabname = 'ITAB'.
  wa_fcat-seltext_m = 'DATE'.
  APPEND wa_fcat TO it_fieldcat.
  CLEAR wa_fcat.

  wa_fcat-fieldname = 'ERNAM'.
  wa_fcat-tabname = 'ITAB'.
  wa_fcat-seltext_m = 'PERSON NAME '.
  APPEND wa_fcat TO it_fieldcat.
  CLEAR wa_fcat.


ENDFORM.                    " CREATE_FIELDCAT

FORM int_alv1 USING s_comm TYPE sy-ucomm
                    sfield TYPE slis_selfield.

  MESSAGE i000(zmsg) WITH sfield-value.
ENDFORM.