MP000040 SAP ABAP INCLUDE - Module Pool for Infotype P0000: Form Routines for Common Part
MP000040 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 MP000040 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 MP000040. "Basic submit
SUBMIT MP000040 AND RETURN. "Return to original report after report execution complete
SUBMIT MP000040 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Module Pool for Infotype P0000: Form Routines for Common Part
INCLUDES used within this REPORT MP000040
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:
HRPAD00_GET_RECOGNITION CALL FUNCTION 'HRPAD00_GET_RECOGNITION' "XREN639896 IMPORTING "XREN639896 called_by_ce = called_by_ce. "XREN639896
HRPAD00_FREE_LAST_DMSNR CALL FUNCTION 'HRPAD00_FREE_LAST_DMSNR'.
HR_CHECK_AUTHORITY_INFTY CALL FUNCTION 'HR_CHECK_AUTHORITY_INFTY' "QICP30K132949 EXPORTING "QICP30K132949 pernr = q0000-rfpnr "QICP30K132949 infty = '0031' "QICP30K132949 subty = space "QICP30K132949 level = 'W'. "QICP30K132949
HR_READ_FOREIGN_OBJECT_TEXT * CALL FUNCTION 'HR_READ_FOREIGN_OBJECT_TEXT' "YSFN160228 * EXPORTING "YSFN160228 * otype = 'S ' "YSFN160228 * objid = pspar-plans "YSFN160228 * begda = p0000-begda "YSFN160228 * endda = p0000-endda "YSFN160228 * IMPORTING "YSFN160228 * short_text = plans_short "YSFN160228 * object_text = plans_stext "YSFN160228 * return = read_return "YSFN160228 * EXCEPTIONS "YSFN160228 * nothing_found = 1 "YSFN160228 * wrong_objecttype = 2 "YSFN160228 * missing_costcenter_data = 3 "YSFN160228 * missing_object_id = 4 "YSFN160228 * OTHERS = 5. "YSFN160228
RH_READ_INFTY_NNNN CALL FUNCTION 'RH_READ_INFTY_NNNN' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' infty = '1013' istat = '1' "nur Status aktiv * EXTEND = 'X' * SUBTY = ' ' * begda = pspar-begda * endda = pspar-begda begda = p0000-begda "N215691 endda = p0000-begda "N215691 * CONDITION = '00000' * INFTB = '1' * SORT = 'X' TABLES innnn = tb1013 OBJECTS = fct_obj EXCEPTIONS nothing_found = 1 wrong_condition = 2 OTHERS = 3.
RK_KOKRS_FIND * call function 'RK_KOKRS_FIND' (del) QICALRK029194 * exporting bukrs = pspar-bukrs (del) QICALRK029194 * gsber = p0001-gsber (del) QICALRK029194 * importing kokrs = co_kokrs (del) QICALRK029194 * exceptions assignment_not_allowed (del) QICALRK029194 * insufficient_input (del) QICALRK029194 * no_kokrs_assigned (del) QICALRK029194 * no_kokrs_for_bukrs (del) QICALRK029194 * no_kokrs_for_bu_gb (del) QICALRK029194 * wrong_kokrs_for_bukrs (del) QICALRK029194 * wrong_kokrs_for_bu_gb. (del) QICALRK029194
HRCA_CONTROLLINGAREA_FIND CALL FUNCTION 'HRCA_CONTROLLINGAREA_FIND' "QICALRK029194 EXPORTING "QICALRK029194 companycode = pspar-bukrs "QICALRK029194 * businessarea = p0001-gsber "QICALRK029194"XFYPH9K011235 IMPORTING "QICALRK029194 contrlarea = co_kokrs "QICALRK029194 EXCEPTIONS "QICALRK029194 not_found = 1 "QICALRK029194 OTHERS = 2. "QICALRK029194
RH_READ_PERS_ORG_STRU CALL FUNCTION 'RH_READ_PERS_ORG_STRU' EXPORTING * begda = pspar-begda * endda = pspar-begda begda = p0000-begda "N215691 endda = p0000-begda "N215691 * PERNR = imported_plvar = planvar plste = pspar-plans TABLES stru_tab = structab EXCEPTIONS integration_not_active = 1 parameters_missing = 2 OTHERS = 3.
HRCA_COBL_CHECK CALL FUNCTION 'HRCA_COBL_CHECK' EXPORTING i_cobl = l_cobl IMPORTING e_cobl = l_cobl TABLES cobl_messages = l_cobl_messages.
HRCA_COSTCENTER_GETDETAIL *(del) call function 'HRCA_COSTCENTER_GETDETAIL' *(del) exporting *(del) controllingarea = pd_kokrs *(del) costcenter = pd_kostl *(del) read_date = pspar-begda *(del) importing *(del) companycode = pd_bukrs *(del) exceptions *(del) nothing_found = 1 *(del) others = 2.
RH_INTEGRATION_CHECK CALL FUNCTION 'RH_INTEGRATION_CHECK' IMPORTING integrated_plvar = s_planvar org_integration = s_orga EXCEPTIONS OTHERS = 1.
RH_GET_CONTROLLING_INFO * CALL FUNCTION 'RH_GET_CONTROLLING_AREA' "XFYPH9K003112 CALL FUNCTION 'RH_GET_CONTROLLING_INFO' "XFYPH9K003112 * IT1008 : nur V O R S C H L A G S W E R T E EXPORTING plvar = planvar otype = 'S' "Planstelle/position objid = pspar-plans * sel_date = pspar-begda "XFYPH9K003627 sel_date = p0000-begda "XFYPH9K003627 status = '1' read_not_t77s0 = 'X' "XFYP30K142479 IMPORTING * kokrs = bukrs = l_bukrs gsber = l_gsber persa = l_persa btrtl = l_btrtl EXCEPTIONS not_found = 1 OTHERS = 2.
RH_READ_INFTY_NNNN CALL FUNCTION 'RH_READ_INFTY_NNNN' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' infty = '1013' istat = '1' "Status aktiv * EXTEND = 'X' * SUBTY = ' ' begda = pspar-begda endda = pspar-begda * CONDITION = '00000' * INFTB = '1' * SORT = 'X' TABLES innnn = tb1013 OBJECTS = fct_obj EXCEPTIONS nothing_found = 1 wrong_condition = 2 OTHERS = 3.
RH_GET_CONTROLLING_INFO CALL FUNCTION 'RH_GET_CONTROLLING_INFO' EXPORTING plvar = planvar otype = 'S' objid = pspar-plans sel_date = pspar-begda status = '1' read_not_t77s0 = 'X' IMPORTING persa = lv_persa EXCEPTIONS not_found = 1 OTHERS = 2.
HR_CHECK_MARKED_EVENT CALL FUNCTION 'HR_CHECK_MARKED_EVENT' EXPORTING act_pernr = p0000-pernr date_of_event = p0000-begda act_event = p0000-massn act_reason = p0000-massg IMPORTING return = r_return req_massn = r_massn req_massg = r_massg req_date = r_date.
HRCA_COMPANYCODE_GETDETAIL CALL FUNCTION 'HRCA_COMPANYCODE_GETDETAIL' EXPORTING companycode = p_bukrs IMPORTING fi_managementarea = p_fikrs EXCEPTIONS not_found = 1 OTHERS = 2.
RH_PM_CHECK_ACTIVE_HHM_INT * CALL FUNCTION 'RH_PM_CHECK_ACTIVE_HHM_INT' * EXPORTING * i_date = p_date * EXCEPTIONS * not_active = 1 * OTHERS = 2.
RH_GET_ACTIVE_WF_PLVAR CALL FUNCTION 'RH_GET_ACTIVE_WF_PLVAR' IMPORTING act_plvar = l_plvar.
RH_GET_CONTROLLING_INFO CALL FUNCTION 'RH_GET_CONTROLLING_INFO' EXPORTING plvar = l_plvar otype = p_fl_otype objid = p_fl_objid sel_date = p_fl_date status = '1' read_not_t77s0 = 'X' IMPORTING persa = ld_pbr EXCEPTIONS not_found = 1 OTHERS = 2.
RH_READ_INFTY CALL FUNCTION 'RH_READ_INFTY' EXPORTING infty = '1013' istat = '1' begda = p_fl_date endda = p_fl_date TABLES innnn = lt_p1013 OBJECTS = lt_object EXCEPTIONS all_infty_with_subty = 1 nothing_found = 2 no_objects = 3 wrong_condition = 4 OTHERS = 5.
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 MP000040 or its description.
MP000040 - Module Pool for Infotype P0000: Form Routines for Common Part MP000030 - Module Pool for Infotype P0000: PAI Modules MP000020 - Module Pool for Infotype P0000: PBO Modules MP000010 - Module Pool for Infotype P0000: Data Definitions MP000000 - Module Pool: Infotype 0000 (Personnel Actions) MP000000 - Module Pool: Infotype 0000 (Personnel Actions)