MP059040 SAP ABAP INCLUDE - Common sub-routines
MP059040 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 MP059040 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 MP059040. "Basic submit
SUBMIT MP059040 AND RETURN. "Return to original report after report execution complete
SUBMIT MP059040 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Common sub-routines
INCLUDES used within this REPORT MP059040
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_IN_GET_ALGRP_AMT CALL FUNCTION 'HR_IN_GET_ALGRP_AMT' EXPORTING EMPNO = P_P0590_PERNR RFDATE = P_P0590_BEGDA WTYPE = P0590-SUBTY IMPORTING AMOUNT = ELIG_AMOUNT * LGART = EXCEPTIONS ALGRP_NOT_FOUND = 1 LGART_NOT_FOUND = 2 CALC_METHOD_NOT_FOUND = 3 INVAL_CALC_FAILED = 4 OTHERS = 5 .
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING PERNR = P0590-PERNR INFTY = '0590' BEGDA = BEG_DATE ENDDA = P0590-ENDDA TABLES INFTY_TAB = P0590_TMP EXCEPTIONS INFTY_NOT_FOUND = 1 OTHERS = 2.
HR_MONTHS_DIFFERENCE_TWO_DATES CALL FUNCTION 'HR_MONTHS_DIFFERENCE_TWO_DATES' EXPORTING I_DATUM_BIS = P0590-ENDDA I_DATUM_VON = BEG_DATE IMPORTING E_MONATE = NO_MTHS.
POPUP_TO_INFORM * CALL FUNCTION 'POPUP_TO_INFORM' * EXPORTING * TITEL = 'Error'(003) * TXT1 = TOT_TXT * TXT2 = ' '.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING PERNR = P0590-PERNR INFTY = '0590' TABLES INFTY_TAB = P0590_DEL * EXCEPTIONS * INFTY_NOT_FOUND = 1 * OTHERS = 2 .
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING TCLAS = 'A' PERNR = P0590-PERNR INFTY = '0590' BEGDA = '18000101' ENDDA = '99991231' * BYPASS_BUFFER = ' ' * IMPORTING * SUBRC = TABLES INFTY_TAB = P0590_PTAB * EXCEPTIONS * INFTY_NOT_FOUND = 1 * OTHERS = 2 .
POPUP_TO_INFORM CALL FUNCTION 'POPUP_TO_INFORM' EXPORTING TITEL = 'Error'(003) TXT1 = ERRTXT TXT2 = ' '.
POPUP_TO_INFORM * CALL FUNCTION 'POPUP_TO_INFORM' * EXPORTING * TITEL = 'Error'(003) * TXT1 = TEXT-006 * TXT2 = ' '.
POPUP_TO_INFORM CALL FUNCTION 'POPUP_TO_INFORM' EXPORTING TITEL = 'Error'(003) TXT1 = ERRTXT TXT2 = ' '.
HR_IN_GET_ALGRP_WT CALL FUNCTION 'HR_IN_GET_ALGRP_WT' EXPORTING EMPNO = P0590-PERNR RFDATE = P0590-BEGDA WTYPE = P0590-SUBTY IMPORTING RTALGRP = ALGRP LGART = WGTYP EXCEPTIONS ALGRP_NOT_FOUND = 1 LGART_NOT_FOUND = 2 OTHERS = 3.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING PERNR = P0590-PERNR INFTY = '0590' * BEGDA = BLKBEG * ENDDA = VALEND TABLES INFTY_TAB = P0590_TMP EXCEPTIONS INFTY_NOT_FOUND = 1 OTHERS = 2.
HR_IN_GET_ALGRP_AMT CALL FUNCTION 'HR_IN_GET_ALGRP_AMT' EXPORTING EMPNO = P0590-PERNR RFDATE = P0590-BEGDA WTYPE = P0590-SUBTY IMPORTING AMOUNT = ELIGAMT EXCEPTIONS OTHERS = 1.
HR_IN_GET_ALGRP_NUM CALL FUNCTION 'HR_IN_GET_ALGRP_NUM' EXPORTING EMPNO = P0590-PERNR RFDATE = P0590-BEGDA TAXCD = P0590-SUBTY IMPORTING NUMBER = ELIGNUM EXCEPTIONS ALGRP_NOT_FOUND = 1 LGART_NOT_FOUND = 2 CALC_METHOD_NOT_FOUND = 3 INVAL_CALC_FAILED = 4 OTHERS = 5.
POPUP_TO_INFORM CALL FUNCTION 'POPUP_TO_INFORM' EXPORTING TITEL = 'Error'(003) TXT1 = TOT_TXT TXT2 = ' '.
POPUP_TO_INFORM CALL FUNCTION 'POPUP_TO_INFORM' EXPORTING TITEL = 'Error'(003) TXT1 = TOT_TXT TXT2 = ' '.
POPUP_TO_INFORM CALL FUNCTION 'POPUP_TO_INFORM' EXPORTING TITEL = 'Error'(003) TXT1 = TOT_TXT TXT2 = ' '.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING PERNR = P0590-PERNR INFTY = '0001' BEGDA = P_EFFDATE * ENDDA = VALEND TABLES INFTY_TAB = P0001_TMP EXCEPTIONS INFTY_NOT_FOUND = 1 OTHERS = 2.
HR_IN_GET_ALGRP call function 'HR_IN_GET_ALGRP' EXPORTING empno = P0590-PERNR rfdate = P_EFFDATE IMPORTING RTALGRP = ALGRP EXCEPTIONS ALGRP_NOT_FOUND = 1 OTHERS = 2.
CALL FUNCTION 'HR_IN_GET_SAL_PERIOD' EXPORTING INDATE = P_EFFDATE PAY_AREA = P0001_TMP-ABKRS CUM_YR = CUMTY IMPORTING SAL_YEAR_BEGDA = BGDATE SAL_YEAR_ENDDA = ENDATE * SAL_YEAR = P_SLYR * CAL_YEAR = P_CLYR * CAL_MON = P_CLMO EXCEPTIONS PERIOD_MOD_NOT_FOUND = 1 ACT_YEAR_PERIOD_NOT_FOUND = 2 CAL_YEAR_PERIOD_NOT_FOUND = 3 SAL_YEAR_BEGDA_NOT_FOUND = 4 SAL_YEAR_ENDDA_NOT_FOUND = 5 OTHERS = 6.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING PERNR = P_EMPLY INFTY = '0589' BEGDA = BGDATE ENDDA = ENDATE TABLES INFTY_TAB = I0589 EXCEPTIONS INFTY_NOT_FOUND = 1 OTHERS = 2.
HR_READ_INFOTYPE * CALL FUNCTION 'HR_READ_INFOTYPE' * EXPORTING ** TCLAS = 'A' * PERNR = PSPAR-PERNR * INFTY = '0590' ** BEGDA = '18000101' ** ENDDA = '99991231' ** BYPASS_BUFFER = ' ' ** IMPORTING ** SUBRC = * TABLES * INFTY_TAB = P0590_CHECK ** EXCEPTIONS ** INFTY_NOT_FOUND = 1 ** OTHERS = 2 * .
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING * TCLAS = 'A' PERNR = P0590-PERNR INFTY = '0000' * BEGDA = '18000101' * ENDDA = '99991231' * BYPASS_BUFFER = ' ' * IMPORTING * SUBRC = TABLES INFTY_TAB = P0000_ITAB * EXCEPTIONS * INFTY_NOT_FOUND = 1 * OTHERS = 2 .
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 MP059040 or its description.