SAP Reports / Programs | Personnel Management | Personnel Administration | Netherlands(PA-PA-NL) SAP PA

MP006040 SAP ABAP INCLUDE - Module pool for Infotype P0060 - Form Routines (General)







MP006040 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 MP006040 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 MP006040. "Basic submit
SUBMIT MP006040 AND RETURN. "Return to original report after report execution complete
SUBMIT MP006040 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 P0060 - Form Routines (General)


INCLUDES used within this REPORT MP006040

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_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING * tclas = 'A' pernr = p0060-pernr infty = '0002' begda = p0060-begda endda = p0060-begda IMPORTING subrc = l_subrc TABLES * infty_tab = i0002 "LLEL7DK064248 infty_tab = l_t_p0002[] "LLEL7DK064248 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_NL_CTR_SOFIN CALL FUNCTION 'HR_NL_CTR_SOFIN' EXPORTING sofin = l_bsn uvisr = ' ' EXCEPTIONS invalid_interval = 1 inconsistency = 2 OTHERS = 3.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING * tclas = 'A' pernr = p0060-pernr infty = '0007' * Begin of changes for LLEL7DK064248 * begda = p0060-begda * endda = p0060-begda begda = l_begda endda = l_begda * End of changes for LLEL7DK064248 IMPORTING subrc = ret_code TABLES * infty_tab = i0007 "LLEL7DK064248 infty_tab = l_t_p0007[] "LLEL7DK064248 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_NL_GET_FEATURE_2_STRUCTURES CALL FUNCTION 'HR_NL_GET_FEATURE_2_STRUCTURES' EXPORTING imp_feature = 'NLSTD' imp_structure_name_1 = 'PME01' imp_structure_1 = pme01 imp_structure_name_2 = 'PMEN9' imp_structure_2 = pmen9 IMPORTING exp_back_value = stdef EXCEPTIONS feature_not_found = 1 wrong_structures = 2 error_reading_feature = 3 OTHERS = 4.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' "XZJP40K005580 EXPORTING " * TCLAS = 'A' " pernr = p0060-pernr " infty = '0002' " begda = sy-datum " endda = sy-datum " IMPORTING " subrc = $subrc " TABLES " infty_tab = tab0002. "

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' "XZJP40K005580 EXPORTING " * TCLAS = 'A' " pernr = p0060-pernr " infty = '0002' " begda = sy-datum " endda = sy-datum " IMPORTING " subrc = $subrc " TABLES " infty_tab = tab0002. "

HR_NL_GET_RETIRED CALL FUNCTION 'HR_NL_GET_RETIRED' EXPORTING i_birth_date = tab0002-gbdat i_key_date = p0060-begda IMPORTING e_retirement_age = l_retirement_age EXCEPTIONS INVALID_DATES = 1 OVERFLOW = 2 NO_CUSTOMIZING = 3 OTHERS = 4.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' "XZJP40K005580 EXPORTING " * TCLAS = 'A' " pernr = p0060-pernr " infty = '0002' " begda = sy-datum " endda = sy-datum " IMPORTING " subrc = $subrc " TABLES " infty_tab = tab0002. "

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0060-pernr infty = '0002' begda = sy-datum endda = sy-datum IMPORTING subrc = $subrc TABLES infty_tab = tab0002.

F4IF_INT_TABLE_VALUE_REQUEST CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'TARGR' dynpprog = l_syrepid dynpnr = l_sydynnr dynprofield = 'P0060-TARGR' value_org = 'S' TABLES value_tab = value_tab.

F4IF_INT_TABLE_VALUE_REQUEST CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'AUSNA' dynpprog = l_syrepid dynpnr = l_sydynnr dynprofield = 'P0060-AUSNA' value_org = 'S' TABLES value_tab = lt_value_tab.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING * tclas = 'A' pernr = p0060-pernr infty = '0001' begda = p0060-begda endda = p0060-begda IMPORTING subrc = l_subrc TABLES infty_tab = i0001 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

DDUT_DOMVALUE_TEXT_GET CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET' EXPORTING name = 'P05_ONKST' value = lv_value langu = sy-langu texts_only = 'X' IMPORTING dd07v_wa = ls_dd07v EXCEPTIONS not_found = 1 illegal_input = 2 OTHERS = 3.

DDIF_DOMA_GET CALL FUNCTION 'DDIF_DOMA_GET' EXPORTING name = 'GEMBZ' langu = sy-langu TABLES DD07V_TAB = lt_dd07v EXCEPTIONS ILLEGAL_INPUT = 1 OTHERS = 2.

F4IF_INT_TABLE_VALUE_REQUEST CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'INKKD' dynpprog = l_syrepid dynpnr = l_sydynnr dynprofield = 'P0060-INKKD' value_org = 'S' TABLES value_tab = lt_value_tab.



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 MP006040 or its description.