SAP Reports / Programs | Rotables Management | Aerospace & Defence Industry Solution | Rotables Management(IS-AD-ROT) SAP IS
ADROT_COIH SAP ABAP INCLUDE - ADROTCOIH
ADROT_COIH 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 ADROT_COIH 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 ADROT_COIH. "Basic submit
SUBMIT ADROT_COIH AND RETURN. "Return to original report after report execution complete
SUBMIT ADROT_COIH 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 ADROT_COIH
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:
CO_DB_HEADER_READ CALL FUNCTION 'CO_DB_HEADER_READ' EXPORTING aufnr = caufvd-aufnr IMPORTING afpowa = ls_afpo.
MATERIAL_READ CALL FUNCTION 'MATERIAL_READ' EXPORTING schluessel = ls_mtcom IMPORTING matdaten = msfcv return = ls_mtcor EXCEPTIONS material_not_found = 1 plant_not_found = 2 account_not_found = 3.
ADSUB_EVALUATE_T417 CALL FUNCTION 'ADSUB_EVALUATE_T417' IMPORTING ev_beikz_x = lv_beikz_x ev_beikz_s = lv_beikz_s EXCEPTIONS beikz_x_not_found = 1 beikz_s_not_found = 2.
CO_TA_T156_READ CALL FUNCTION 'CO_TA_T156_READ' EXPORTING t156_bwart =
-bwart IMPORTING t156wa = t156 EXCEPTIONS not_found = 1.
ME_READ_REQUISITION_EXT CALL FUNCTION 'ME_READ_REQUISITION_EXT' EXPORTING i_banfn =
-banfn i_bnfpo = -bnfpo IMPORTING e_eban = ls_eban EXCEPTIONS not_found = 1.
ME_EKPO_READ_WITH_EBELN CALL FUNCTION 'ME_EKPO_READ_WITH_EBELN' EXPORTING pi_ebeln = ls_eban-ebeln TABLES pto_ekpo = lt_ekpo EXCEPTIONS err_no_records_found = 1.
CO_BC_RESBD_TAB_TO_ORDER_GET CALL FUNCTION 'CO_BC_RESBD_TAB_TO_ORDER_GET' EXPORTING aufnr_imp = caufvd-aufnr rsnum_imp = caufvd-rsnum TABLES resbd_tab = rot_resbd.
CO_TA_T156_READ CALL FUNCTION 'CO_TA_T156_READ' EXPORTING t156_bwart = rot_resbd-bwart IMPORTING t156wa = t156 EXCEPTIONS not_found = 1 OTHERS = 2.
VB_BATCH_GET_DETAIL CALL FUNCTION 'VB_BATCH_GET_DETAIL' EXPORTING matnr = afpod-matnr charg = afpod-charg werks = afpod-dwerk IMPORTING ymcha = ls_mcha.
BAPI_GOODSMVT_CREATE CALL FUNCTION 'BAPI_GOODSMVT_CREATE' EXPORTING goodsmvt_header = bapigmhead goodsmvt_code = bapigmcode IMPORTING goodsmvt_headret = bapigmheadret TABLES return = xemseg goodsmvt_item = ximseg.
VB_BATCH_GET_DETAIL CALL FUNCTION 'VB_BATCH_GET_DETAIL' EXPORTING matnr = afpod-matnr charg = afpod-charg werks = afpod-dwerk IMPORTING ymcha = ls_mcha.
BAPI_GOODSMVT_CREATE CALL FUNCTION 'BAPI_GOODSMVT_CREATE' EXPORTING goodsmvt_header = bapigmhead goodsmvt_code = bapigmcode IMPORTING goodsmvt_headret = bapigmheadret TABLES return = xemseg goodsmvt_item = ximseg goodsmvt_serialnumber = xsernr.
MATERIAL_READ CALL FUNCTION 'MATERIAL_READ' EXPORTING schluessel = mtcom IMPORTING matdaten = msfcv return = mtcor EXCEPTIONS material_not_found = 1 plant_not_found = 2 account_not_found = 3.
CONVERSION_EXIT_ABPSP_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT' EXPORTING input = afpod-projn IMPORTING output = ximseg-val_wbs_elem.
BAPI_GOODSMVT_CREATE CALL FUNCTION 'BAPI_GOODSMVT_CREATE' EXPORTING goodsmvt_header = bapigmhead goodsmvt_code = bapigmcode testrun = rot_test IMPORTING goodsmvt_headret = bapigmheadret TABLES return = xemseg goodsmvt_item = ximseg.
CONVERSION_EXIT_ABPSP_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_ABPSP_OUTPUT' EXPORTING input = afpod-projn IMPORTING output = ximseg-val_wbs_elem.
BAPI_GOODSMVT_CREATE CALL FUNCTION 'BAPI_GOODSMVT_CREATE' EXPORTING goodsmvt_header = bapigmhead goodsmvt_code = bapigmcode testrun = rot_test IMPORTING goodsmvt_headret = bapigmheadret TABLES return = xemseg goodsmvt_item = ximseg goodsmvt_serialnumber = xsernr.
SERIALNUMBER_READ * CALL FUNCTION 'SERIALNUMBER_READ' * EXPORTING * MATNR = rot_wa_selected-matnr * SERNR = rot_wa_selected-sernr * CHECK_EQUI_EXIST = yx * IMPORTING * EQUI = rot_equi.
CALL FUNCTION 'ITOB_SERIALNO_READ_SINGLE' EXPORTING i_lock = ' ' i_matnr = p_matnr i_sernr = rot_wa_selected-sernr IMPORTING e_object_rec = l_object_rec_old EXCEPTIONS not_successful = 1.
ITOB_BUF_CLEANUP * call function 'ITOB_BUF_CLEANUP' * exporting * i_read_buffer = yx * i_write_buffer = space * i_reset_lock = space * changing * c_itob_key_tab = rot_itob_key_tab * exceptions * not_successful = 1 * others = 2.
ITOB_BUF_CLEANUP CALL FUNCTION 'ITOB_BUF_CLEANUP' EXPORTING i_reset_lock = 'X' CHANGING c_itob_key_tab = rot_itob_key_tab.
ITOB_EQUIPMENT_UNLOCK_SINGLE CALL FUNCTION 'ITOB_EQUIPMENT_UNLOCK_SINGLE' EXPORTING i_objnr = rot_itob_key_rec-equnr i_unlock_fully = 'X'.
DEQUEUE_ALL CALL FUNCTION 'DEQUEUE_ALL'.
SERIAL_EXISTENCE_CHECK CALL FUNCTION 'SERIAL_EXISTENCE_CHECK' EXPORTING material = rot_afpod-matnr serialnr = rot_wa_output-sernr EXCEPTIONS ser_exist = 1 ser_not_exist = 2.
CO_BC_RESBBT_GET CALL FUNCTION 'CO_BC_RESBBT_GET' EXPORTING aufnr_imp = caufvd-aufnr TABLES resbbt_exp = lt_resbx.
CO_BC_SWAP_ACCOUNT_ASSIGNMENT CALL FUNCTION 'CO_BC_SWAP_ACCOUNT_ASSIGNMENT' EXPORTING aufpl_imp = caufvd-aufpl autyp_imp = caufvd-autyp kdauf_new = caufvd-kdauf_aufk kdauf_old = *caufvd-kdauf_aufk kdpos_new = caufvd-kdpos_aufk kdpos_old = *caufvd-kdpos_aufk EXCEPTIONS init_rejected = 1.
CO_BI_AFPO_UPD CALL FUNCTION 'CO_BI_AFPO_UPD' EXPORTING afpowa = afpod EXCEPTIONS error_read_afpo = 1 OTHERS = 2.
MATERIAL_READ CALL FUNCTION 'MATERIAL_READ' EXPORTING schluessel = mtcom IMPORTING matdaten = msfcv return = mtcor EXCEPTIONS material_not_found = 1 plant_not_found = 2 account_not_found = 3.
CO_ZF_CHECK_MATSTAT_POS CALL FUNCTION 'CO_ZF_CHECK_MATSTAT_POS' EXPORTING matnr_imp = caufvd-matnr werks_imp = caufvd-werks mmsta_imp = msfcv-mmsta mstae_imp = msfcv-mstae.
CO_ZF_MAINTSTAT_INHOUSE_CHECK CALL FUNCTION 'CO_ZF_MAINTSTAT_INHOUSE_CHECK' EXPORTING pstat_imp = mtcom-pstat matnr_imp = caufvd-matnr fstat_imp = mtcor-fstat.
CO_ZF_MATERIAL_DATA_TRANSFER CALL FUNCTION 'CO_ZF_MATERIAL_DATA_TRANSFER' EXPORTING caufvd_imp = caufvd msfcv_imp = msfcv afpod_imp = afpod IMPORTING caufvd_exp = caufvd afpod_exp = afpod.
ITOB_EQUIPMENT_LOCK_SINGLE CALL FUNCTION 'ITOB_EQUIPMENT_LOCK_SINGLE' EXPORTING i_objnr = caufvd-equnr EXCEPTIONS not_successful = 1 OTHERS = 2.
EQUIPMENT_READ CALL FUNCTION 'EQUIPMENT_READ' EXPORTING equi_no = caufvd-equnr IMPORTING equi = rot_equi eqkt = rot_eqkt eqbs = rot_eqbs equz = rot_equz "EHP605 ROTSUB EXCEPTIONS OTHERS = 0.
CO_DB_MATERIAL_MARD_READ CALL FUNCTION 'CO_DB_MATERIAL_MARD_READ' EXPORTING mtcomwa = mtcom IMPORTING matdaten = mard return = mtcor EXCEPTIONS not_found = 01.
CO_TA_T156_READ CALL FUNCTION 'CO_TA_T156_READ' EXPORTING t156_bwart = cl_rotsub_assist=>gc_bustr_m2m IMPORTING t156wa = ls_t156 EXCEPTIONS not_found = 1.
MATERIAL_READ CALL FUNCTION 'MATERIAL_READ' EXPORTING schluessel = mtcom IMPORTING matdaten = msfcv return = mtcor EXCEPTIONS account_not_found = 01 batch_not_found = 02 "Charge nicht gefunden forecast_not_found = 03 lock_on_account = 04 lock_on_material = 05 lock_on_plant = 06 lock_on_sales = 07 lock_on_sloc = 08 lock_system_error = 09 material_not_found = 10 "Material nicht gefunden plant_not_found = 11 "Werksdaten nicht da sales_not_found = 12 "Verkaufsdaten nicht da sloc_not_found = 13 "Lagerortdaten nicht da slocnumber_not_found = 14 sloctype_not_found = 15 text_not_found = 16 "Kurztext nicht da unit_not_found = 17. "Umrechfak zur Me nicht da
CP_CHK_KOKRS_TO_PLANT CALL FUNCTION 'CP_CHK_KOKRS_TO_PLANT' EXPORTING werks = rot_afpod-pwerk IMPORTING e_kokrs = h_kokrs.
CO_ZF_BWTAR_CHECK CALL FUNCTION 'CO_ZF_BWTAR_CHECK' EXPORTING bwkey_imp = t001w-bwkey bwtar_imp = rot_afpod-bwtar bwtty_imp = rot_afpod-bwtty matnr_imp = rot_afpod-matnr werks_imp = rot_afpod-pwerk EXCEPTIONS no_bwtar_given = 1.
SERNR_ADD_TO_PP CALL FUNCTION 'SERNR_ADD_TO_PP' EXPORTING profile = afpod-sernp "material = afpod-matnr "EHP605 material = lv_matnr_rot_sern_set "EHP605 quantity = 1 ppaufnr = caufvd-aufnr ppposnr = caufvd-posnr ppautyp = caufvd-autyp ppaufart = caufvd-auart pmrsord = caufvd-rsord ppwerk = caufvd-werks IMPORTING anzsn = afpod-anzsn TABLES sernos = rot_sernr EXCEPTIONS konfigurations_error = 1 serialnumber_errors = 2 serialnumber_warnings = 3 no_profile_operation = 4 OTHERS = 5.
CO_BI_AFPO_UPD CALL FUNCTION 'CO_BI_AFPO_UPD' EXPORTING afpowa = afpod EXCEPTIONS error_read_afpo = 1 OTHERS = 2.
VB_NEXT_BATCH_NUMBER CALL FUNCTION 'VB_NEXT_BATCH_NUMBER' EXPORTING matnr = rot_afpod-matnr werks = rot_afpod-pwerk check_batch = yx message_when_auto = yx x_bncom = ls_bncom "1855555 lock_batch = yx IMPORTING new_charg = rot_afpod-charg EXCEPTIONS no_material = 1 no_plant = 2 material_not_found = 3 plant_not_found = 4 no_batch_handling = 5 batch_exist = 6 no_number = 7 illegal_batch_number = 8 interval_not_found = 9 object_not_found = 10 interval_overflow = 11 error_automatic_batch_number = 12 cancelled = 13 OTHERS = 14.
SERIALNUMBER_READ CALL FUNCTION 'SERIALNUMBER_READ' "<<<511013 EXPORTING matnr = caufvd-matnr sernr = caufvd-serialnr IMPORTING equi = rot_equi eqkt = rot_eqkt eqbs = rot_eqbs equz = rot_equz "EHP605 BP090505 equi_exist = lv_full_equi EXCEPTIONS equi_not_found = 1 authority_is_missing = 2 err_handle = 3 lock_failure = 4 OTHERS = 5.
ITOB_EQUIPMENT_LOCK_SINGLE CALL FUNCTION 'ITOB_EQUIPMENT_LOCK_SINGLE' EXPORTING i_objnr = rot_equi-equnr EXCEPTIONS not_successful = 1 OTHERS = 2.
CO_BI_AFPO_UPD CALL FUNCTION 'CO_BI_AFPO_UPD' "N513136 EXPORTING afpowa = afpod EXCEPTIONS error_read_afpo = 1 OTHERS = 2.
ITOB_EQUIPMENT_LOCK_SINGLE CALL FUNCTION 'ITOB_EQUIPMENT_LOCK_SINGLE' "N525196 EXPORTING i_objnr = rot_equi-equnr EXCEPTIONS not_successful = 1 OTHERS = 2.
PM_PARTNER_DETERMINE CALL FUNCTION 'PM_PARTNER_DETERMINE' "note 527308 EXPORTING date = caufvd-gstrp time = caufvd-gsuzp equnr = caufvd-equnr tplnr = caufvd-tplnr objnr = caufvd-objnr.
SERIALNUMBER_READ CALL FUNCTION 'SERIALNUMBER_READ' EXPORTING equnr = caufvd-equnr matnr = caufvd-matnr sernr = caufvd-serialnr IMPORTING equi = rot_equi eqkt = rot_eqkt eqbs = rot_eqbs equi_exist = rot_full_equi EXCEPTIONS equi_not_found = 1 authority_is_missing = 2 err_handle = 3 lock_failure = 4 OTHERS = 5.
ITOB_EQUIPMENT_LOCK_SINGLE CALL FUNCTION 'ITOB_EQUIPMENT_LOCK_SINGLE' "N525196 EXPORTING i_objnr = rot_equi-equnr EXCEPTIONS not_successful = 1 OTHERS = 2.
PM_PARTNER_DETERMINE CALL FUNCTION 'PM_PARTNER_DETERMINE' "note 527308 EXPORTING date = caufvd-gstrp time = caufvd-gsuzp equnr = caufvd-equnr tplnr = caufvd-tplnr objnr = caufvd-objnr.
PM_SD_CONTRACT_CHECK CALL FUNCTION 'PM_SD_CONTRACT_CHECK' EXPORTING vbeln = rot_eqbs-kdauf vposn = rot_eqbs-kdpos date = lv_date time = sy-uzeit equnr = caufvd-equnr tplnr = caufvd-tplnr werks = caufvd-werks kokrs = caufvd-kokrs matnr = caufvd-sermat kunum = caufvd-kunum IMPORTING x_ps_psp_pnr = caufvd-pspel EXCEPTIONS no_contract = 1.
CO_BI_AFPO_UPD CALL FUNCTION 'CO_BI_AFPO_UPD' "N509147 EXPORTING afpowa = afpod EXCEPTIONS error_read_afpo = 1 OTHERS = 2.
CONVERSION_EXIT_ALPHA_INPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT' EXPORTING input = rot_eqbs-kunnr IMPORTING output = rot_eqbs-kunnr.
POPUP_TO_DISPLAY_TEXT CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT' EXPORTING titel = rot_eqbs-kunnr textline1 = text-a03 textline2 = text-a02.
POPUP_TO_DISPLAY_TEXT CALL FUNCTION 'POPUP_TO_DISPLAY_TEXT' EXPORTING titel = rot_eqbs-kunnr textline1 = text-a01 textline2 = text-a02.
PM_PARTNER_GET CALL FUNCTION 'PM_PARTNER_GET' "note 527308 EXPORTING objnr = caufvd-objnr TABLES ihpa_tab = lt_ihpa.
T350_READ CALL FUNCTION 'T350_READ' EXPORTING auart = caufvd-auart IMPORTING t350_wa = t350.
PM_PARTNER_GENERATE CALL FUNCTION 'PM_PARTNER_GENERATE' TABLES pm_ihpa = $pm_ihpa xvbadr = $pm_adr.
CO_BI_AFPO_UPD CALL FUNCTION 'CO_BI_AFPO_UPD' "N513136 EXPORTING afpowa = afpod EXCEPTIONS error_read_afpo = 1 OTHERS = 2.
CO_BI_AFPO_UPD CALL FUNCTION 'CO_BI_AFPO_UPD' "N513136 EXPORTING afpowa = afpod EXCEPTIONS error_read_afpo = 1 OTHERS = 2.
CO_BI_AFPO_UPD CALL FUNCTION 'CO_BI_AFPO_UPD' EXPORTING afpowa = afpod EXCEPTIONS error_read_afpo = 1 OTHERS = 2.
PM_PARTNER_GET CALL FUNCTION 'PM_PARTNER_GET' "note 527308 EXPORTING objnr = caufvd-objnr TABLES ihpa_tab = lt_ihpa.
T350_READ CALL FUNCTION 'T350_READ' EXPORTING auart = caufvd-auart IMPORTING t350_wa = t350.
PM_PARTNER_GENERATE CALL FUNCTION 'PM_PARTNER_GENERATE' TABLES pm_ihpa = $pm_ihpa xvbadr = $pm_adr.
CO_BI_AFPO_UPD CALL FUNCTION 'CO_BI_AFPO_UPD' EXPORTING afpowa = afpod EXCEPTIONS error_read_afpo = 1 OTHERS = 2.
CO_BI_AFPO_UPD CALL FUNCTION 'CO_BI_AFPO_UPD' EXPORTING afpowa = afpod EXCEPTIONS error_read_afpo = 1 OTHERS = 2.
CO_TA_T156_READ CALL FUNCTION 'CO_TA_T156_READ' EXPORTING t156_bwart = rot_bwart IMPORTING t156wa = ls_t156 EXCEPTIONS not_found = 1.
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 ADROT_COIH or its description.