Application Development Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 

IT_EVENT_EXIT in FM REUSE_ALV_GRID_DISPLAY

Former Member
0 Kudos

I want to use IT_EVENT_EXIT in my program ... can i get sample code using this

.. and also wat is the use of IT_EVENT_EXIT

2 REPLIES 2

Former Member
0 Kudos

TYPE-POOLS :slis.

DATA: BEGIN OF i_pa0000 OCCURS 0,

select TYPE c,

pernr TYPE pa0000-pernr,

endda TYPE pa0000-endda,

begda TYPE pa0000-begda,

massn TYPE pa0000-massn,

stat1 TYPE pa0000-stat1,

stat2 TYPE pa0000-stat2,

END OF i_pa0000.

DATA:i_fieldcat TYPE slis_t_fieldcat_alv,

w_fieldcat LIKE LINE OF i_fieldcat,

w_layout TYPE slis_layout_alv.

START-OF-SELECTION.

PERFORM get_data_from_db.

END-OF-SELECTION.

PERFORM build_fieldcatalog.

PERFORM build_layout.

PERFORM display_data.

&----


*& Form get_data_from_db

&----


FORM get_data_from_db .

SELECT pernr endda begda massn stat1 stat2

INTO CORRESPONDING FIELDS OF TABLE i_pa0000

FROM pa0000

UP TO 20 ROWS.

ENDFORM. " get_data_from_db

&----


*& Form build_fieldcatalog

&----


FORM build_fieldcatalog .

CLEAR :w_fieldcat,

i_fieldcat.

w_fieldcat-fieldname = 'PERNR'.

w_fieldcat-seltext_m = 'PERNR'.

APPEND w_fieldcat TO i_fieldcat.

CLEAR w_fieldcat.

w_fieldcat-fieldname = 'ENDDA'.

w_fieldcat-seltext_m = 'ENDDA'.

APPEND w_fieldcat TO i_fieldcat.

CLEAR w_fieldcat.

w_fieldcat-fieldname = 'BEGDA'.

w_fieldcat-seltext_m = 'BEGDA'.

APPEND w_fieldcat TO i_fieldcat.

CLEAR w_fieldcat.

w_fieldcat-fieldname = 'MASSN'.

w_fieldcat-seltext_m = 'MASSN'.

APPEND w_fieldcat TO i_fieldcat.

CLEAR w_fieldcat.

w_fieldcat-fieldname = 'STAT1'.

w_fieldcat-seltext_m = 'STAT1'.

APPEND w_fieldcat TO i_fieldcat.

CLEAR w_fieldcat.

w_fieldcat-fieldname = 'STAT2'.

w_fieldcat-seltext_m = 'STAT2'.

APPEND w_fieldcat TO i_fieldcat.

CLEAR w_fieldcat.

ENDFORM. " build_fieldcatalog

&----


*& Form display_data

&----


FORM display_data .

DATA :program LIKE sy-repid VALUE sy-repid.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

  • I_INTERFACE_CHECK = ' '

  • I_BYPASSING_BUFFER = ' '

  • I_BUFFER_ACTIVE = ' '

i_callback_program = program

  • 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 = w_layout

it_fieldcat = i_fieldcat

  • 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

  • IT_ALV_GRAPHICS =

  • IT_HYPERLINK =

  • IT_ADD_FIELDCAT =

  • IT_EXCEPT_QINFO =

  • I_HTML_HEIGHT_TOP =

  • I_HTML_HEIGHT_END =

  • IMPORTING

  • E_EXIT_CAUSED_BY_CALLER =

  • ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = i_pa0000

  • 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 build_layout

&----


FORM build_layout .

w_layout-box_fieldname = 'SELECT'.

w_layout-box_tabname = 'I_PA0000'.

ENDFORM. " build_layout

I am sure it solves ur problem

http://www.sapgenie.com/abap/controls/alvgrid.htm

http://www.sap-img.com/abap/display-secondary-list-using-alv-grid.htm

http://help.sap.com/saphelp_47x200/helpdata/en/0a/b5530cd30911d2b467006094192fe3/frameset.htm

Please give me reward point If it is useful

Thanks

Murali Poli

hymavathi_oruganti
Active Contributor
0 Kudos

data:

ls_event_exit type slis_event_exit,

lt_event_exit TYPE slis_t_event_exit.

ls_event_exit-ucomm = '&OUP'. " sorting

ls_event_exit-after = 'X'.

append ls_event_exit to lt_event_exit.

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

i_callback_program = sy-cprog

<b> i_callback_user_command = 'USER_COMMAND'</b>

is_layout = ls_layout

it_fieldcat = lt_fieldcat

it_sort = lt_sort

<b> it_event_exit = lt_event_exit</b>

TABLES

t_outtab = gt_mara.

for filling event_exit, we must fill i_callback-user_command.