MP050940 SAP ABAP INCLUDE - Form for I00509
MP050940 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 MP050940 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 MP050940. "Basic submit
SUBMIT MP050940 AND RETURN. "Return to original report after report execution complete
SUBMIT MP050940 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 for I00509
INCLUDES used within this REPORT MP050940
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:
HR_READ_FOREIGN_OBJECT_TEXT CALL FUNCTION 'HR_READ_FOREIGN_OBJECT_TEXT' EXPORTING OTYPE = 'S ' "XFYK039565 * OTYPE = OTYPE OBJID = POSITION BEGDA = BEGDA ENDDA = ENDDA IMPORTING SHORT_TEXT = PLANS_SHORT OBJECT_TEXT = PLANS_STEXT RETURN = READ_RETURN EXCEPTIONS NOTHING_FOUND = 1 WRONG_OBJECTTYPE = 2 MISSING_COSTCENTER_DATA = 3 MISSING_OBJECT_ID = 4 OTHERS = 5.
RH_READ_INFTY * CALL FUNCTION 'RH_READ_INFTY' "Beginn SVCM4133125 * EXPORTING * INFTY = '1008' * ISTAT = '1' * BEGDA = P0509-BEGDA * ENDDA = P0509-ENDDA * TABLES * INNNN = I1008 * OBJECTS = HROBJ * EXCEPTIONS * ALL_INFTY_WITH_SUBTY = 1 * NOTHING_FOUND = 2 * NO_OBJECTS = 3 * WRONG_CONDITION = 4.
RH_GET_CONTROLLING_INFO CALL FUNCTION 'RH_GET_CONTROLLING_INFO' EXPORTING plvar = HROBJ-PLVAR otype = HROBJ-OTYPE objid = HROBJ-OBJID SEL_DATE = P0509-BEGDA STATUS = '1' READ_NOT_T77S0 = 'X' IMPORTING PERSA = i1008-persa BTRTL = i1008-btrtl EXCEPTIONS NOT_FOUND = 1 OTHERS = 2.
RH_READ_INFTY CALL FUNCTION 'RH_READ_INFTY' EXPORTING INFTY = '1013' ISTAT = '1' BEGDA = P0509-BEGDA ENDDA = P0509-ENDDA TABLES INNNN = I1013 OBJECTS = HROBJ EXCEPTIONS ALL_INFTY_WITH_SUBTY = 1 NOTHING_FOUND = 2 NO_OBJECTS = 3 WRONG_CONDITION = 4.
HR_READ_PLANNED_COMPENSATION CALL FUNCTION 'HR_READ_PLANNED_COMPENSATION' EXPORTING P_MOLGA = T001P-MOLGA P_INDDA = P0509-BEGDA P_POSITION = P0509-PLANS * P_JOB = PSYST-STELL IMPORTING P_P1005 = I1005 EXCEPTIONS * no_active_plvar_found = 1 * more_than_one_record_found = 2 * no_record_found = 3 OTHERS = 4.
RH_READ_INFTY * CALL FUNCTION 'RH_READ_INFTY' * EXPORTING * INFTY = '1005' * ISTAT = '1' * BEGDA = P0509-BEGDA * ENDDA = P0509-ENDDA * TABLES * INNNN = I1005 * OBJECTS = HROBJ * EXCEPTIONS * ALL_INFTY_WITH_SUBTY = 1 * NOTHING_FOUND = 2 * NO_OBJECTS = 3 * WRONG_CONDITION = 4.
RH_READ_INFTY_1001 CALL FUNCTION 'RH_READ_INFTY_1001' EXPORTING AUTHORITY = 'DISP' WITH_STRU_AUTH = 'X' ISTAT = '1' EXTEND = 'X' SUBTY = 'B081' BEGDA = INITIAL_BEGDA ENDDA = INITIAL_ENDDA CONDITION = '0000' SORT = 'X' WITH_EV = SPACE ADATA = 'X' TABLES I1001 = P1001 OBJECTS = HROBJ EXCEPTIONS NOTHING_FOUND WRONG_CONDITION.
RH_DELETE_INFTY CALL FUNCTION 'RH_DELETE_INFTY' EXPORTING VTASK = 'B' TABLES INNNN = P1001 EXCEPTIONS ERROR_DURING_DELETE = 1 NO_AUTHORIZATION = 2 DELETE_FIRST_RECORD = 3 CORR_EXIT = 4 OTHERS = 5.
RH_INSERT_INFTY CALL FUNCTION 'RH_INSERT_INFTY' EXPORTING FCODE = 'INSE' VTASK = 'B' TABLES INNNN = INS_P1001 EXCEPTIONS NO_AUTHORIZATION = 1 ERROR_DURING_INSERT = 2 REPID_FORM_INITIAL = 3 CORR_EXIT = 4 BEGDA_GREATER_ENDDA = 5 OTHERS = 6.
HRPY_READ_T511K CALL FUNCTION 'HRPY_READ_T511K' EXPORTING PF_MOLGA = '13' PF_CONST = 'QPRZT' PF_DATE = P0509-ENDDA IMPORTING PF_KWERT = KQPRZT EXCEPTIONS NO_ENTRY_FOUND_T511K = 1 OTHERS = 2 .
RH_UPDATE_DATABASE CALL FUNCTION 'RH_UPDATE_DATABASE' EXPORTING VTASK = 'D' EXCEPTIONS CORR_EXIT = 1 OTHERS = 2.
HR_PERSONAL_WORK_SCHEDULE CALL FUNCTION 'HR_PERSONAL_WORK_SCHEDULE' EXPORTING PERNR = P0509-PERNR BEGDA = P0509-BEGDA ENDDA = P0509-ENDDA * KUG = * REFRESH = 'X' * WORKING_HOURS = 'X' * SWITCH_ACTIV = * MODIFY_ENTRIES = 'X' * I0001_I0007_ERROR = '0' * IMPORTING * WARNING_OCCURED = TABLES * I0000 = * I0001 = * I0002 = * I0007 = * I0049 = * I2001 = * I2002 = * I2003 = PERWS = PSP EXCEPTIONS ERROR_OCCURED = 1 ABORT_OCCURED = 2 OTHERS = 3 .
HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING FIELDNAME = P_COLUMN_NAME TABNAME = 'T510' * TITLE_IN_VALUES_LIST = ' ' * TITEL = ' ' IMPORTING SELECT_VALUE = P_FIELD_NAME TABLES FIELDS = IHELP_FIELDS VALUETAB = HELPTAB EXCEPTIONS FIELD_NOT_IN_DDIC = 1 MORE_THEN_ONE_SELECTFIELD = 2 NO_SELECTFIELD = 3 OTHERS = 4.
RP_EVALUATE_INDIRECTLY_P0008 CALL FUNCTION 'RP_EVALUATE_INDIRECTLY_P0008' EXPORTING PBEGDA = P0509-BEGDA PMOLGA = P_MOLGA PP0001 = I0001 PP0007 = I0007 PP0008 = I0008 PPERNR = P0509-PERNR * PP0230 = IMPORTING PENDDA = INDIR_VALUATION_ENDDA TABLES PTBINDBW = PTB EXCEPTIONS BAD_PARAMETERS = 1 ERROR_AT_INDIRECT_EVALUATION = 2 OTHERS = 3 .
RP_EVALUATE_INDIRECTLY_P0014 CALL FUNCTION 'RP_EVALUATE_INDIRECTLY_P0014' EXPORTING PPERNR = P0509-PERNR PMOLGA = P_MOLGA PBEGDA = P0509-BEGDA IMPORTING PENDDA = INDIR_VALUATION_ENDDA TABLES PTBINDBW = PTB EXCEPTIONS ERROR_AT_INDIRECT_EVALUATION = 1.
RP_EVALUATE_INDIRECTLY_P0015 CALL FUNCTION 'RP_EVALUATE_INDIRECTLY_P0015' EXPORTING PPERNR = P0509-PERNR PMOLGA = P_MOLGA PBEGDA = P0509-BEGDA IMPORTING PENDDA = INDIR_VALUATION_ENDDA TABLES PTBINDBW = PTB EXCEPTIONS ERROR_AT_INDIRECT_EVALUATION = 1.
RH_CLEAR_BUFFER CALL FUNCTION 'RH_CLEAR_BUFFER' EXCEPTIONS OTHERS = 1.
RH_RESTORE_PLOG_TAB CALL FUNCTION 'RH_RESTORE_PLOG_TAB' EXCEPTIONS OTHERS = 1.
CALL FUNCTION 'RH_GET_PLOG_TAB' TABLES PLOG_TAB_TAB = LT_PLOG_TAB.
HR_ENQUEUE_OBJECT CALL FUNCTION 'HR_ENQUEUE_OBJECT' "#EC WRITE_OK EXPORTING PLVAR = U_PPENQ-PLVAR OTYPE = U_PPENQ-OTYPE OBJID = U_PPENQ-OBJID ENQUEUE_ONCE = ' ' * IMPORTING "MIXN1382237 * LOCK_USER = SY-UNAME "MIXN1382237 EXCEPTIONS ENQUEUE_FAILED = 0 OBJID_IS_INITIAL = 0 ILLEGAL_OTYPE = 0 INTERNAL_ERROR = 0 OTHERS = 0.
RH_READ_INFTY CALL FUNCTION 'RH_READ_INFTY' EXPORTING INFTY = '1018' ISTAT = '1' BEGDA = P_BEGDA ENDDA = P_ENDDA TABLES INNNN = P1018 OBJECTS = OBJECTAB EXCEPTIONS ALL_INFTY_WITH_SUBTY = 1 NOTHING_FOUND = 2 NO_OBJECTS = 3 WRONG_CONDITION = 4 OTHERS = 5.
RH_READ_INFTY_TABDATA CALL FUNCTION 'RH_READ_INFTY_TABDATA' EXPORTING INFTY = '1018' TABLES INNNN = P1018 HRTNNNN = P_HRT1018 EXCEPTIONS NO_TABLE_INFTY = 1 INNNN_EMPTY = 2 NOTHING_FOUND = 3 OTHERS = 4.
RH_INTERNAL_ACTIVE_WF_PLVAR CALL FUNCTION 'RH_INTERNAL_ACTIVE_WF_PLVAR' EXPORTING ACT_MANDT = SY-MANDT IMPORTING ACTIVE_PLVAR = PLVAR EXCEPTIONS NO_ACTIVE_PLVAR_FOUND = 1 OTHERS = 2.
READ_INTEGRATION_ORGUNIT * CALL FUNCTION 'READ_INTEGRATION_ORGUNIT' * EXPORTING * OBJID = HD_POSITION * BEGDA = P0509-BEGDA * ENDDA = P0509-ENDDA ** IMPORTING ** ORGUNIT_BEGDA = ** ORGUNIT_ENDDA = ** ORGUNIT_SHORT = ** ORGUNIT_STEXT = * EXCEPTIONS * ORGUNIT_NOT_FOUND = 1 * NO_INTEGRATION = 2 * OTHERS = 3 * .
RH_INTEGRATION_CHECK call function 'RH_INTEGRATION_CHECK' importing integrated_plvar = plvar.
RH_EXIST_OBJECT call function 'RH_EXIST_OBJECT' exporting objid = hd_position otype = orgeh plvar = plvar exceptions not_found = 01.
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 MP050940 or its description.