MP022140 SAP ABAP INCLUDE - Infotype 0221, MODULPOOL: Routines
MP022140 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 MP022140 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 MP022140. "Basic submit
SUBMIT MP022140 AND RETURN. "Return to original report after report execution complete
SUBMIT MP022140 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Infotype 0221, MODULPOOL: Routines
INCLUDES used within this REPORT MP022140
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_LGART CALL FUNCTION 'HR_CHECK_LGART' EXPORTING p_lgart = xtblgart-lgart p_begda = ctb_begda p_endda = ctb_begda p_infty = pspar-infty p_persa = psyst-werks p_btrtl = psyst-btrtl p_persg = psyst-persg p_persk = psyst-persk p_msgtp = 'E'.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p_pernr infty = '0221' TABLES infty_tab = lt_p0221 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
CU_READ_RGDIR CALL FUNCTION 'CU_READ_RGDIR' EXPORTING persnr = p0221-pernr TABLES in_rgdir = lt_rgdir EXCEPTIONS no_record_found = 0 "WWQAHRK062232 OTHERS = 0. "WWQAHRK062232
HELP_VALUES_GET_NO_DD_NAME CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME' EXPORTING display = ' ' selectfield = 'OCRSN' titel = ' ' IMPORTING ind = index TABLES fields = field_tab full_table = t52ocr_help EXCEPTIONS full_table_empty = 01 no_tablestructure_given = 02.
DYNP_VALUES_UPDATE CALL FUNCTION 'DYNP_VALUES_UPDATE' EXPORTING dyname = 'MP022100' dynumb = sy-dynnr TABLES dynpfields = dynpfields EXCEPTIONS invalid_abapworkarea = 0 "WWQAHRK062232 invalid_dynprofield = 0 " invalid_dynproname = 0 " invalid_dynpronummer = 0 " invalid_request = 0 " no_fielddescription = 0 " undefind_error = 0. "
POPUP_TO_INFORM CALL FUNCTION 'POPUP_TO_INFORM' EXPORTING titel = 'Information'(006) txt1 = 'This record has been processed in a'(007) txt2 = 'payroll run before. You should not'(008)
CD_REORG_RGDIR CALL FUNCTION 'CD_REORG_RGDIR' TABLES rgdir = lt_rgdir.
CD_READ_LAST CALL FUNCTION 'CD_READ_LAST' EXPORTING begin_date = '18000101' end_date = '99991231' IMPORTING out_seqnr = last_seqnr TABLES rgdir = lt_rgdir EXCEPTIONS no_record_found = 0 "WWQAHRK062232 OTHERS = 0. "WWQAHRK062232
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0221-pernr infty = '0000' begda = p0221-begda endda = p0221-begda TABLES infty_tab = p0000 EXCEPTIONS infty_not_found = 0.
HR_CHECK_LGART CALL FUNCTION 'HR_CHECK_LGART' "XIYPH4K001756 EXPORTING " p_lgart = q0221-lgart " p_begda = p0221-begda " p_endda = p0221-endda " p_infty = pspar-infty " p_persa = psyst-werks " p_btrtl = psyst-btrtl " p_persg = psyst-persg " p_persk = psyst-persk " p_msgtp = 'E'. "XIYPH4K001756
CU_READ_RGDIR CALL FUNCTION 'CU_READ_RGDIR' "Note 317241 EXPORTING "Note 317241 persnr = p0221-pernr "Note 317241 TABLES "Note 317241 in_rgdir = lt_rgdir "Note 317241 EXCEPTIONS "Note 317241 no_record_found = 0 "Note 317241 OTHERS = 0. "Note 317241
PYXX_READ_PAYROLL_RESULT CALL FUNCTION 'PYXX_READ_PAYROLL_RESULT' "Note 317241 EXPORTING "Note 317241 clusterid = 'RU' "Note 317241 employeenumber = p0221-pernr "Note 317241 sequencenumber = ls_last_seqnr"Note 317241 CHANGING "Note 317241 payroll_result = ls_result "Note 317241 EXCEPTIONS "Note 317241 illegal_isocode_or_clusterid = 1 "Note 317241 error_generating_import = 2 "Note 317241 import_mismatch_error = 3 "Note 317241 subpool_dir_full = 4 "Note 317241 no_read_authority = 5 "Note 317241 no_record_found = 6 "Note 317241 versions_do_not_match = 7 "Note 317241 OTHERS = 8. "Note 317241
CU_READ_RGDIR CALL FUNCTION 'CU_READ_RGDIR' EXPORTING persnr = p0221-pernr TABLES in_rgdir = lt_rgdir EXCEPTIONS no_record_found = 4.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = p0221-pernr infty = '0003' endda = p0221-endda TABLES infty_tab = p0003 EXCEPTIONS infty_not_found = 1.
PA03_PCR_READ CALL FUNCTION 'PA03_PCR_READ' EXPORTING f_abkrs = p0001-abkrs IMPORTING f_twm_date = l_earliest_retro_date EXCEPTIONS abkrs_no_accounting = 1 pcr_does_not_exist = 2 abkrs_does_not_exist = 3 period_does_not_exist = 4 OTHERS = 5.
CD_CHECK_PAYROLL_RESULT_FOR CALL FUNCTION 'CD_CHECK_PAYROLL_RESULT_FOR' EXPORTING bonus_date = ps_p0221-begda pay_type = ps_p0221-payty pay_ident = ps_p0221-payid TABLES rgdir = lt_rgdir EXCEPTIONS no_record_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 MP022140 or its description.