SAP ABAP: Demo program on ALV Blocked List Display

Sequence of Function modules used for Blocked ALV List Display.

Demo Program.

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

*&Report  ZALV_BLOCKEDALV                          *

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

REPORT  ZALV_BLOCKEDALV .

*tables

TABLES: MARA, MAKT, MARD.

*type-pools

TYPE-POOLS: SLIS.

*select-options

SELECT-OPTIONS: S_MATNR FOR MARA-MATNR.

*provide data objects

DATA: V_REPID TYPE SY-REPID,

      WA_MARA_FIELD TYPE SLIS_FIELDCAT_ALV,

      WA_MAKT_FIELD TYPE SLIS_FIELDCAT_ALV,

      WA_MARD_FIELD TYPE SLIS_FIELDCAT_ALV,

      WA_MARA TYPE MARA,

      WA_MAKT TYPE MAKT,

      WA_MARD TYPE MARD,

      IT_MARA_FIELD TYPE SLIS_T_FIELDCAT_ALV,

      IT_MAKT_FIELD TYPE SLIS_T_FIELDCAT_ALV,

      IT_MARD_FIELD TYPE SLIS_T_FIELDCAT_ALV,

      IT_MARA TYPE TABLE OF MARA,

      IT_MAKT TYPE TABLE OF MAKT,

      IT_MARD TYPE TABLE OF MARD,

      V_LAYOUT TYPE SLIS_LAYOUT_ALV,

      IT_EVENTS TYPE SLIS_T_EVENT,

      WA_EVENTS TYPE SLIS_ALV_EVENT.

V_REPID = SY-REPID.

*provide field catalog perform

PERFORM FIELD_CAT.

*call the initial function module

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

  EXPORTING

    I_CALLBACK_PROGRAM             = V_REPID

*   I_CALLBACK_PF_STATUS_SET       = ' '

*   I_CALLBACK_USER_COMMAND        = ' '

*   IT_EXCLUDING                   =

PERFORM SELECT_DATA.

*call append list for MARA Table

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

  EXPORTING

    IS_LAYOUT                        = V_LAYOUT

    IT_FIELDCAT                      = IT_MARA_FIELD[]

    I_TABNAME                        = 'MARA'

    IT_EVENTS                        = IT_EVENTS[]

*   IT_SORT                          =

*   I_TEXT                           = ' '

  TABLES

    T_OUTTAB                         = IT_MARA

 EXCEPTIONS

   PROGRAM_ERROR                    = 1

   MAXIMUM_OF_APPENDS_REACHED       = 2

   OTHERS                           = 3.

*call append list for MAKT Table

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

  EXPORTING

    IS_LAYOUT                        = V_LAYOUT

    IT_FIELDCAT                      = IT_MAKT_FIELD

    I_TABNAME                        = 'MAKT'

    IT_EVENTS                        = IT_EVENTS

*   IT_SORT                          =

*   I_TEXT                           = ' '

  TABLES

    T_OUTTAB                         = IT_MAKT

 EXCEPTIONS

   PROGRAM_ERROR                    = 1

   MAXIMUM_OF_APPENDS_REACHED       = 2

   OTHERS                           = 3.

*call append list for MARD Table

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

  EXPORTING

    IS_LAYOUT                        = V_LAYOUT

    IT_FIELDCAT                      = IT_MARD_FIELD

    I_TABNAME                        = 'MARD'

    IT_EVENTS                        = IT_EVENTS

*   IT_SORT                          =

*   I_TEXT                           = ' '

  TABLES

    T_OUTTAB                         = IT_MARD

 EXCEPTIONS

   PROGRAM_ERROR                    = 1

   MAXIMUM_OF_APPENDS_REACHED       = 2

   OTHERS                           = 3.

*display the data

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'

* EXPORTING

*   I_INTERFACE_CHECK             = ' '

*   IS_PRINT                      =

*   I_SCREEN_START_COLUMN         = 0

*   I_SCREEN_START_LINE           = 0

*   I_SCREEN_END_COLUMN           = 0

*   I_SCREEN_END_LINE             = 0

* IMPORTING

*   E_EXIT_CAUSED_BY_CALLER       =

*   ES_EXIT_CAUSED_BY_USER        =

* EXCEPTIONS

*   PROGRAM_ERROR                 = 1

*   OTHERS                        = 2.

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

*&      Form  TOP_PAGE

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

*       text

*----------------------------------------------------*

FORM TOP_PAGE.

  WRITE:/ 'THIS IS BLOCKED ALV REPORT PROGRAM BASED ON 3 BLOCKS'

           COLOR 5.

ENDFORM.                    "TOP_PAGE

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

*&      Form  FIELD_CAT

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

FORM FIELD_CAT .

WA_MARA_FIELD-COL_POS = 1.

WA_MARA_FIELD-FIELDNAME = 'MATNR'.

WA_MARA_FIELD-REF_TABNAME = 'MARA'.

APPEND WA_MARA_FIELD TO IT_MARA_FIELD.

CLEAR WA_MARA_FIELD.

WA_MARA_FIELD-COL_POS = 2.

WA_MARA_FIELD-FIELDNAME = 'ERSDA'.

WA_MARA_FIELD-REF_TABNAME = 'MARA'.

APPEND WA_MARA_FIELD TO IT_MARA_FIELD.

CLEAR WA_MARA_FIELD.

WA_MARA_FIELD-COL_POS = 3.

WA_MARA_FIELD-FIELDNAME = 'ERNAM'.

WA_MARA_FIELD-REF_TABNAME = 'MARA'.

APPEND WA_MARA_FIELD TO IT_MARA_FIELD.

CLEAR WA_MARA_FIELD.

WA_MARA_FIELD-COL_POS = 4.

WA_MARA_FIELD-FIELDNAME = 'LAEDA'.

WA_MARA_FIELD-REF_TABNAME = 'MARA'.

APPEND WA_MARA_FIELD TO IT_MARA_FIELD.

CLEAR WA_MARA_FIELD.

WA_MAKT_FIELD-COL_POS = '1'.

WA_MAKT_FIELD-FIELDNAME = 'MATNR'.

WA_MAKT_FIELD-REF_TABNAME = 'MAKT'.

APPEND WA_MAKT_FIELD TO IT_MAKT_FIELD.

CLEAR WA_MAKT_FIELD.

WA_MAKT_FIELD-COL_POS = 2.

WA_MAKT_FIELD-FIELDNAME = 'MAKTX'.

WA_MAKT_FIELD-REF_TABNAME = 'MAKT'.

APPEND WA_MAKT_FIELD TO IT_MAKT_FIELD.

CLEAR WA_MAKT_FIELD.

WA_MAKT_FIELD-COL_POS = 3.

WA_MAKT_FIELD-FIELDNAME = 'MAKTG'.

WA_MAKT_FIELD-REF_TABNAME = 'MAKT'.

APPEND WA_MAKT_FIELD TO IT_MAKT_FIELD.

CLEAR WA_MAKT_FIELD.

WA_MARD_FIELD-COL_POS = 1.

WA_MARD_FIELD-FIELDNAME = 'MATNR'.

WA_MARD_FIELD-REF_TABNAME = 'MARD'.

APPEND WA_MARD_FIELD TO IT_MARD_FIELD.

CLEAR WA_MARD_FIELD.

WA_MARD_FIELD-COL_POS = 2.

WA_MARD_FIELD-FIELDNAME = 'WERKS'.

WA_MARD_FIELD-REF_TABNAME = 'MARD'.

APPEND WA_MARD_FIELD TO IT_MARD_FIELD.

CLEAR WA_MARD_FIELD.

WA_MARD_FIELD-COL_POS = 3.

WA_MARD_FIELD-FIELDNAME = 'LGORT'.

WA_MARD_FIELD-REF_TABNAME = 'MARD'.

APPEND WA_MARD_FIELD TO IT_MARD_FIELD.

CLEAR WA_MARD_FIELD.

WA_EVENTS-FORM = 'TOP_PAGE'.

WA_EVENTS-NAME = 'TOP_OF_PAGE'.

APPEND WA_EVENTS TO IT_EVENTS.

ENDFORM.                    " FIELD_CAT

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

*&      Form  SELECT_DATA

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

FORM SELECT_DATA .

SELECT * FROM MARA INTO TABLE IT_MARA

                     WHERE MATNR IN S_MATNR.

SELECT * FROM MAKT INTO TABLE IT_MAKT

                     WHERE MATNR IN S_MATNR.

SELECT * FROM MARD INTO TABLE IT_MARD

                     WHERE MATNR IN S_MATNR.

ENDFORM.                    " SELECT_DATA

SAP ABAP