SAP Reports / Programs | Logistics - General | Product Data Management | Product Structure Browser(LO-PDM-GF-OBR) SAP LO
RCPDMCLASSEQUIPMENTIMP SAP ABAP INCLUDE - Implementation of ABAP class EQUIPMENT
RCPDMCLASSEQUIPMENTIMP 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 RCPDMCLASSEQUIPMENTIMP 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 RCPDMCLASSEQUIPMENTIMP. "Basic submit
SUBMIT RCPDMCLASSEQUIPMENTIMP AND RETURN. "Return to original report after report execution complete
SUBMIT RCPDMCLASSEQUIPMENTIMP VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Implementation of ABAP class EQUIPMENT
INCLUDES used within this REPORT RCPDMCLASSEQUIPMENTIMP
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:
STATUS_BUFFER_REFRESH CALL FUNCTION 'STATUS_BUFFER_REFRESH' EXPORTING i_free = space.
ITOB_BUF_CLEANUP CALL FUNCTION 'ITOB_BUF_CLEANUP' "588781 EXCEPTIONS "588781 OTHERS = 0 "588781 . "588781
EQUIPMENT_SUCCESSORS CALL FUNCTION 'EQUIPMENT_SUCCESSORS' EXPORTING equi_no = equipmentnumber reading_date = validfrom
TABLES equi_tab = equi_tab
EXCEPTIONS no_successors = 01 succ_read_error = 02.
DOKUMENTE_ZU_OBJEKT CALL FUNCTION 'DOKUMENTE_ZU_OBJEKT' EXPORTING key = aux_objky objekt = equi_dokob
TABLES doktab = doc_tab
EXCEPTIONS kein_dokument = 01.
CLCV_CONVERT_FIELDS_TO_OBJECT CALL FUNCTION 'CLCV_CONVERT_FIELDS_TO_OBJECT' EXPORTING rmclfstru = aux_rmclf table = table_equi
IMPORTING rmclfstru = aux_rmclf tcode = syst-tcode
EXCEPTIONS tclo_not_found = 04.
CLAP_DDB_GET_CLASSIFICATION CALL FUNCTION 'CLAP_DDB_GET_CLASSIFICATION' EXPORTING object = aux_rmclf-objek obtab = table_equi standard_type_only = space object_eq_class = space spras = syst-langu only_varklart = varklart pobtab = pobtab date_of_change = validfrom read_only = read_only
TABLES allocations = aux_class_tab
EXCEPTIONS no_allocation = 01 set_aennr = 02 change_nr_not_exist = 03 date_in_past = 04 error_class = 05 error_date_restriction = 06 error_status = 07.
CLAP_DDB_INIT_CLASSIFICATION CALL FUNCTION 'CLAP_DDB_INIT_CLASSIFICATION'.
GET_EQST_AOV CALL FUNCTION 'GET_EQST_AOV' EXPORTING no_buffer = cross
TABLES eqstb_tab = aux_eqstb_tab
CHANGING wa_eqstb_tab = aux_eqstb_wa
EXCEPTIONS call_invalid = 01 end_of_table = 02 key_incomplete = 03 key_invalid = 04 no_record_found = 05.
CS_ALT_SELECT_EQUI CALL FUNCTION 'CS_ALT_SELECT_EQUI' EXPORTING datuv = validfrom equnr = equipmentnumber stlan = aux_eqstb_wa-stlan swerk = aux_eqstb_wa-werks
TABLES eqstb_wa = aux_eqstb_tab1 stkob_wa = aux_stkob_tab stzub_wa = aux_stzub_tab
EXCEPTIONS bom_not_active = 01 bom_not_found = 02 no_alt_found = 03 no_bom_found = 04.
CP_CC_S_LOAD_COMPLEX_BY_OPR CALL FUNCTION 'CP_CC_S_LOAD_COMPLEX_BY_OPR' EXPORTING i_class = class_p i_classes_in_workarea = workarea i_cpsc_prt_sel = prt_sel i_date_from = validfrom i_date_to = validfrom
IMPORTING e_opr_ident = opr_ident
EXCEPTIONS workarea_not_found = 01 workarea_wrong_type = 02 class_wrong_type = 03 class_in_workarea_inconsistent = 04 workarea_not_specified = 05 opr_not_found = 06 no_selection_criteria = 07 invalid_selection_period = 08 key_date_required_for_ecm = 09.
CA_BUILD_OBJECT_KEYFIELDSTRING CALL FUNCTION 'CA_BUILD_OBJECT_KEYFIELDSTRING' EXPORTING object_type = equipment_objtp
IMPORTING objkey = aux_objkey
TABLES object_type_keyfield_values = obj_inst_key
EXCEPTIONS invalid_object_type_key_fields = 01 object_type_not_existent = 02.
SO_OBJECT_REFERENCES_IN_OFO CALL FUNCTION 'SO_OBJECT_REFERENCES_IN_OFO' EXPORTING object = aux_swotobjid owner = syst-uname
TABLES object_folder = aux_sood4.
EQUIPMENT_RFC_CREATE CALL FUNCTION 'EQUIPMENT_RFC_CREATE' EXPORTING hequi = equipmentnumber
IMPORTING new_equipment = new_equnr new_superior_equipment = superior_equi new_superior_location = superior_floc.
EQUIPMENT_RFC_INSTALL CALL FUNCTION 'EQUIPMENT_RFC_INSTALL' EXPORTING source_equi = aux_sub_equnr destination_equi = aux_sup_equnr destination_iflo = aux_sup_tplnr
IMPORTING new_source_equi = aux_equnr new_destination_equi = aux_equnr1 new_destination_iflo = aux_tplnr popup_ok_code = aux_fcode.
PM_OBJECT_RFC_ACTIVITY CALL FUNCTION 'PM_OBJECT_RFC_ACTIVITY' EXPORTING st_vrgng = y_st_vrgng_lvms equnr = equipmentnumber
IMPORTING new_equnr = aux_equnr new_tplnr = aux_tplnr popup_ok_code = aux_fcode
TABLES equipments = aux_equnr_tab locations = aux_tplnr_tab.
PM_OBJECT_RFC_ACTIVITY CALL FUNCTION 'PM_OBJECT_RFC_ACTIVITY' EXPORTING st_vrgng = y_st_vrgng_lvmz equnr = equipmentnumber
IMPORTING new_equnr = aux_equnr new_tplnr = aux_tplnr popup_ok_code = aux_fcode
TABLES equipments = aux_equnr_tab locations = aux_tplnr_tab.
PM_OBJECT_RFC_ACTIVITY CALL FUNCTION 'PM_OBJECT_RFC_ACTIVITY' EXPORTING st_vrgng = y_st_vrgng_inak equnr = equipmentnumber
IMPORTING new_equnr = aux_equnr new_tplnr = aux_tplnr popup_ok_code = aux_fcode
TABLES equipments = aux_equnr_tab locations = aux_tplnr_tab.
PM_OBJECT_RFC_ACTIVITY CALL FUNCTION 'PM_OBJECT_RFC_ACTIVITY' EXPORTING st_vrgng = y_st_vrgng_inaz equnr = equipmentnumber
IMPORTING new_equnr = aux_equnr new_tplnr = aux_tplnr popup_ok_code = aux_fcode
TABLES equipments = aux_equnr_tab locations = aux_tplnr_tab.
CALL FUNCTION 'EQUIPMENT_RFC_DISMANTLE' EXPORTING source_equi = me->equipmentnumber
IMPORTING new_source_equi = aux_equnr popup_ok_code = aux_fcode.
EQUIPMENT_RFC_MOVE CALL FUNCTION 'EQUIPMENT_RFC_MOVE' EXPORTING source_equi = me->equipmentnumber destination_equi = i_superior_equi destination_iflo = i_superior_floc
IMPORTING new_source_equi = aux_equnr new_destination_equi = aux_hequi_new new_destination_iflo = aux_tplma_new old_superior_equipment = aux_hequi_old old_superior_location = aux_tplma_old popup_ok_code = aux_fcode.
EQUIPMENT_RFC_COPYTREE CALL FUNCTION 'EQUIPMENT_RFC_COPYTREE' EXPORTING source_equi = equipmentnumber destination_equi = i_superior_equi destination_iflo = i_superior_floc
IMPORTING new_source_equi = aux_equnr new_destination_equi = aux_hequi_new new_destination_iflo = aux_tplnr_new old_superior_equipment = aux_hequi_old old_superior_location = aux_tplnr_old popup_itobcp = copy_options popup_ok_code = aux_fcode
TABLES old_2_new_equis = aux_equnr_trans.
AUTHORITY_CHECK_TCODE CALL FUNCTION 'AUTHORITY_CHECK_TCODE' EXPORTING tcode = tcode
EXCEPTIONS ok = 00 not_ok = 01.
AUTHORITY_CHECK_TCODE CALL FUNCTION 'AUTHORITY_CHECK_TCODE' EXPORTING tcode = tcode
EXCEPTIONS ok = 00 not_ok = 01.
AUTHORITY_CHECK_TCODE CALL FUNCTION 'AUTHORITY_CHECK_TCODE' EXPORTING tcode = tcode
EXCEPTIONS ok = 00 not_ok = 01.
AUTHORITY_CHECK_TCODE CALL FUNCTION 'AUTHORITY_CHECK_TCODE' EXPORTING tcode = tcode
EXCEPTIONS ok = 00 not_ok = 01.
BAPI_DOCUMENT_CHANGE2 CALL FUNCTION 'BAPI_DOCUMENT_CHANGE2' EXPORTING documentnumber = document_inst->documentnumber documenttype = document_inst->documenttype documentpart = document_inst->documentpart documentversion = document_inst->documentversion documentdata = lcl_doc_data documentdatax = lcl_doc_datax
IMPORTING return = lcl_return
TABLES objectlinks = lcl_obj_links.
TCODE_INST_AUTHORITY_CHECK CALL FUNCTION 'TCODE_INST_AUTHORITY_CHECK' "647237 EXPORTING TCODE = tcode_ie03 "647237 EXCEPTIONS OTHERS = 1. "647237
EQUIPMENT_READ CALL FUNCTION 'EQUIPMENT_READ' EXPORTING check_auth = cross i_tcode = tcode_ie03 equi_no = equipmentnumber reading_date = validfrom
IMPORTING eqkt = aux_eqkt equi = aux_equi equz = aux_equz iloa = aux_iloa
EXCEPTIONS auth_no_begrp = 01 auth_no_iwerk = 02 auth_no_swerk = 03 eqkt_not_found = 04 equi_not_found = 05 equz_not_found = 06 iloa_not_found = 07 auth_no_ingrp = 08 auth_no_kostl = 08 auth_no_badi = 08 "P6BK076706 err_handle = 09 lock_failure = 10.
C_PDM_APPLY_FILTER_TO_OBJECT CALL FUNCTION 'C_PDM_APPLY_FILTER_TO_OBJECT' EXPORTING object_type = equipment check_form = filter_equipment_form check_program = filter_equipment_program equipment_data = aux_equipment_data validfrom = validfrom
IMPORTING check_ok = check_ok.
IMAS_CHECK_STATUS_MULTI CALL FUNCTION 'IMAS_CHECK_STATUS_MULTI' EXPORTING i_status_tab = aux_status_tab
CHANGING c_objnr_status_tab = aux_objnr_status_tab.
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 RCPDMCLASSEQUIPMENTIMP or its description.
RCPDMCLASSEQUIPMENTIMP - Implementation of ABAP class EQUIPMENT RCPDMCLASSEQUIPMENTDEF - Definition of ABAP class EQUIPMENT RCPDMCLASSECMIMP - Implementation of ABAP class ECM RCPDMCLASSECMDEF - Definition of ABAP class ECM RCPDMCLASSDOCUMENTIMP - Implementation of ABAP class DOCUMENT RCPDMCLASSDOCUMENTDEF - Definition of ABAP class DOCUMENT