SAP Reports / Programs | Training and Event Management(PE) SAP PE

MIT30F01 SAP ABAP INCLUDE - Routines for Data Collection: Correspondence







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


Text pool values


Title: Routines for Data Collection: Correspondence


INCLUDES used within this REPORT MIT30F01

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:

RH_PART_TYPES_GET CALL FUNCTION 'RH_PART_TYPES_GET' TABLES patyp_tab = ip_allpa EXCEPTIONS OTHERS = 1.

RH_PART_TYPES_EXT CALL FUNCTION 'RH_PART_TYPES_EXT' TABLES expart_tab = ip_extpa EXCEPTIONS OTHERS = 01.

RH_PART_TYPES_MULTI CALL FUNCTION 'RH_PART_TYPES_MULTI' TABLES multi_tab = ip_mulpa EXCEPTIONS OTHERS = 01.

RH_GET_DATE_DAYNAME CALL FUNCTION 'RH_GET_DATE_DAYNAME' EXPORTING langu = gdd_langu date = gdd_date IMPORTING daynr = gdd_daynr daytxt = gdd_daytx EXCEPTIONS no_langu = 01 no_date = 02 no_daytxt_for_langu = 03 invalid_date = 04 OTHERS = 05.

RH_READ_INFTY CALL FUNCTION 'RH_READ_INFTY' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' infty = ob_infty istat = fo_obj-istat * EXTEND = 'X' * SUBTY = ' ' begda = fo_obj-begda endda = fo_obj-endda * CONDITION = '00000' * INFTB = '1' * SORT = 'X' * VIA_T777D = ' ' TABLES innnn = i1000 objects = intobj EXCEPTIONS all_infty_with_subty = 1 nothing_found = 2 no_objects = 3 wrong_condition = 4 OTHERS = 5.

RH_READ_INFTY_NNNN CALL FUNCTION 'RH_READ_INFTY_NNNN' EXPORTING authority = 'DISP' with_stru_auth = 'X' infty = tx_infty istat = ' ' extend = 'X' subty = subty begda = rte_obj-begda endda = rte_obj-endda condition = '00000' inftb = '1' sort = 'X' TABLES innnn = idx objects = intobj EXCEPTIONS nothing_found = 01 wrong_condition = 02.

RH_READ_INFTY_TABDATA CALL FUNCTION 'RH_READ_INFTY_TABDATA' EXPORTING infty = tx_infty * DBMODE = ' ' TABLES innnn = idx hrtnnnn = txt EXCEPTIONS no_table_infty = 01 innnn_empty = 02 nothing_found = 03.

RH_READ_INFTY_NNNN CALL FUNCTION 'RH_READ_INFTY_NNNN' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' infty = nam_infty istat = '1' extend = 'X' subty = subty begda = ha_obj-begda endda = ha_obj-endda * CONDITION = '00000' * INFTB = '1' * SORT = 'X' TABLES innnn = i1034 objects = intobj EXCEPTIONS nothing_found = 01 wrong_condition = 02.

RH_READ_INFTY_NNNN CALL FUNCTION 'RH_READ_INFTY_NNNN' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' infty = pdt_infty istat = '1' extend = 'X' subty = subty begda = pa_obj-begda endda = pa_obj-endda * CONDITION = '00000' * INFTB = '1' * SORT = 'X' TABLES innnn = buf_p0002 objects = intobj EXCEPTIONS nothing_found = 01 wrong_condition = 02.

ALE_BAPI_GET_UNIQUE_RECEIVER CALL FUNCTION 'ALE_BAPI_GET_UNIQUE_RECEIVER' EXPORTING object = obj_cntc method = obj_cntc_glst IMPORTING receiver = destination TABLES filterobjects_values = filter EXCEPTIONS error_in_filterobjects = 1 error_in_ale_customizing = 2 not_unique_receiver = 3 no_rfc_destination_maintained = 4 OTHERS = 5.

RFC_SYSTEM_INFO CALL FUNCTION 'RFC_SYSTEM_INFO' DESTINATION gr_dest-rfc_dest IMPORTING rfcsi_export = gr_rfcsi EXCEPTIONS system_failure = 1 communication_failure = 2 OTHERS = 3.

STRUCPACK_RELEASE_GET CALL FUNCTION 'STRUCPACK_RELEASE_GET' EXPORTING I_NAME_EXTENSION = 'SAP_HR' IMPORTING E_RELEASE = lv_release EXCEPTIONS STRUCPACK_NOT_INSTALLED = 1 NO_TSYST_ENTRY = 2 OTHERS = 3.

HRCA_CONTACT_MULTIPLE_READ CALL FUNCTION 'HRCA_CONTACT_MULTIPLE_READ' TABLES contact = cont contact_data = contdat EXCEPTIONS nothing_found = 1 ale_error = 2 OTHERS = 3.

BAPI_ADDRESSCONTPART_GETDETAIL CALL FUNCTION 'BAPI_ADDRESSCONTPART_GETDETAIL' DESTINATION fp_dest-rfc_dest EXPORTING obj_type_p = obj_cntc obj_id_p = cntc_id obj_type_c = obj_cust obj_id_c = cust_id * OBJ_ID_EXT = ' ' context = adrcont * IMPORTING * ADDRESS_NUMBER = * PERSON_NUMBER = TABLES bapiad3vl = cntc_data * BAPIADTEL = * BAPIADFAX = * BAPIADTTX = * BAPIADTLX = * BAPIADSMTP = * BAPIADRML = * BAPIADX400 = * BAPIADRFC = * BAPIADPRT = * BAPIADSSF = * BAPIADURI = * BAPIADPAG = * BAPICOMREM = return = return EXCEPTIONS system_failure = 1 communication_failure = 2 OTHERS = 3 .

FUNCTION_IMPORT_INTERFACE CALL FUNCTION 'FUNCTION_IMPORT_INTERFACE' EXPORTING funcname = fbname IMPORTING global_flag = global remote_call = remcall * UPDATE_TASK = TABLES exception_list = texcept export_parameter = texport import_parameter = timport * CHANGING_PARAMETER = tables_parameter = ttables * P_DOCU = EXCEPTIONS error_message = 1 function_not_found = 2 invalid_name = 3 OTHERS = 4 .

ADDR_TSAD3T_READ CALL FUNCTION 'ADDR_TSAD3T_READ' DESTINATION fp_dest-rfc_dest EXPORTING title_key = anrd_key language = fp_langu IMPORTING title_text = anrd_text EXCEPTIONS title_text_not_found = 1 title_key_not_found = 2 OTHERS = 3.

ADDR_TSAD3T_READ CALL FUNCTION 'ADDR_TSAD3T_READ' EXPORTING title_key = anrd_key language = fp_langu IMPORTING title_text = anrd_text EXCEPTIONS title_text_not_found = 1 title_key_not_found = 2 OTHERS = 3.

SDCA_CONTACT_GETLIST CALL FUNCTION 'SDCA_CONTACT_GETLIST' DESTINATION fp_dest-rfc_dest IMPORTING bapi_return = return TABLES contact_range = cont contact_data = contdat EXCEPTIONS system_failure = 1 communication_failure = 2 OTHERS = 3.

ALE_BAPI_GET_UNIQUE_RECEIVER





CALL FUNCTION 'ALE_BAPI_GET_UNIQUE_RECEIVER' EXPORTING object = obj_cntc method = obj_cntc_glst IMPORTING receiver = destination TABLES filterobjects_values = filter EXCEPTIONS error_in_filterobjects = 1 error_in_ale_customizing = 2 not_unique_receiver = 3 no_rfc_destination_maintained = 4 OTHERS = 5.

HRCA_CONTACT_MULTIPLE_READ CALL FUNCTION 'HRCA_CONTACT_MULTIPLE_READ' TABLES contact = cont contact_data = contdat EXCEPTIONS nothing_found = 1 ale_error = 2 OTHERS = 3.

BAPI_ADDRESSCONTPART_GETDETAIL CALL FUNCTION 'BAPI_ADDRESSCONTPART_GETDETAIL' DESTINATION fp_dest-rfc_dest EXPORTING obj_type_p = obj_cntc obj_id_p = cntc_id obj_type_c = obj_cust obj_id_c = cust_id * OBJ_ID_EXT = ' ' context = adrcont * IMPORTING * ADDRESS_NUMBER = * PERSON_NUMBER = TABLES bapiad3vl = cntc_data * BAPIADTEL = * BAPIADFAX = * BAPIADTTX = * BAPIADTLX = * BAPIADSMTP = * BAPIADRML = * BAPIADX400 = * BAPIADRFC = * BAPIADPRT = * BAPIADSSF = * BAPIADURI = * BAPIADPAG = * BAPICOMREM = return = return EXCEPTIONS system_failure = 1 communication_failure = 2 OTHERS = 3 .

SDCA_CONTACT_GETLIST CALL FUNCTION 'SDCA_CONTACT_GETLIST' DESTINATION fp_dest-rfc_dest IMPORTING bapi_return = return TABLES contact_range = cont contact_data = contdat EXCEPTIONS system_failure = 1 communication_failure = 2 OTHERS = 3.

ALE_BAPI_GET_UNIQUE_RECEIVER CALL FUNCTION 'ALE_BAPI_GET_UNIQUE_RECEIVER' EXPORTING object = obj_cntc method = obj_cntc_glst IMPORTING receiver = destination TABLES filterobjects_values = filter EXCEPTIONS error_in_filterobjects = 1 error_in_ale_customizing = 2 not_unique_receiver = 3 no_rfc_destination_maintained = 4 OTHERS = 5.

HRCA_CONTACT_MULTIPLE_READ CALL FUNCTION 'HRCA_CONTACT_MULTIPLE_READ' TABLES contact = cont contact_data = contdat EXCEPTIONS nothing_found = 1 ale_error = 2 OTHERS = 3.

BAPI_ADDRESSCONTPART_GETDETAIL CALL FUNCTION 'BAPI_ADDRESSCONTPART_GETDETAIL' DESTINATION fp_dest-rfc_dest EXPORTING obj_type_p = obj_cntc obj_id_p = cntc_id obj_type_c = obj_cust obj_id_c = cust_id * OBJ_ID_EXT = ' ' context = adrcont * IMPORTING * ADDRESS_NUMBER = * PERSON_NUMBER = TABLES bapiad3vl = cntc_data * BAPIADTEL = * BAPIADFAX = * BAPIADTTX = * BAPIADTLX = * BAPIADSMTP = * BAPIADRML = * BAPIADX400 = * BAPIADRFC = * BAPIADPRT = * BAPIADSSF = * BAPIADURI = * BAPIADPAG = * BAPICOMREM = return = return EXCEPTIONS system_failure = 1 communication_failure = 2 OTHERS = 3 .

SDCA_CONTACT_GETLIST CALL FUNCTION 'SDCA_CONTACT_GETLIST' DESTINATION fp_dest-rfc_dest IMPORTING bapi_return = return TABLES contact_range = cont contact_data = contdat EXCEPTIONS system_failure = 1 communication_failure = 2 OTHERS = 3.

SUSR_USER_ADDRESS_READ CALL FUNCTION 'SUSR_USER_ADDRESS_READ' EXPORTING user_name = bname IMPORTING * USER_ADDRESS = user_usr03 = usrdat EXCEPTIONS user_address_not_found = 1 OTHERS = 2.

RH_READ_OBJECT CALL FUNCTION 'RH_READ_OBJECT' EXPORTING plvar = fu_tab-plvar otype = fu_tab-otype * OBJID = realo = fu_tab-realo * ISTAT = ' ' begda = fu_tab-begda endda = fu_tab-endda langu = fu_langu * OINTERVAL = 'X' * STORE = 'X' * CHECK_STRU_AUTH = 'X' * READ_DB = ' ' IMPORTING obeg = fu_tab-begda oend = fu_tab-endda ostat = fu_tab-istat histo = fu_tab-histo short = bname stext = name EXCEPTIONS not_found = 1 OTHERS = 2.

SUSR_USER_ADDRESS_READ CALL FUNCTION 'SUSR_USER_ADDRESS_READ' EXPORTING user_name = bname IMPORTING * USER_ADDRESS = user_usr03 = usrdat EXCEPTIONS user_address_not_found = 1 OTHERS = 2.

RH_EDIT_NAME CALL FUNCTION 'RH_EDIT_NAME' EXPORTING * ADDRESSINFTY = ' ' format = en_formt nameinfty = en_b1034 nation = en_b1034-natio objectinfty = en_obj * OTHERINFTY = ' ' IMPORTING nametext = en_text EXCEPTIONS format_for_nation_not_found = 1 OTHERS = 2.

RH_READ_INFTY_1001 CALL FUNCTION 'RH_READ_INFTY_1001' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' * ISTAT = ' ' extend = 'X' subty = $parta begda = fm_ptab-begda endda = fm_ptab-endda * CONDITION = '00000' * SORT = 'X' * WITH_EV_FOR_INT = ' ' * ADATA = 'X' TABLES i1001 = fm_buftb objects = intobj EXCEPTIONS nothing_found = 1 wrong_condition = 2 OTHERS = 3.

RH_SET_DATE CALL FUNCTION 'RH_SET_DATE' EXPORTING beg_dat = ss_partab-begda end_dat = ss_partab-endda IMPORTING ret_dat = ss_datum EXCEPTIONS intervall_negative = 1 OTHERS = 2.

RH_READ_INFTY_1001_EXT CALL FUNCTION 'RH_READ_INFTY_1001_EXT' EXPORTING * AUTHORITY = 'DISP' * WITH_STRU_AUTH = 'X' istat = planed * EXTEND = 'X' subty = 'B027' begda = dbgda endda = denda * CONDITION = '00000' * SORT = 'X' * WITH_EV_FOR_INT = ' ' * ADATA = 'X' TABLES i1001 = i1001 objects = obj EXCEPTIONS nothing_found = 1 wrong_condition = 2 OTHERS = 3.

RH_SET_DATE CALL FUNCTION 'RH_SET_DATE' EXPORTING beg_dat = begda end_dat = endda IMPORTING ret_dat = sp_datum EXCEPTIONS intervall_negative = 1 OTHERS = 2.

RH_GET_ADDRESS CALL FUNCTION 'RH_GET_ADDRESS' EXPORTING plvar = adr_plvar otype = adr_typ * OBJID = '00000000' realo = adr_id * SUBTY = ' ' istat = active * Only the address which is valid on the current "RRV1131973 * system date should be read "RRV1131973 * begda = fa_datum "RRV1131973 * endda = fa_datum "RRV1131973 begda = sy-datum "RRV1131973 endda = sy-datum "RRV1131973 TABLES address = adr.

RH_GET_ADDRESS call function 'RH_GET_ADDRESS' exporting plvar = adr_plvar otype = adr_typ * OBJID = '00000000' realo = adr_id * SUBTY = ' ' istat = active begda = fa_datum endda = fa_datum tables address = adr.

RH_GET_ADDRESS CALL FUNCTION 'RH_GET_ADDRESS' EXPORTING plvar = adr_plvar otype = adr_typ * OBJID = '00000000' realo = adr_id * SUBTY = ' ' istat = '1' begda = fa_datum endda = fa_datum TABLES address = adr.

RH_GET_ADDRESS CALL FUNCTION 'RH_GET_ADDRESS' EXPORTING plvar = fa_obj-plvar otype = fa_obj-otype * OBJID = '00000000' realo = fa_obj-realo * SUBTY = ' ' istat = '1' begda = fa_obj-begda endda = fa_obj-endda TABLES address = adr EXCEPTIONS OTHERS = 01.




RH_GET_COMPANY CALL FUNCTION 'RH_GET_COMPANY' EXPORTING begda = ro_datum endda = ro_datum sort = ' ' TABLES objects = obj company_tab = comp EXCEPTIONS nothing_found = 02 no_participant = 03 no_single_part = 04 no_orway_in_t77r3 = 05 OTHERS = 99.

RH_READ_INFTY_NNNN call function 'RH_READ_INFTY_NNNN' exporting * AUTHORITY = 'DISP' with_stru_auth = ' ' infty = '0006' * ISTAT = ' ' * EXTEND = 'X' * SUBTY = ' ' begda = iv_begda endda = iv_begda * CONDITION = '00000' * INFTB = '1' * SORT = 'X' tables innnn = et_adr objects = it_object exceptions nothing_found = 1 wrong_condition = 2 infotyp_not_supported = 3 others = 4.



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