10-08-2007 10:59 AM
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
10-08-2007 11:05 AM
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
10-08-2007 11:19 AM
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.