SAP Reports / Programs

MP071840 SAP ABAP INCLUDE - FORM







MP071840 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 MP071840 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 MP071840. "Basic submit
SUBMIT MP071840 AND RETURN. "Return to original report after report execution complete
SUBMIT MP071840 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Title: FORM


INCLUDES used within this REPORT MP071840

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 PERNR = P0718-PERNR INFTY = '0003' BEGDA = SY-DATUM ENDDA = SY-DATUM IMPORTING SUBRC = HR_READ_SUBRC TABLES INFTY_TAB = I0003 EXCEPTIONS INFTY_NOT_FOUND = 1 OTHERS = 2.

HR_BEN_GET_EE_MOLGA * CALL FUNCTION 'HR_BEN_GET_EE_MOLGA' * EXPORTING * PERNR = P0718-PERNR * DATUM = SY-DATUM * REACTION = NO_MSG * IMPORTING * MOLGA = MOLGA * SUBRC = HR_READ_SUBRC * TABLES * ERROR_TABLE = ERROR_TABLE.

RP_GET_CURRENCY * CALL FUNCTION 'RP_GET_CURRENCY' * EXPORTING * MOLGA = MOLGA * BEGDA = sy-datum * ENDDA = sy-datum * IMPORTING * WAERS = LOCAL_CURRENCY.

HR_READ_INFOTYPE call function 'HR_READ_INFOTYPE' exporting pernr = persnr infty = '0171' begda = '18000101' endda = '99991231' importing subrc = HR_READ_SUBRC tables infty_tab = i0171 exceptions infty_not_found = 1 others = 2.

HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING FIELDNAME = 'RQOPT' TABNAME = 'T74_BPS12' IMPORTING SELECT_VALUE = P_RQOPT TABLES FIELDS = ihelp_fields VALUETAB = helptab.

CONVERT_DATE_TO_INTERNAL CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL' EXPORTING date_external = DATE_D1 IMPORTING date_internal = DATE_D.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING PERNR = P_PERNR INFTY = '0001' BEGDA = P_RDBEG ENDDA = P_RDBEG IMPORTING SUBRC = HR_READ_SUBRC TABLES INFTY_TAB = I0001 EXCEPTIONS INFTY_NOT_FOUND = 1 OTHERS = 2.

HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING FIELDNAME = 'AWART' TABNAME = 'T554T' IMPORTING SELECT_VALUE = P_RDLSU TABLES FIELDS = ihelp_fields VALUETAB = helptab.

CONVERT_DATE_TO_INTERNAL CALL FUNCTION 'CONVERT_DATE_TO_INTERNAL' EXPORTING date_external = DATE_D1 IMPORTING date_internal = DATE_D.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING PERNR = P_PERNR INFTY = '0001' BEGDA = P_RDBEG ENDDA = P_RDBEG IMPORTING SUBRC = HR_READ_SUBRC TABLES INFTY_TAB = I0001 EXCEPTIONS INFTY_NOT_FOUND = 1 OTHERS = 2.

HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING FIELDNAME = 'AWART' TABNAME = 'T554T' IMPORTING SELECT_VALUE = P_RDLSU TABLES FIELDS = ihelp_fields VALUETAB = helptab.

DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = P_CPROG dynumb = sy-dynnr TABLES dynpfields = dyfield EXCEPTIONS invalid_dynprofield = 4.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING PERNR = P0718-PERNR INFTY = '0021' BEGDA = P_RQDAT ENDDA = '99991231' IMPORTING SUBRC = HR_READ_SUBRC TABLES INFTY_TAB = I0021 EXCEPTIONS INFTY_NOT_FOUND = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING PERNR = P0718-PERNR INFTY = '0540' BEGDA = P_RQDAT ENDDA = '99991231' IMPORTING SUBRC = HR_READ_SUBRC TABLES INFTY_TAB = I0540 EXCEPTIONS INFTY_NOT_FOUND = 1 OTHERS = 2.

HR_BPS_GET_FROM_FEATURE_REDGR CALL FUNCTION 'HR_BPS_GET_FROM_FEATURE_REDGR' EXPORTING EE_BENEFIT_DATA = EE_BENEFIT_DATA REQUESTTYPE = P_RQTYP FAMSA = I0021-SUBTY AGE = AGE BEGINDATE = P_RQDAT ENDDATE = P_RQDAT REACTION = NO_MSG IMPORTING REDGR = DEP_REDGR SUBRC = HR_READ_SUBRC TABLES ERROR_TABLE = ERROR_TABLE.

HR_BPS_GET_FROM_FEATURE_REDGR CALL FUNCTION 'HR_BPS_GET_FROM_FEATURE_REDGR' EXPORTING EE_BENEFIT_DATA = EE_BENEFIT_DATA REQUESTTYPE = P_RQTYP FAMSA = I0021-SUBTY AGE = AGE BEGINDATE = P_RQDAT ENDDATE = P_RQDAT REACTION = NO_MSG IMPORTING REDGR = DEP_REDGR SUBRC = HR_READ_SUBRC TABLES ERROR_TABLE = ERROR_TABLE.

HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' IMPORTING SELECT_VALUE = INDEX1 TABLES FIELDS = ihelp_fields VALUETAB = helptab.

HR_CHECK_MOLGA_INFTY_PERM CALL FUNCTION 'HR_CHECK_MOLGA_INFTY_PERM' EXPORTING MOLGA = P_MOLGA INFTY = P_INFTY SUBTY = T591A-SUBTY IMPORTING ALLOWED = ALLOWED.

HELP_VALUES_GET_WITH_TABLE





CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING FIELDNAME = 'SUBTY' TABNAME = 'T591S' IMPORTING SELECT_VALUE = P_RDASU TABLES FIELDS = ihelp_fields VALUETAB = helptab.

HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING FIELDNAME = 'LGART' TABNAME = 'T512T' IMPORTING SELECT_VALUE = P_RDBSU TABLES FIELDS = ihelp_fields VALUETAB = helptab.

HR_BPS_GET_REQ_PROC_MODE CALL FUNCTION 'HR_BPS_GET_REQ_PROC_MODE' EXPORTING BENEFITAREA = P_BAREA REQUESTTYPE = P_RQTYP REACTION = ERROR_MSG IMPORTING REQTYPEPROMODE = REQ_PROCESS_MODE SUBRC = HR_READ_SUBRC TABLES ERROR_TABLE = ERROR_TABLE .

HR_BPS_GET_REQ_POINT_ACCOUNT CALL FUNCTION 'HR_BPS_GET_REQ_POINT_ACCOUNT' EXPORTING EMPLOYEENUMBER = P_PERNR BENEFITAREA = P_BAREA REQUESTTYPE = P_RQTYP KEYDATE = P_RQDAT REACTION = ERROR_MSG IMPORTING POINTACCOUNT = POINTACCOUNT INITIALBALANCE = INITIALBALANCE SUBRC = HR_READ_SUBRC TABLES ERROR_TABLE = ERROR_TABLE.

HR_BPS_CALC_CURR_FORE_BALANCE * CALL FUNCTION 'HR_BPS_CALC_CURR_FORE_BALANCE' * EXPORTING * BENEFITAREA = P_BAREA * EMPLOYEENUMBER = P_PERNR * BENPOINTACCOUNT = POINTACCOUNT * SELECTIONBEGDA = SY-DATUM * SELECTIONENDDA = SY-DATUM * ACCINITIALBALANCE = INITIALBALANCE * REACTION = ERROR_MSG * IMPORTING * CURRENTBALANCE = CURRENT_BALANCE * FORESEEABLEBALANCE = FORESEEABLE_BALANCE * SUBRC = HR_READ_SUBRC * TABLES * ERROR_TABLE = ERROR_TABLE .

HR_BPS_GET_REQ_CREATE_STATUS CALL FUNCTION 'HR_BPS_GET_REQ_CREATE_STATUS' EXPORTING BENEFITAREA = P_BAREA REQUESTTYPE = P_RQTYP KEYDATE = P_RQDAT REACTION = ERROR_MSG IMPORTING POSITIVESTATUS = REQ_POSITIVE_STATUS NEGATIVESTATUS = REQ_NEGATIVE_STATUS SUBRC = HR_READ_SUBRC TABLES ERROR_TABLE = ERROR_TABLE .

HR_BPS_GET_REQ_PAY_HANDLE_STAT CALL FUNCTION 'HR_BPS_GET_REQ_PAY_HANDLE_STAT' EXPORTING BENEFITAREA = P_BAREA REQUESTTYPE = P_RQTYP KEYDATE = P_RQDAT REACTION = ERROR_MSG IMPORTING PAYROLLREADSTATUS = PAYROLL_HANDLE_STATUS SUBRC = HR_READ_SUBRC TABLES ERROR_TABLE = ERROR_TABLE .

HR_BPS_GET_REQ_POINT_ACCOUNT CALL FUNCTION 'HR_BPS_GET_REQ_POINT_ACCOUNT' EXPORTING EMPLOYEENUMBER = P_PERNR BENEFITAREA = P_BAREA REQUESTTYPE = P_RQTYP KEYDATE = P_RQDAT REACTION = ERROR_MSG IMPORTING POINTACCOUNT = POINTACCOUNT INITIALBALANCE = INITIALBALANCE POINTSACCBEGDA = BEGINDATE POINTSACCENDDA = ENDDATE SUBRC = HR_READ_SUBRC TABLES ERROR_TABLE = ERROR_TABLE.

HR_BPS_CALC_CURR_FORE_BALANCE CALL FUNCTION 'HR_BPS_CALC_CURR_FORE_BALANCE' EXPORTING BENEFITAREA = P_BAREA EMPLOYEENUMBER = P_PERNR BENPOINTACCOUNT = POINTACCOUNT SELECTIONBEGDA = BEGINDATE SELECTIONENDDA = ENDDA ACCINITIALBALANCE = INITIALBALANCE REACTION = ERROR_MSG IMPORTING CURRENTBALANCE = CURRENT_BALANCE FORESEEABLEBALANCE = FORESEEABLE_BALANCE SUBRC = HR_READ_SUBRC TABLES ERROR_TABLE = ERROR_TABLE .

HR_BPS_GET_FROM_FEATURE_REEGR CALL FUNCTION 'HR_BPS_GET_FROM_FEATURE_REEGR' EXPORTING EE_BENEFIT_DATA = EE_BENEFIT_DATA REQUESTTYPE = RQTYP BEGINDATE = RQDAT ENDDATE = RQDAT REACTION = ERROR_MSG IMPORTING REEGR = EE_REEGR SUBRC = HR_READ_SUBRC TABLES ERROR_TABLE = ERROR_TABLE.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING PERNR = PERNR INFTY = '0021' BEGDA = RQDAT ENDDA = '99991231' IMPORTING SUBRC = HR_READ_SUBRC TABLES INFTY_TAB = I0021 EXCEPTIONS INFTY_NOT_FOUND = 1 OTHERS = 2.

HR_BPS_GET_FROM_FEATURE_REDGR CALL FUNCTION 'HR_BPS_GET_FROM_FEATURE_REDGR' EXPORTING EE_BENEFIT_DATA = EE_BENEFIT_DATA REQUESTTYPE = RQTYP FAMSA = I0021-SUBTY AGE = AGE BEGINDATE = RQDAT ENDDATE = RQDAT REACTION = NO_MSG IMPORTING REDGR = DEP_REDGR SUBRC = HR_READ_SUBRC TABLES ERROR_TABLE = ERROR_TABLE.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING PERNR = P_PERNR INFTY = '0021' BEGDA = P_RQDAT "HUANGHA1506165 ENDDA = '99991231' IMPORTING SUBRC = HR_READ_SUBRC TABLES INFTY_TAB = I0021 EXCEPTIONS INFTY_NOT_FOUND = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING PERNR = P_PERNR INFTY = '0540' BEGDA = P_RQDAT "HUANGHA1506165 ENDDA = '99991231' IMPORTING SUBRC = HR_READ_SUBRC TABLES INFTY_TAB = I0540 EXCEPTIONS INFTY_NOT_FOUND = 1 OTHERS = 2.

HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING FIELDNAME = 'RDPUR' TABNAME = 'T74_BPS18' IMPORTING SELECT_VALUE = P_SCREEN_FIELDS_RDPUR TABLES FIELDS = ihelp_fields VALUETAB = helptab.

HELP_VALUES_GET_WITH_TABLE CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' EXPORTING FIELDNAME = 'RDSTA' TABNAME = 'T74_BPS20' IMPORTING SELECT_VALUE = P_SCREEN_FIELDS_RDSTA TABLES FIELDS = ihelp_fields VALUETAB = helptab.



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