- SAP Managed Tags
HI Ajit Sarangi
Try like this
TYPE-POOLS: slis.
DATA: it_mara TYPE TABLE OF mara,
wa_mara TYPE mara.
DATA: it_fcat TYPE slis_t_fieldcat_alv,
wa_fcat LIKE LINE OF it_fcat.
DATA: v_pos TYPE i.
DATA: it_events TYPE slis_t_event,
wa_events LIKE LINE OF it_events.
DATA: it_heading TYPE slis_t_listheader,
wa_heading LIKE LINE OF it_heading.
DATA: it_heading1 TYPE slis_t_listheader,
wa_heading1 LIKE LINE OF it_heading1.
START-OF-SELECTION.
PERFORM get_data.
PERFORM create_fcat.
PERFORM get_events.
PERFORM display_data.
PERFORM top_of_page.
PERFORM END_OF_LIST.
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_data .
SELECT * FROM mara INTO TABLE it_mara UP TO 10 ROWS.
ENDFORM. " GET_DATA
*&---------------------------------------------------------------------*
*& Form DISPLAY_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM display_data .
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 = '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_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_mara
* 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_FCAT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM create_fcat .
v_pos = 1.
wa_fcat-col_pos = v_pos.
wa_fcat-fieldname = 'MATNR'.
wa_fcat-seltext_m = 'MATERIAL NUMBER'.
wa_fcat-hotspot = 'X'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
v_pos = v_pos + 1.
wa_fcat-col_pos = v_pos.
wa_fcat-fieldname = 'MTART'.
wa_fcat-seltext_m = 'MATERIAL TYPE'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
v_pos = v_pos + 1.
wa_fcat-col_pos = v_pos.
wa_fcat-fieldname = 'MBRSH'.
wa_fcat-seltext_m = 'INDUSTRY SECTOR'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
v_pos = v_pos + 1.
wa_fcat-col_pos = v_pos.
wa_fcat-fieldname = 'MATKL'.
wa_fcat-seltext_m = 'MATERIAL GROUP'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
v_pos = v_pos + 1.
wa_fcat-col_pos = v_pos.
wa_fcat-fieldname = 'MEINS'.
wa_fcat-seltext_m = 'UNIT OF MEASURE'.
APPEND wa_fcat TO it_fcat.
CLEAR wa_fcat.
ENDFORM. " CREATE_FCAT
*&---------------------------------------------------------------------*
*& Form GET_EVENTS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_events .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
* EXPORTING
* I_LIST_TYPE = 0
IMPORTING
et_events = it_events
* EXCEPTIONS
* LIST_TYPE_WRONG = 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.
READ TABLE it_events INTO wa_events WITH KEY name = 'TOP_OF_PAGE'.
wa_events-form = 'TOP_OF_PAGE'.
MODIFY it_events FROM wa_events INDEX sy-tabix.
*** READ END OF LIST.
READ TABLE it_events INTO wa_events WITH KEY name = 'END_OF_LIST'.
wa_events-form = 'END_OF_LIST'.
MODIFY it_events FROM wa_events INDEX sy-tabix.
ENDFORM. " GET_EVENTS
*&---------------------------------------------------------------------*
*& Form TOP_OF_PAGE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM top_of_page .
wa_heading-typ = 'H'.
*WA_HEADING-KEY = 'H'.
wa_heading-info = 'MATERIAL MASTER REPORT'.
APPEND wa_heading TO it_heading.
*CLEAR WA_HEADING.
wa_heading-typ = 'S'.
wa_heading-key = 'USERNAME'.
wa_heading-info = sy-uname.
APPEND wa_heading TO it_heading.
*CLEAR WA_HEADING.
wa_heading-typ = 'A'.
wa_heading-key = 'DATE'.
wa_heading-info = sy-datum.
APPEND wa_heading TO it_heading.
*CLEAR WA_HEADING.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_heading
* I_LOGO =
* I_END_OF_LIST_GRID = 'X'
* I_ALV_FORM =
.
ENDFORM. " TOP_OF_PAGE
*&---------------------------------------------------------------------*
*& Form END_OF_PAGE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM END_OF_LIST.
REFRESH it_heading1.
CLEAR wa_heading1.
wa_heading1-typ = 'S'.
wa_heading1-info = 'ALL RESERVED ARE BELONGS TO COMPANY **** LTD.'.
APPEND wa_heading1 TO it_heading1.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_heading1
* I_LOGO =
* i_end_of_list_grid = 'X'
* I_ALV_FORM =
.
ENDFORM. " END_OF_PAGE
Bluesky