Demo program on ALV Blocked List Display

Sequence of Function modules used for Blocked ALV List Display.

• REUSE_ALV_BLOCK_LIST_INIT
• REUSE_ALV_BLOCK_LIST_APPEND
• REUSE_ALV_BLOCK_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

Steps to Install SAP Note

1.      Go to transaction code SNOTE
 
2.      Download SAP note

a.       Click Goto à Download SAP note

b.       Enter note Number

c.       Click Execute

 

3.      Implement SAP Note

a.       Select note and click Implement SAP Note icon

b.       Request – Click Create; Enter note Number and description

c.       Take note of transport request no.

 

4.      Test transport before migration

a.       Notify requestor to verify changes before migrating to the next environment

b.      After thorough testing has been completed, release transport

c.       Migrate transport to the other environments