SAP Tutorials Blog




 This is simple and sample  ALV report example useful for SAP ABAP learning students or freshers



*&---------------------------------------------------------------------*

*& Report  ZALV_INTERACTIVE_REPORT

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*


REPORT  ZALV_INTERACTIVE_REPORT.


tYPE-POOLS:SLIS.


TYPES: BEGIN OF TY_VBAK,

        VBELN TYPE VBAK-VBELN,

        ERDAT TYPE VBAK-ERDAT,

        ERZET TYPE VBAK-ERZET,

        ERNAM TYPE VBAK-ERNAM,

      END OF TY_VBAK.


types : BEGIN OF TY_VBAP,

        VBELN TYPE VBAP-VBELN,

        POSNR TYPE VBAP-POSNR,

        MATNR TYPE VBAP-MATNR,

        END OF TY_VBAP.




data : it_vbak type TABLE OF ty_vbak,

      it_vbap TYPE TABLE OF ty_vbap,

      wa_vbak type ty_vbak,

      wa_vbap TYPE ty_vbap,

IT_FCAT TYPE SLIS_T_FIELDCAT_ALV , "field catalog table

WA_FCAT LIKE LINE OF IT_FCAT .



PARAMETERS P_VBELN TYPE VBAK-VBELN.


SELECT VBELN ERDAT ERZET ERNAM FROM VBAK INTO TABLE IT_VBAK WHERE VBELN = P_VBELN.


  WA_FCAT-COL_POS = '1' . "column position

  WA_FCAT-FIELDNAME = 'VBELN' . "column name

  WA_FCAT-TABNAME = 'IT_VBAK' . "table

  WA_FCAT-SELTEXT_M = 'SALES ORDER NO' . "Column label

  WA_FCAT-KEY = 'X' . "is a key field

  WA_FCAT-HOTSPOT = 'X' . "Set hotspot for matnr

  APPEND WA_FCAT TO IT_FCAT . "append to fcat

  CLEAR WA_FCAT .


  WA_FCAT-COL_POS = '2' . "column position

  WA_FCAT-FIELDNAME = 'ERDAT' . "column name

  WA_FCAT-TABNAME = 'IT_VBAK' . "table

  WA_FCAT-SELTEXT_M = 'DATE' . "Column label

  WA_FCAT-HOTSPOT = 'X' . "Set hotspot for matnr

  APPEND WA_FCAT TO IT_FCAT . "append to fcat

  CLEAR WA_FCAT .


  WA_FCAT-COL_POS = '3' . "column position

  WA_FCAT-FIELDNAME = 'ERZET' . "column name

  WA_FCAT-TABNAME = 'IT_VBAK' . "table

  WA_FCAT-SELTEXT_M = 'TIME' . "Column label

  WA_FCAT-HOTSPOT = 'X' . "Set hotspot for matnr

  APPEND WA_FCAT TO IT_FCAT . "append to fcat

  CLEAR WA_FCAT .




  WA_FCAT-COL_POS = '4' . "column position

  WA_FCAT-FIELDNAME = 'ERZET' . "column name

  WA_FCAT-TABNAME = 'IT_VBAK' . "table

  WA_FCAT-SELTEXT_M = 'NAME' . "Column label

  WA_FCAT-HOTSPOT = 'X' . "Set hotspot for matnr

  APPEND WA_FCAT TO IT_FCAT . "append to fcat

  CLEAR WA_FCAT .


  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

  EXPORTING

*     I_INTERFACE_CHECK                 = ' '

*     I_BYPASSING_BUFFER                = ' '

*     I_BUFFER_ACTIVE                   = ' '

     I_CALLBACK_PROGRAM                = SY-REPID

*     I_CALLBACK_PF_STATUS_SET          = ' '

*     I_CALLBACK_USER_COMMAND           = ' '

*     I_CALLBACK_TOP_OF_PAGE            = ' '

*     I_CALLBACK_HTML_TOP_OF_PAGE       = ' '

*     I_CALLBACK_HTML_END_OF_LIST       = ' '

*     I_STRUCTURE_NAME                  =

*     I_BACKGROUND_ID                   = ' '

*     I_GRID_TITLE                      =

*     I_GRID_SETTINGS                   =

*     IS_LAYOUT                         =

         IT_FIELDCAT                   =    IT_FCAT

*     IT_EXCLUDING                      =

*     IT_SPECIAL_GROUPS                 =

*     IT_SORT                           =

*     IT_FILTER                         =

*     IS_SEL_HIDE                       =

*     I_DEFAULT                         = 'X'

*     I_SAVE                            = ' '

*     IS_VARIANT                        =

*     IT_EVENTS                         =

*     IT_EVENT_EXIT                     =

*     IS_PRINT                          =

*     IS_REPREP_ID                      =

*     I_SCREEN_START_COLUMN             = 0

*     I_SCREEN_START_LINE               = 0

*     I_SCREEN_END_COLUMN               = 0

*     I_SCREEN_END_LINE                 = 0

*     I_HTML_HEIGHT_TOP                 = 0

*     I_HTML_HEIGHT_END                 = 0

*     IT_ALV_GRAPHICS                   =

*     IT_HYPERLINK                      =

*     IT_ADD_FIELDCAT                   =

*     IT_EXCEPT_QINFO                   =

*     IR_SALV_FULLSCREEN_ADAPTER        =

*   IMPORTING

*     E_EXIT_CAUSED_BY_CALLER           =

*     ES_EXIT_CAUSED_BY_USER            =

    TABLES

      T_OUTTAB                          = IT_VBAK

*   EXCEPTIONS

*     PROGRAM_ERROR                     = 1

*     OTHERS                            = 2



Serkan AKKAVAK

Computer Engineer BSc

SAP Department Deputy Manager

Contact : serkurumsal@yandex.com