MPPERSFM SAP ABAP INCLUDE - Modules for Fast Entry of Action
MPPERSFM 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 MPPERSFM 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 MPPERSFM. "Basic submit
SUBMIT MPPERSFM AND RETURN. "Return to original report after report execution complete
SUBMIT MPPERSFM VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Modules for Fast Entry of Action
INCLUDES used within this REPORT MPPERSFM
INCLUDE MPPERSFM_CE. "QNUCE
INCLUDE RPUMKC00. "XFYP30K142481
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:
DEQUEUE_ALL CALL FUNCTION 'DEQUEUE_ALL'.
RH_CHECK_PERSON_ORIG_IN_DIALOG CALL FUNCTION 'RH_CHECK_PERSON_ORIG_IN_DIALOG' EXPORTING otype = 'P ' pernr = rp50g-pernr IMPORTING ok_for_editing = check_okay.
HRPAD00_SET_RECOGNITION CALL FUNCTION 'HRPAD00_SET_RECOGNITION' "XREN639896 EXPORTING "XREN639896 called_by_ce = 'X'. "XREN639896
HRPAD00_FREE_RECOGNITION CALL FUNCTION 'HRPAD00_FREE_RECOGNITION'. "XREN639896
RK_KOKRS_FIND * call function 'RK_KOKRS_FIND' "QNUALRK035713 * EXPORTING BUKRS = T500P-BUKRS "QNUALRK035713 * IMPORTING KOKRS = P0001-KOKRS "QNUALRK035713 * EXCEPTIONS ASSIGNMENT_NOT_ALLOWED "QNUALRK035713 * INSUFFICIENT_INPUT "QNUALRK035713 * NO_KOKRS_ASSIGNED "QNUALRK035713 * NO_KOKRS_FOR_BUKRS "QNUALRK035713 * NO_KOKRS_FOR_BU_GB "QNUALRK035713 * WRONG_KOKRS_FOR_BUKRS "QNUALRK035713 * WRONG_KOKRS_FOR_BU_GB. "QNUALRK035713
HRCA_CONTROLLINGAREA_FIND CALL FUNCTION 'HRCA_CONTROLLINGAREA_FIND' "QNUALRK035713 EXPORTING "QNUALRK035713 COMPANYCODE = T500P-BUKRS "QNUALRK035713 * businessarea = "QNUALRK035713 IMPORTING "QNUALRK035713 CONTRLAREA = P0001-KOKRS "QNUALRK035713 EXCEPTIONS "QNUALRK035713 NOT_FOUND = 1 "QNUALRK035713 OTHERS = 2. "QNUALRK035713
HR_BANK_SEARCH CALL FUNCTION 'HR_BANK_SEARCH' "QICP40K008620 EXPORTING "QICP40K008620 P_DYNPFIELD_COUNTRY = 'P0006-LAND1' "QICP40K008620 P_DYNPFIELD_BANKKEY = 'P0009-BANKL' "QICP40K008620 P_DYNPFIELD_BANKACC = 'P0009-BANKN' "QICP40K008620 EXCEPTIONS "QICP40K008620 FIELDNAME_NOT_VALID = 1 "QICP40K008620 COUNTRY_NOT_FOUND = 2 "QICP40K008620 OTHERS = 3. "QICP40K008620
RH_GET_CONTROLLING_INFO * CALL FUNCTION 'RH_GET_CONTROLLING_AREA' "XFYPH9K003112 CALL FUNCTION 'RH_GET_CONTROLLING_INFO' "XFYPH9K003112 EXPORTING PLVAR = PLANVAR OTYPE = 'S' "Planstelle/position OBJID = P0001-PLANS SEL_DATE = PSPAR-BEGDA STATUS = '1' READ_NOT_T77S0 = 'X' IMPORTING * kokrs = BUKRS = L_BUKRS GSBER = L_GSBER PERSA = L_PERSA BTRTL = L_BTRTL EXCEPTIONS NOT_FOUND = 1 OTHERS = 2.
RH_INTEGRATION_CHECK CALL FUNCTION 'RH_INTEGRATION_CHECK' IMPORTING INTEGRATED_PLVAR = S_PLANVAR ORG_INTEGRATION = S_ORGA EXCEPTIONS OTHERS = 1.
RH_READ_INFTY_NNNN CALL FUNCTION 'RH_READ_INFTY_NNNN' EXPORTING INFTY = '1013' ISTAT = '1' "nur Status aktiv BEGDA = PSPAR-BEGDA ENDDA = PSPAR-BEGDA TABLES INNNN = TB1013 OBJECTS = FCT_OBJ EXCEPTIONS NOTHING_FOUND = 1 WRONG_CONDITION = 2 OTHERS = 3.
RH_GET_CONTROLLING_AREA CALL FUNCTION 'RH_GET_CONTROLLING_AREA' * IT1008 : n u r V o r s c h l a g s w e r t e !!! EXPORTING PLVAR = planvar OTYPE = 'S' "Planstelle OBJID = p0001-plans SEL_DATE = PSPAR-BEGDA STATUS = '1' READ_NOT_T77S0 = 'X' IMPORTING KOKRS = pd_kokrs BUKRS = pd_bukrs GSBER = pd_gsber PERSA = pd_persa BTRTL = pd_btrtl EXCEPTIONS NOT_FOUND = 1 OTHERS = 2.
RH_READ_PERS_ORG_STRU CALL FUNCTION 'RH_READ_PERS_ORG_STRU' EXPORTING BEGDA = PSPAR-BEGDA ENDDA = PSPAR-BEGDA IMPORTED_PLVAR = PLANVAR PLSTE = P0001-PLANS TABLES STRU_TAB = STRUCTAB EXCEPTIONS INTEGRATION_NOT_ACTIVE = 1 PARAMETERS_MISSING = 2 OTHERS = 3.
RH_GET_ACTIVE_WF_PLVAR CALL FUNCTION 'RH_GET_ACTIVE_WF_PLVAR' IMPORTING ACT_PLVAR = PLANVAR EXCEPTIONS NO_ACTIVE_PLVAR = 1 OTHERS = 2.
RH_OBJID_REQUEST CALL FUNCTION 'RH_OBJID_REQUEST' EXPORTING PLVAR = PLANVAR OTYPE = 'S' SEARK_BEGDA = PSPAR-BEGDA SEARK_ENDDA = '99991231' DYNPRO_REPID = OR_REPID DYNPRO_DYNNR = OR_DYNNR DYNPRO_SEARKFIELD = 'P0001-PLANS' * NO_SEARK_POPUP = ' ' "XMKAL0K093206 IMPORTING SEL_OBJECT = OR_OBJEC EXCEPTIONS CANCELLED = 1 WRONG_CONDITION = 2 NOTHING_FOUND = 3 * ILLEGAL_MODE = 4 "XMKAL0K093206 INTERNAL_ERROR = 5 OTHERS = 6.
RH_OBJID_REQUEST * CALL FUNCTION 'RH_OBJID_REQUEST' * EXPORTING * PLVAR = PLANVAR * OTYPE = 'S ' * SEARK_BEGDA = Pspar-BEGDA * SEARK_ENDDA = high_date * DYNPRO_REPID = OR_REPID * DYNPRO_DYNNR = OR_DYNNR * DYNPRO_SEARKFIELD = 'P0001-PLANS' * NO_SEARK_POPUP = ' ' * IMPORTING * SEL_OBJECT = RE_OBJEC * EXCEPTIONS * CANCELLED = 1 * WRONG_CONDITION = 2 * NOTHING_FOUND = 3 * ILLEGAL_MODE = 4 * INTERNAL_ERROR = 5 * OTHERS = 6.
RP_PNP_GET_VALUE_PLANS * CALL FUNCTION 'RP_PNP_GET_VALUE_PLANS' * CHANGING * PLANS = P0001-PLANS * EXCEPTIONS * OTHERS = 1.
DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = dynpname dynumb = dynpnumb TABLES dynpfields = dynpvaluetab EXCEPTIONS OTHERS = 01.
DDIF_TABL_GET CALL FUNCTION 'DDIF_TABL_GET' EXPORTING name = 'T001P' LANGU = sy-langu TABLES DD03P_TAB = idd03p EXCEPTIONS ILLEGAL_INPUT = 1 OTHERS = 2.
DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = dynpname dynumb = dynpnumb TABLES dynpfields = dynpvaluetab EXCEPTIONS OTHERS = 01.
HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING display = l_display fieldname = 'PERSK' tabname = 'T503' show_all_values_at_first_time = 'X' title_in_values_list = l_title IMPORTING select_value = pspar-persk TABLES fields = ihelp_fields valuetab = helptab.
DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = dynpprog dynumb = dynpnr tables dynpfields = dynpfields EXCEPTIONS INVALID_ABAPWORKAREA = 1 INVALID_DYNPROFIELD = 2 INVALID_DYNPRONAME = 3 INVALID_DYNPRONUMMER = 4 INVALID_REQUEST = 5 NO_FIELDDESCRIPTION = 6 INVALID_PARAMETER = 7 UNDEFIND_ERROR = 8 DOUBLE_CONVERSION = 9 STEPL_NOT_FOUND = 10 OTHERS = 11.
F4IF_INT_TABLE_VALUE_REQUEST CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'BTRTL' dynpprog = dynpprog dynpnr = dynpnr dynprofield = 'P0001-BTRTL' value_org = 'S' TABLES value_tab = value_tab EXCEPTIONS parameter_error = 1 no_values_found = 2 OTHERS = 3.
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 MPPERSFM or its description.