SAP Reports / Programs | Personnel Management | Personnel Administration | Germany(PA-PA-DE) SAP PA

MP001240 SAP ABAP INCLUDE - Module Pool for Infotype 0012, Form Routines







MP001240 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 MP001240 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 MP001240. "Basic submit
SUBMIT MP001240 AND RETURN. "Return to original report after report execution complete
SUBMIT MP001240 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 0012, Form Routines


INCLUDES used within this REPORT MP001240

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_CHECK_EURO_PAYROLL CALL FUNCTION 'HR_CHECK_EURO_PAYROLL' EXPORTING molga = '01' IMPORTING land1 = l_land euro_currency = l_euro old_currency = l_dem conversion_date = l_date EXCEPTIONS land_not_found = 1 not_converted = 2 currencies_not_determined = 3.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0012-pernr infty = '0026' begda = p0012-begda endda = p0012-endda IMPORTING subrc = retcode TABLES infty_tab = p0026 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

PYDE_SET_AUSGABEMONAT CALL FUNCTION 'PYDE_SET_AUSGABEMONAT' EXPORTING i_pernr = p0012-pernr i_besch_jahr = dstlb-bjahr i_ausg_monat = amonat EXCEPTIONS OTHERS = 4.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0012-pernr infty = '0001' begda = p0012-begda TABLES infty_tab = $org_data_tab EXCEPTIONS infty_not_found = 1 OTHERS = 2.

F4IF_INT_TABLE_VALUE_REQUEST CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'KNFSS' dynpprog = l_progname dynpnr = l_dynnum dynprofield = $field value_org = 'S' TABLES value_tab = value_tab EXCEPTIONS parameter_error = 1 no_values_found = 2 OTHERS = 3.

PYDE_READ_AUSGABEMONAT CALL FUNCTION 'PYDE_READ_AUSGABEMONAT' EXPORTING i_pernr = p0012-pernr i_besch_jahr = l_bjahr IMPORTING e_amonat = l_amonat EXCEPTIONS error_it0001 = 1 error_dstlb = 2 invalid_value_dstlb = 3 OTHERS = 4.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0012-pernr infty = '0003' TABLES infty_tab = i0003 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0012-pernr infty = '0001' begda = l_stichtag TABLES infty_tab = i0001 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

PA03_PCR_READ CALL FUNCTION 'PA03_PCR_READ' EXPORTING f_abkrs = i0001-abkrs IMPORTING f_state = l_status f_current_period = l_abper f_current_year = l_abjahr EXCEPTIONS abkrs_no_accounting = 1 pcr_does_not_exist = 2 abkrs_does_not_exist = 3 period_does_not_exist = 4 OTHERS = 5.

PA03_PCR_READ CALL FUNCTION 'PA03_PCR_READ' EXPORTING f_abkrs = i0001-abkrs IMPORTING f_state = l_status f_current_period = l_abper f_current_year = l_abjahr EXCEPTIONS abkrs_no_accounting = 1 pcr_does_not_exist = 2 abkrs_does_not_exist = 3 period_does_not_exist = 4 OTHERS = 5.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0012-pernr infty = '0012' begda = l_vorjahrendda endda = l_jahrendda bypass_buffer = 'X' "RSCN0977837 TABLES infty_tab = i0012 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0012-pernr infty = '0003' TABLES infty_tab = i0003 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0012-pernr infty = '0012' begda = l_jahrbegda endda = l_jahrendda bypass_buffer = 'X' "GSGN0926468 TABLES infty_tab = i0012 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

PYDE_GET_VERSORGUNGSFREIBETRAG CALL FUNCTION 'PYDE_GET_VERSORGUNGSFREIBETRAG' EXPORTING versorgungsbeginn = $begvb jahr = $kjahr IMPORTING prozentsatz = $vfbps hoechstbetrag = $vfbhb zuschlag = $vfbzs.

F4IF_INT_TABLE_VALUE_REQUEST CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'SUMLG' dynpprog = l_progname dynpnr = l_dynnum dynprofield = $field value_org = 'S' TABLES value_tab = value_tab EXCEPTIONS parameter_error = 1 no_values_found = 2 OTHERS = 3.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0012-pernr infty = '0000' begda = bdate endda = p0012-begda TABLES infty_tab = i0000 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0012-pernr infty = '0001' begda = bdate endda = p0012-begda TABLES infty_tab = i0001 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0012-pernr infty = '0012' begda = bdate endda = bdate TABLES infty_tab = i0012 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 MP001240 or its description.