SAP Reports / Programs | Personnel Management | Personnel Management | Pension fund: General Parts(PA-PF-XX) SAP PA
MPACBF01 SAP ABAP INCLUDE - HR-CH: Pension Fund : Account Management: Subprograms
MPACBF01 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 MPACBF01 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 MPACBF01. "Basic submit
SUBMIT MPACBF01 AND RETURN. "Return to original report after report execution complete
SUBMIT MPACBF01 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: HR-CH: Pension Fund : Account Management: Subprograms
INCLUDES used within this REPORT MPACBF01
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_CH_PK_CREATE_ACCOUNT CALL FUNCTION 'HR_CH_PK_CREATE_ACCOUNT' EXPORTING pernr = pernr kasse = kasse lkdat = lkdat begda = begda endda = k_endda accty = accty autgr = autgr waers = waers IMPORTING t5cpk_entry = i5cpk_wa EXCEPTIONS wrong_dates = 1 already_exists = 2 insert_failed = 3 feature_error = 4 no_number_found = 5 permission_denied = 6 OTHERS = 7.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING tclas = 'A' pernr = pernr infty = '0001' begda = begda endda = '99991231' IMPORTING subrc = subrc TABLES infty_tab = p0001 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
RP_GET_CURRENCY CALL FUNCTION 'RP_GET_CURRENCY' EXPORTING molga = %act_molga * TRFAR = * TRFGB = * TRFKZ = begda = sy-datum IMPORTING waers = waers EXCEPTIONS molga_not_in_t001p = 1 no_entry_found_in_table_t001 = 2 no_entry_found_in_table_t500p = 3 no_entry_found_in_table_t500c = 4 OTHERS = 5.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING tclas = 'A' pernr = $pernr infty = '0001' begda = '18000101' endda = '99991231' IMPORTING subrc = $rc TABLES infty_tab = i0001 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
SWU_OBJECT_PUBLISH CALL FUNCTION 'SWU_OBJECT_PUBLISH' EXPORTING objtype = 'EMPLOYEECH' objkey = obj_key * creator = ' ' * method = ' ' * tables * container = EXCEPTIONS objtype_not_found = 1 OTHERS = 2.
DD_DOMVALUE_TEXT_GET * CALL FUNCTION 'DD_DOMVALUE_TEXT_GET' "MBBPL0K020954 * EXPORTING * domname = 'P02K_ACCTY' * value = domval ** LANGU = ' ' ** BYPASS_BUFFER = ' ' * IMPORTING * dd07v_wa = dd07v_wa * rc = rc * EXCEPTIONS * OTHERS = 1.
POPUP_TO_CONFIRM_STEP CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING titel = spop-titel textline1 = spop-textline1 textline2 = spop-textline2 cancel_display = space IMPORTING answer = i_rc.
HR_CH_PK_DELETE_ACCOUNT CALL FUNCTION 'HR_CH_PK_DELETE_ACCOUNT' EXPORTING konnr = $konnr EXCEPTIONS permission_denied = 1 not_empty = 2 OTHERS = 3.
HR_CH_PK_CHECK_ACCNT_AUTHORITY CALL FUNCTION 'HR_CH_PK_CHECK_ACCNT_AUTHORITY' EXPORTING konnr = i5cpk_per_wa-konnr IMPORTING authlevel = authlevel EXCEPTIONS OTHERS = 1.
POPUP_GET_VALUES CALL FUNCTION 'POPUP_GET_VALUES' EXPORTING popup_title = 'Konto sperren vor...'(010)
HR_CH_PK_CHANGE_ACCOUNT CALL FUNCTION 'HR_CH_PK_CHANGE_ACCOUNT' EXPORTING konnr = $i5cpk_per_wa-konnr * KASSE = * AUTGR = * BEGDA = * ENDDA = lkdat = lkdat EXCEPTIONS account_not_found = 1 update_failed = 2 OTHERS = 4.
HR_CH_PK_CHECK_ACCNT_AUTHORITY CALL FUNCTION 'HR_CH_PK_CHECK_ACCNT_AUTHORITY' EXPORTING konnr = i5cpk_per_wa-konnr IMPORTING authlevel = authlevel.
POPUP_GET_VALUES CALL FUNCTION 'POPUP_GET_VALUES' EXPORTING popup_title = 'Konto abgrenzen bis...'(020)
HR_CH_PK_CHANGE_ACCOUNT CALL FUNCTION 'HR_CH_PK_CHANGE_ACCOUNT' EXPORTING konnr = $i5cpk_per_wa-konnr * KASSE = * AUTGR = begda = l_begda endda = l_endda * LKDAT = EXCEPTIONS account_not_found = 1 update_failed = 2 invalid_dates = 3.
HR_CH_PK_CHECK_ACCNT_AUTHORITY CALL FUNCTION 'HR_CH_PK_CHECK_ACCNT_AUTHORITY' EXPORTING konnr = i5cpk_per_wa-konnr IMPORTING authlevel = authlevel.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING tclas = 'A' pernr = pernr infty = '0003' begda = '18000101' endda = '99991231' IMPORTING subrc = subrc TABLES infty_tab = p0003 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
HR_CH_PK_CHECK_ACCNT_AUTHORITY CALL FUNCTION 'HR_CH_PK_CHECK_ACCNT_AUTHORITY' EXPORTING konnr = i5cpk_per_wa-konnr IMPORTING authlevel = authlevel EXCEPTIONS OTHERS = 1.
POPUP_GET_VALUES CALL FUNCTION 'POPUP_GET_VALUES' EXPORTING * NO_VALUE_CHECK = ' ' popup_title = 'Kasse für Konto'(030) * START_COLUMN = '5' * START_ROW = '5' IMPORTING returncode = rc TABLES fields = fields EXCEPTIONS error_in_fields = 1 OTHERS = 2.
CALL FUNCTION 'HR_CH_PK_CHANGE_ACCOUNT' EXPORTING konnr = i5cpk_per_wa-konnr kasse = i5cpk_per_wa-kasse autgr = i5cpk_per_wa-autgr EXCEPTIONS account_not_found = 1 update_failed = 2 OTHERS = 3.
HR_CH_PK_CHECK_ACCNT_AUTHORITY CALL FUNCTION 'HR_CH_PK_CHECK_ACCNT_AUTHORITY' EXPORTING konnr = i5cpk_per_wa-konnr IMPORTING authlevel = authlevel EXCEPTIONS OTHERS = 1.
POPUP_GET_VALUES * CALL FUNCTION 'POPUP_GET_VALUES' * EXPORTING ** NO_VALUE_CHECK = ' ' * popup_title = 'Berechtigungsgruppe für Konto'(040) ** START_COLUMN = '5' ** START_ROW = '5' * IMPORTING * returncode = rc * TABLES * fields = fields * EXCEPTIONS * error_in_fields = 1 * OTHERS = 2.
POPUP_GET_VALUES_DB_CHECKED CALL FUNCTION 'POPUP_GET_VALUES_DB_CHECKED' EXPORTING * NO_VALUE_CHECK = ' ' popup_title = 'Berechtigungsgruppe für Konto'(040) * START_COLUMN = '5' * START_ROW = '5' IMPORTING returncode = rc TABLES fields = fields EXCEPTIONS error_in_fields = 1 OTHERS = 2.
HR_CH_PK_CHANGE_ACCOUNT * CALL FUNCTION 'HR_CH_PK_CHANGE_ACCOUNT' * EXPORTING * konnr = i5cpk_per_wa-konnr * kasse = i5cpk_per_wa-kasse * autgr = i5cpk_per_wa-autgr * EXCEPTIONS * account_not_found = 1 * update_failed = 2 * OTHERS = 3.
HR_CH_PK_CHANGE_ACCOUNT_AUTGR CALL FUNCTION 'HR_CH_PK_CHANGE_ACCOUNT_AUTGR' EXPORTING konnr = i5cpk_per_wa-konnr autgr = i5cpk_per_wa-autgr EXCEPTIONS account_not_found = 1 update_failed = 2 OTHERS = 3.
HR_CH_PK_CHECK_ACCNT_AUTHORITY CALL FUNCTION 'HR_CH_PK_CHECK_ACCNT_AUTHORITY' EXPORTING konnr = konnr IMPORTING authlevel = authlevel EXCEPTIONS OTHERS = 1.
ENQUEUE_EPT5CPK CALL FUNCTION 'ENQUEUE_EPT5CPK' EXPORTING mode_t5cpk = 'E' mandt = sy-mandt konnr = konnr * X_KONNR = ' ' * _SCOPE = '2' * _WAIT = ' ' * _COLLECT = ' ' EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3.
DEQUEUE_EPT5CPK CALL FUNCTION 'DEQUEUE_EPT5CPK' EXPORTING mode_t5cpk = 'E' mandt = sy-mandt konnr = konnr.
POPUP_GET_VALUES CALL FUNCTION 'POPUP_GET_VALUES' EXPORTING * NO_VALUE_CHECK = ' ' popup_title = 'Gültigkeit ändern'(045) * START_COLUMN = '5' * START_ROW = '5' IMPORTING returncode = rc TABLES fields = fields EXCEPTIONS error_in_fields = 1 OTHERS = 2.
HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING tclas = 'A' pernr = p_pernr infty = '0001' begda = '18000101' endda = '99991231' IMPORTING subrc = subrc TABLES infty_tab = i0001 EXCEPTIONS infty_not_found = 1 OTHERS = 2.
POPUP_TO_CONFIRM_STEP CALL FUNCTION 'POPUP_TO_CONFIRM_STEP' EXPORTING * DEFAULTOPTION = 'Y' textline1 = 'Wollen Sie die erfassten Daten sichern?'(050) * TEXTLINE2 = ' ' titel = 'Personalnummerzuordnung beenden'(060) * START_COLUMN = 25 * START_ROW = 6 cancel_display = 'X' IMPORTING answer = answer.
POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING titlebar = 'Personalnummerzuordnung beenden'(060) * DIAGNOSE_OBJECT = ' ' text_question = 'Sie haben Daten erfasst. Trotzdem abbrechen?'(070)
POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING titlebar = 'Kontenpflege beenden'(080) * DIAGNOSE_OBJECT = ' ' text_question = 'Sie haben Daten erfasst. Trotzdem beenden?'(090)
F4IF_INT_TABLE_VALUE_REQUEST CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING * DDIC_STRUCTURE = ' ' retfield = 'KASSE' * PVALKEY = ' ' dynpprog = 'SAPMPACB' dynpnr = l_dynnr dynprofield = l_fname * STEPL = 0 * WINDOW_TITLE = * VALUE = ' ' value_org = 'S' * MULTIPLE_CHOICE = ' ' * DISPLAY = ' ' * CALLBACK_PROGRAM = ' ' * CALLBACK_FORM = ' ' TABLES value_tab = li_values * FIELD_TAB = * RETURN_TAB = EXCEPTIONS parameter_error = 1 no_values_found = 2 OTHERS = 3.
HR_PF_GET_ACCTY_FOR_FUND CALL FUNCTION 'HR_PF_GET_ACCTY_FOR_FUND' EXPORTING kasse = kasse TABLES acctypes = it_acctypes.
F4IF_INT_TABLE_VALUE_REQUEST CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING * DDIC_STRUCTURE = ' ' retfield = 'ACCTY' * PVALKEY = ' ' dynpprog = 'SAPMPACB' dynpnr = l_dynnr dynprofield = l_fname * STEPL = 0 * WINDOW_TITLE = * VALUE = ' ' value_org = 'S' * MULTIPLE_CHOICE = ' ' * DISPLAY = ' ' * CALLBACK_PROGRAM = ' ' * CALLBACK_FORM = ' ' TABLES value_tab = it_values * FIELD_TAB = * RETURN_TAB = EXCEPTIONS parameter_error = 1 no_values_found = 2 OTHERS = 3.
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 MPACBF01 or its description.