The SAP system contains a lot of data like
purchasing, production, warehouse, accounting, financial, employee data etc. We
always need to retrieve those data to review, maintain and analyze as well. In
the classical report we use formatting option to have an output i.e. WRITE
statement. Now SAP system provides us ALV (ALV List Viewer) report option by
which we can generate smarter output.
The ALV report looks far better than a
classical one. We can generate the spreadsheet (excel) from the output of ALV. We
can do many other operations like SUM, AVG etc. at the output screen without
any coding of the main program. In ALV report we have to declare the function
module “REUSE_ALV_GRID_DISPLAY” in which we just need to pass the final output
table, field catalog table, event table (at the time of interactive report),
layout structure and program name. There are many other options which we can
pass to that function module to make our ALV report enriched.
We have to call a dictionary type pool SLIS.
It contains all type of declaration to generate an ALV report. We use
slis_fieldcat_alv for field catalog work area and slis_t_fieldcat_alv for field
catalog internal table. In the below example we have shown how to populate this
internal table by appending one by one information.
Now to populate the layout we use
slis_layout_alv structure. After populating with required fields we pass this
to the ALV grid function module.
Similarly we use top of page work area by
slis_listheader structure and internal table by slis_t_listheader. In ALV grid
we call another function module to populate the top of page and that is
“REUSE_ALV_COMMENTARY_WRITE”. We need to pass the internal table to populate
the top of page in this function module. Here the top of page subroutine is needed
to pass to ALV grid function module.
Another mandatory data is the program name
(SY-REPID) is needed to pass to the ALV grid. In this way we can generate an
ALV grid report which is basically more user friendly to produce large volume
of data. Here we have demonstrated a very simple example of ALV grid report
with having the output coming from only one table.
REPORT zabap_gui.
*---Declaration of Database table for its line type--------------------*
TABLES: scarr.
*---Calling the type pool SLIS to inherit all of its fields------------*
TYPE-POOLS: slis.
*------Declaring local structure---------------------------------------*
TYPES: BEGIN OF ty_scarr,
carrid TYPE scarr-carrid,
carrname TYPE scarr-carrname,
currcode TYPE scarr-currcode,
END OF ty_scarr.
*-----Declaring work area and internal table---------------------------*
DATA: wa_scarr TYPE ty_scarr,
it_scarr TYPE TABLE OF ty_scarr.
DATA:
*-----Declaring the field catalog work area & internal table-----------*
wa_fcat TYPE slis_fieldcat_alv,
it_fcat TYPE slis_t_fieldcat_alv,
*-----Declaring the work area of ALV Layout----------------------------*
wa_layout TYPE slis_layout_alv,
*-----Declaring the work area & internal table for Top of Page---------*
wa_top TYPE slis_listheader,
it_top TYPE slis_t_listheader.
*---Event Initialization-----------------------------------------------*
INITIALIZATION.
SELECT-OPTIONS: s_carrid FOR scarr-carrid. "Input selection criteria
*---Event Start of Selection-------------------------------------------*
START-OF-SELECTION. PERFORM get_scarr.
*---Event End of Selection---------------------------------------------*
END-OF-SELECTION. PERFORM alv_field_catalog.
PERFORM alv_layout.
PERFORM alv_grid_display.
*---Event Top of Page-----------------------------------------------*
TOP-OF-PAGE. PERFORM top_of_scarr.
*&---------------------------------------------------------------------*
*& Form get_scarr
*&---------------------------------------------------------------------*
* Selection of Airline table data
*----------------------------------------------------------------------*
FORM get_scarr .
IF s_carrid[] IS NOT INITIAL.
SELECT carrid carrname currcode
FROM scarr INTO TABLE it_scarr
WHERE carrid IN s_carrid.
IF sy-subrc = 0.
SORT it_scarr.
ELSE.
MESSAGE 'Airline doesn''t exist' TYPE 'I'.
ENDIF.
ENDIF.
ENDFORM. " get_scarr
*&---------------------------------------------------------------------*
*& Form alv_field_catalog
*&---------------------------------------------------------------------*
* Preparing ALV field catalog
*----------------------------------------------------------------------*
FORM alv_field_catalog .
*----Local variable to count the column position-----------------------*
DATA: lv_col TYPE i VALUE 0.
IF it_scarr IS NOT INITIAL.
lv_col = 1 + lv_col.
wa_fcat-col_pos = lv_col. "Column position
wa_fcat-fieldname = 'CARRID'. "Technical field name
wa_fcat-tabname = 'IT_SCARR'. "Output table name
wa_fcat-seltext_l = 'Airline Code'. "Field text
APPEND wa_fcat TO it_fcat. "Preparing the fieldcat table
CLEAR wa_fcat.
lv_col = 1 + lv_col.
wa_fcat-col_pos = lv_col.
wa_fcat-fieldname = 'CARRNAME'.
wa_fcat-tabname = 'IT_SCARR'.
wa_fcat-seltext_l = 'Airline Name'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
lv_col = 1 + lv_col.
wa_fcat-col_pos = lv_col.
wa_fcat-fieldname = 'CURRCODE'.
wa_fcat-tabname = 'IT_SCARR'.
wa_fcat-seltext_l = 'Local Currency'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ENDIF.
ENDFORM. " alv_field_catalog
*&---------------------------------------------------------------------*
*& Form alv_layout
*&---------------------------------------------------------------------*
* Preparing the ALV Layout
*----------------------------------------------------------------------*
FORM alv_layout .
wa_layout-zebra = 'X'. "Calling the Zebra layout
wa_layout-colwidth_optimize = 'X'. "Width of the column is optimized
ENDFORM. " alv_layout
*&---------------------------------------------------------------------*
*& Form top_of_scarr
*&---------------------------------------------------------------------*
* Preparing the Top of Page
*----------------------------------------------------------------------*
FORM top_of_scarr .
REFRESH it_top.
wa_top-typ = 'H'. "Header type
wa_top-info = 'Airline List'. "Header text
APPEND wa_top TO it_top.
CLEAR wa_top.
wa_top-typ = 'S'. "Normal line type
wa_top-info = 'Report: '. "Normal line text
CONCATENATE wa_top-info sy-repid INTO wa_top-info.
"Concatenating the text info with program name
APPEND wa_top TO it_top.
CLEAR wa_top.
wa_top-typ = 'S'.
wa_top-info = 'User: '.
CONCATENATE wa_top-info sy-uname INTO wa_top-info.
"Concatenating the text info with user name
APPEND wa_top TO it_top.
CLEAR wa_top.
*-Calling Function Module for displaying Top of Page-------------------*
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_top "Passing the internal table
* I_LOGO =
* I_END_OF_LIST_GRID =
* I_ALV_FORM =
.
ENDFORM. " top_of_scarr
*&---------------------------------------------------------------------*
*& Form alv_grid_display
*&---------------------------------------------------------------------*
* Preparing the final output by using Grid Display
*----------------------------------------------------------------------*
FORM alv_grid_display .
IF it_scarr IS NOT INITIAL
AND it_fcat IS NOT INITIAL.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
i_callback_program = sy-repid "Program name
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
i_callback_top_of_page = 'TOP_OF_SCARR'
* 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 = wa_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_scarr "Final output table
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.
MESSAGE 'Report not Generated' TYPE 'I'.
ENDIF.
ENDIF.
ENDFORM. " alv_grid_display
*---Declaration of Database table for its line type--------------------*
TABLES: scarr.
*---Calling the type pool SLIS to inherit all of its fields------------*
TYPE-POOLS: slis.
*------Declaring local structure---------------------------------------*
TYPES: BEGIN OF ty_scarr,
carrid TYPE scarr-carrid,
carrname TYPE scarr-carrname,
currcode TYPE scarr-currcode,
END OF ty_scarr.
*-----Declaring work area and internal table---------------------------*
DATA: wa_scarr TYPE ty_scarr,
it_scarr TYPE TABLE OF ty_scarr.
DATA:
*-----Declaring the field catalog work area & internal table-----------*
wa_fcat TYPE slis_fieldcat_alv,
it_fcat TYPE slis_t_fieldcat_alv,
*-----Declaring the work area of ALV Layout----------------------------*
wa_layout TYPE slis_layout_alv,
*-----Declaring the work area & internal table for Top of Page---------*
wa_top TYPE slis_listheader,
it_top TYPE slis_t_listheader.
*---Event Initialization-----------------------------------------------*
INITIALIZATION.
SELECT-OPTIONS: s_carrid FOR scarr-carrid. "Input selection criteria
*---Event Start of Selection-------------------------------------------*
START-OF-SELECTION. PERFORM get_scarr.
*---Event End of Selection---------------------------------------------*
END-OF-SELECTION. PERFORM alv_field_catalog.
PERFORM alv_layout.
PERFORM alv_grid_display.
*---Event Top of Page-----------------------------------------------*
TOP-OF-PAGE. PERFORM top_of_scarr.
*&---------------------------------------------------------------------*
*& Form get_scarr
*&---------------------------------------------------------------------*
* Selection of Airline table data
*----------------------------------------------------------------------*
FORM get_scarr .
IF s_carrid[] IS NOT INITIAL.
SELECT carrid carrname currcode
FROM scarr INTO TABLE it_scarr
WHERE carrid IN s_carrid.
IF sy-subrc = 0.
SORT it_scarr.
ELSE.
MESSAGE 'Airline doesn''t exist' TYPE 'I'.
ENDIF.
ENDIF.
ENDFORM. " get_scarr
*&---------------------------------------------------------------------*
*& Form alv_field_catalog
*&---------------------------------------------------------------------*
* Preparing ALV field catalog
*----------------------------------------------------------------------*
FORM alv_field_catalog .
*----Local variable to count the column position-----------------------*
DATA: lv_col TYPE i VALUE 0.
IF it_scarr IS NOT INITIAL.
lv_col = 1 + lv_col.
wa_fcat-col_pos = lv_col. "Column position
wa_fcat-fieldname = 'CARRID'. "Technical field name
wa_fcat-tabname = 'IT_SCARR'. "Output table name
wa_fcat-seltext_l = 'Airline Code'. "Field text
APPEND wa_fcat TO it_fcat. "Preparing the fieldcat table
CLEAR wa_fcat.
lv_col = 1 + lv_col.
wa_fcat-col_pos = lv_col.
wa_fcat-fieldname = 'CARRNAME'.
wa_fcat-tabname = 'IT_SCARR'.
wa_fcat-seltext_l = 'Airline Name'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
lv_col = 1 + lv_col.
wa_fcat-col_pos = lv_col.
wa_fcat-fieldname = 'CURRCODE'.
wa_fcat-tabname = 'IT_SCARR'.
wa_fcat-seltext_l = 'Local Currency'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ENDIF.
ENDFORM. " alv_field_catalog
*&---------------------------------------------------------------------*
*& Form alv_layout
*&---------------------------------------------------------------------*
* Preparing the ALV Layout
*----------------------------------------------------------------------*
FORM alv_layout .
wa_layout-zebra = 'X'. "Calling the Zebra layout
wa_layout-colwidth_optimize = 'X'. "Width of the column is optimized
ENDFORM. " alv_layout
*&---------------------------------------------------------------------*
*& Form top_of_scarr
*&---------------------------------------------------------------------*
* Preparing the Top of Page
*----------------------------------------------------------------------*
FORM top_of_scarr .
REFRESH it_top.
wa_top-typ = 'H'. "Header type
wa_top-info = 'Airline List'. "Header text
APPEND wa_top TO it_top.
CLEAR wa_top.
wa_top-typ = 'S'. "Normal line type
wa_top-info = 'Report: '. "Normal line text
CONCATENATE wa_top-info sy-repid INTO wa_top-info.
"Concatenating the text info with program name
APPEND wa_top TO it_top.
CLEAR wa_top.
wa_top-typ = 'S'.
wa_top-info = 'User: '.
CONCATENATE wa_top-info sy-uname INTO wa_top-info.
"Concatenating the text info with user name
APPEND wa_top TO it_top.
CLEAR wa_top.
*-Calling Function Module for displaying Top of Page-------------------*
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_top "Passing the internal table
* I_LOGO =
* I_END_OF_LIST_GRID =
* I_ALV_FORM =
.
ENDFORM. " top_of_scarr
*&---------------------------------------------------------------------*
*& Form alv_grid_display
*&---------------------------------------------------------------------*
* Preparing the final output by using Grid Display
*----------------------------------------------------------------------*
FORM alv_grid_display .
IF it_scarr IS NOT INITIAL
AND it_fcat IS NOT INITIAL.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
i_callback_program = sy-repid "Program name
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
i_callback_top_of_page = 'TOP_OF_SCARR'
* 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 = wa_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_scarr "Final output table
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.
MESSAGE 'Report not Generated' TYPE 'I'.
ENDIF.
ENDIF.
ENDFORM. " alv_grid_display
Here is the output of Selection Screen:
The ALV Grid display output
No comments:
Post a Comment