MIEQ0F90 SAP ABAP INCLUDE - documentation and ABAP source code
MIEQ0F90 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 MIEQ0F90 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 MIEQ0F90. "Basic submit
SUBMIT MIEQ0F90 AND RETURN. "Return to original report after report execution complete
SUBMIT MIEQ0F90 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
INCLUDES used within this REPORT MIEQ0F90
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:
EQUIPMENT_INHERITANCE_ACTIVATE CALL FUNCTION 'EQUIPMENT_INHERITANCE_ACTIVATE'.
SET_TEXT_OBJECT CALL FUNCTION 'SET_TEXT_OBJECT' TABLES textobjects = textobjects EXCEPTIONS OTHERS = 1.
SET_TEXT_OBJECT CALL FUNCTION 'SET_TEXT_OBJECT' EXPORTING textobject = textname.
CLFM_SET_OBJECTS CALL FUNCTION 'CLFM_SET_OBJECTS' TABLES objects = eq_objtab EXCEPTIONS object_not_found = 1 OTHERS = 2.
WARRANTY_DEFAULTS_GET CALL FUNCTION 'WARRANTY_DEFAULTS_GET' EXPORTING i_equi = equi i_insert_flag = yx.
CLO0_DDB_OBJ_VALUATION_OPEN CALL FUNCTION 'CLO0_DDB_OBJ_VALUATION_OPEN' EXPORTING classtype_imp = rm63e-klassenart class_imp = rm63e-klasse display_modus = space object_imp = l_objnr obj_structure_imp = l_obtab show_all_values = itob_bool-false EXCEPTIONS OTHERS = 0.
CLO0_DDB_OBJ_VALUATION_CLOSE CALL FUNCTION 'CLO0_DDB_OBJ_VALUATION_CLOSE' EXCEPTIONS OTHERS = 0.
CLO0_DDB_SAVE CALL FUNCTION 'CLO0_DDB_SAVE'.
OBJECT_NUMBER_GET_IE CALL FUNCTION 'OBJECT_NUMBER_GET_IE' EXPORTING equnr = equi-equnr IMPORTING objnr = equi-objnr.
STATUS_OBJECT_SWITCH_NUMBER CALL FUNCTION 'STATUS_OBJECT_SWITCH_NUMBER' EXPORTING objnr_new = equi-objnr objnr_old = x_objnr_temp.
WARRANTY_SWITCH_OBJNR CALL FUNCTION 'WARRANTY_SWITCH_OBJNR' EXPORTING objnr_old = x_objnr_temp objnr_new = equi-objnr.
PM_SP_CALL_VB CALL FUNCTION 'PM_SP_CALL_VB' EXPORTING i_objnr = equi-objnr * I_TPLNR = TABLES ihobj = ihobjnr.
PM_PARTNER_CALL_VB CALL FUNCTION 'PM_PARTNER_CALL_VB' EXPORTING objnr = equi-objnr objnr_temp = x_objnr_temp.
OBJECT_SET_ACCESS_LEVEL CALL FUNCTION 'OBJECT_SET_ACCESS_LEVEL' "P9CK140177 EXPORTING "P9CK140177 id_objnr = equi-objnr "P9CK140177 id_level = gc_level_equi-ieq0. "P9CK140177
OBJECT_SET_ACCESS_LEVEL CALL FUNCTION 'OBJECT_SET_ACCESS_LEVEL' "P9CK140177 EXPORTING "P9CK140177 id_objnr = equi-objnr "P9CK140177 id_level = gc_level_equi-ibip. "P9CK140177
EQUIPMENT_SAVE CALL FUNCTION 'EQUIPMENT_SAVE' EXPORTING * I_HANDLE = G_ITOB_HANDLE i_activity_type = x_xaktyp i_itob_type = object_type i_serial_to_equi = risa0-equpd i_equi_old = *equi i_eqkt_old = *eqkt i_equz_old = *equz i_iloa_old = *iloa i_efhm_old = *efhm i_eqbs_old = *eqbs i_fleet_old = *fleet i_date = x_equz_date i_time = x_equz_time i_no_data_check = itob_bool-true i_no_extnum_check = itob_bool-true i_sync_asset = g_pmaa_active i_write_cdocs = x_xaebkz i_status_cdocs = ind_upd_st i_success_message = itob_bool-true "P9CK023220 * I_POST_DIRECTLY = * I_COMMIT_WORK = CHANGING c_equi_rec = equi c_eqkt_rec = eqkt c_equz_rec = equz c_iloa_rec = iloa c_efhm_rec = efhm c_eqbs_rec = eqbs c_fleet_rec = fleet.
MEASUREM_OBJECT_SWITCH_NUMBER CALL FUNCTION 'MEASUREM_OBJECT_SWITCH_NUMBER' EXPORTING objnr_new = equi-objnr objnr_old = x_objnr_temp.
SET_EQUI_TO_EQUI_HIERARCHY CALL FUNCTION 'SET_EQUI_TO_EQUI_HIERARCHY' EXPORTING location = iloa-tplnr hequ_tab = equi_tab "P9CK169548 hequ_bef = equi_bef. "P9CK169548
CALL FUNCTION 'COMPARE_STRUCTURE_DATA' "P9CK019947 EXPORTING "P9CK019947 i_ddic_name = 'EQUI_INHER' "P9CK019947 i_rec_old = old_vequi "P9CK019947 i_rec_new = v_equi "P9CK019947 i_check_mode = ' ' "P9CK019947 IMPORTING "P9CK019947 e_is_diff = l_do_equi_inher. "P9CK019947
INHERITANCE_FRAME_PROGRAM CALL FUNCTION 'INHERITANCE_FRAME_PROGRAM' EXPORTING ddic_name_source_object = y_tobjn_equi source_equi = v_equi i_do_equi_inher = l_do_equi_inher "P9CK019947 IMPORTING inheritance_breaks = ind_inheritance_breaks ind_address_change = lv_address_change.
ADDR_MEMORY_SAVE CALL FUNCTION 'ADDR_MEMORY_SAVE' EXPORTING execute_in_update_task = 'X' EXCEPTIONS OTHERS = 1.
NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING nr_range_nr = t370t-numki object = 'EQUIP_NR' IMPORTING number = rm63e-equnr returncode = l_error_numbering EXCEPTIONS interval_not_found = 1.
NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING nr_range_nr = '00' object = 'ILOA' IMPORTING number = iloa-iloan returncode = l_error_numbering EXCEPTIONS interval_not_found = 1.
RS_HDSYS_GET_TCODE CALL FUNCTION 'RS_HDSYS_GET_TCODE' IMPORTING tcode = l_tcode param_tcode = l_param_tcode variant = l_variant flag_client_independent = l_flag_client_independent rc = l_rc.
RS_HDSYS_CALL_TC_VARIANT CALL FUNCTION 'RS_HDSYS_CALL_TC_VARIANT' EXPORTING tcode = l_tcode variant = l_variant authority_check = space variant_check = space i_flag_client_independent = l_flag_client_independent call_mode = space EXCEPTIONS OTHERS = 0. "cannot occur
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 MIEQ0F90 or its description.