MP52XF00 SAP ABAP INCLUDE - Form Routines
MP52XF00 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.
If you would like to execute this report or see the full code listing simply enter MP52XF00 into the relevant SAP transactions such as SE38 or SE80
ABAP code to call this SAP report using the submit statement
This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.
SUBMIT MP52XF00. "Basic submit
SUBMIT MP52XF00 AND RETURN. "Return to original report after report execution complete
SUBMIT MP52XF00 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Form Routines
INCLUDES used within this REPORT MP52XF00
No INCLUDES are used within this REPORT code!
TABLES used within REPORT and the associated SELECT statement:
No SAP DATABASE tables are accessed within this REPORT code!
Function Modules used within report and the associated call statement:
POPUP_TO_DECIDE_WITH_MESSAGE CALL FUNCTION 'POPUP_TO_DECIDE_WITH_MESSAGE' EXPORTING diagnosetext1 = 'Für einige Personalnummern steht '(t34) diagnosetext2 = 'die früh.Änd.Stammdaten vor der '(t35)
PA03_STATETEXT_GET CALL FUNCTION 'PA03_STATETEXT_GET' EXPORTING f_state = t569u-state IMPORTING f_state_text = pv000-statetxt EXCEPTIONS OTHERS = 1.
POPUP_TO_CONFIRM_LOSS_OF_DATA CALL FUNCTION 'POPUP_TO_CONFIRM_LOSS_OF_DATA' "QNOK134690 EXPORTING textline1 = 'Möchten Sie das aktuelle Bild'(bc1) textline2 = 'trotzdem verlassen?'(bc2) titel = 'Ohne Speichern Beenden'(nsv) IMPORTING answer = my_answer.
DEQUEUE_E_TABLE CALL FUNCTION 'DEQUEUE_E_TABLE' EXPORTING tabname = 'T569V' varkey = my_varkey.
ENQUEUE_E_TABLE CALL FUNCTION 'ENQUEUE_E_TABLE' EXPORTING tabname = 'T569V' varkey = my_varkey EXCEPTIONS foreign_lock = 01 system_failure = 02.
ICON_CREATE * CALL FUNCTION 'ICON_CREATE' * EXPORTING * name = 'ICON_CHECKED' " 'Haeckchen' * " text = 'Eben ein Text' * " info = 'Ein Info' * " ADD_STDINF = 'X' * IMPORTING * result = set_active.
ICON_CREATE * CALL FUNCTION 'ICON_CREATE' * EXPORTING * name = 'ICON_INCOMPLETE' " 'Andreaskreuz' *" text = 'x' *" info = 'i' * IMPORTING * result = set_inactive. " ADD_STDINF = 'X'
ICON_CREATE CALL FUNCTION 'ICON_CREATE' EXPORTING name = 'ICON_CHECKED' * TEXT = ' ' info = 'Aktiv: Frei zur Abrechnung'(q01) * ADD_STDINF = 'X' IMPORTING RESULT = set_active_s1 EXCEPTIONS OTHERS = 0.
ICON_CREATE CALL FUNCTION 'ICON_CREATE' EXPORTING name = 'ICON_CHECKED' * TEXT = ' ' info = 'Aktiv: Frei zur Korrektur'(q02) * ADD_STDINF = 'X' IMPORTING RESULT = set_active_s2 EXCEPTIONS OTHERS = 0.
ICON_CREATE CALL FUNCTION 'ICON_CREATE' EXPORTING name = 'ICON_CHECKED' * TEXT = ' ' info = 'Aktiv: Ende der Abrechnung'(q03) * ADD_STDINF = 'X' IMPORTING RESULT = set_active_s3 EXCEPTIONS OTHERS = 0.
ICON_CREATE CALL FUNCTION 'ICON_CREATE' EXPORTING name = 'ICON_CHECKED' * TEXT = ' ' info = 'Aktiv: Ergebnisse prüfen'(q04) * ADD_STDINF = 'X' IMPORTING RESULT = set_active_s4 EXCEPTIONS OTHERS = 0.
ICON_CREATE CALL FUNCTION 'ICON_CREATE' EXPORTING name = 'ICON_INCOMPLETE' * TEXT = ' ' info = 'Inaktiv: Frei zur Abrechnung'(q05) * ADD_STDINF = 'X' IMPORTING RESULT = set_inactive_s1 EXCEPTIONS OTHERS = 0.
ICON_CREATE CALL FUNCTION 'ICON_CREATE' EXPORTING name = 'ICON_INCOMPLETE' * TEXT = ' ' info = 'Inaktiv: Frei zur Korrektur'(q06) * ADD_STDINF = 'X' IMPORTING RESULT = set_inactive_s2 EXCEPTIONS OTHERS = 0.
ICON_CREATE CALL FUNCTION 'ICON_CREATE' EXPORTING name = 'ICON_INCOMPLETE' * TEXT = ' ' info = 'Inaktiv: Ende der Abrechnung'(q07) * ADD_STDINF = 'X' IMPORTING RESULT = set_inactive_s3 EXCEPTIONS OTHERS = 0.
ICON_CREATE CALL FUNCTION 'ICON_CREATE' EXPORTING name = 'ICON_INCOMPLETE' * TEXT = ' ' info = 'Inaktiv: Ergebnisse prüfen'(q08) * ADD_STDINF = 'X' IMPORTING RESULT = set_inactive_s4 EXCEPTIONS OTHERS = 0.
PA03_STATETEXT_GET CALL FUNCTION 'PA03_STATETEXT_GET' EXPORTING f_state = i569u-state IMPORTING f_state_text = l_state_text EXCEPTIONS OTHERS = 2.
HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING * CUCOL = 0 * CUROW = 0 display = 'X' * FIELDNAME = ' ' tabname = 'T569U' no_marking_of_checkvalue = 'X' * TITLE_IN_VALUES_LIST = ' ' * titel = 'Titel ' * SHOW_ALL_VALUES_AT_FIRST_TIME = ' ' * NO_CONVERSION = ' ' * importing * select_value = TABLES fields = ihelp_fields valuetab = helptab.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = pernr_tab_with_name-pernr infty = '0001' begda = sy-datum endda = sy-datum IMPORTING subrc = subrc TABLES infty_tab = p0001_tab EXCEPTIONS OTHERS = 0.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY' EXPORTING i_callback_program = 'SAPMP52X' it_fieldcat = fc i_screen_start_column = 1 i_screen_start_line = 1 i_screen_end_column = 60 i_screen_end_line = 8 TABLES t_outtab = pernr_tab_with_name EXCEPTIONS OTHERS = 2.
ENQUEUE_READ CALL FUNCTION 'ENQUEUE_READ' "get enqueued data for EXPORTING * gclient = sy-mandt "current client gname = 'PREL' "personnel number guname = space "any user IMPORTING * number = my_number subrc = my_subrc TABLES enq = my_enq_tab.
TR_SYS_PARAMS CALL FUNCTION 'TR_SYS_PARAMS' "QNOK109736 IMPORTING "QNOK109736 system_client_role = l_client_role "QNOK109736 EXCEPTIONS OTHERS = 3.
VRM_GET_VALUES CALL FUNCTION 'VRM_GET_VALUES' EXPORTING id = 'PV000-GPVAL' EXCEPTIONS id_not_found = 1 OTHERS = 2.
VRM_SET_VALUES CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = 'PV000-GPVAL' values = lt_gpval_list[] EXCEPTIONS OTHERS = 0.
Contribute (Add Comments)
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.
The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.
This will then be available for everyone to easily find by simply searching on the report name MP52XF00 or its description.