IEFDISCON1 is a standard Executable ABAP Report 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 IEFDISCON1 into the relevant SAP transactions such as SE38 or SE80
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.
Title: INTERNAL: Form Class Library
INCLUDE: IELABLGR, " METER READING REASONS
IEOBJTYP, " CONSTANTS FOR IS-U OBJECTTYPES IN BOR
No SAP DATABASE tables are accessed within this REPORT code!
ISU_DB_EDISCACT_SINGLE CALL FUNCTION 'ISU_DB_EDISCACT_SINGLE' EXPORTING x_discno = discno x_discact = discact * X_ACTUAL = IMPORTING y_ediscact = s_ediscact * EXCEPTIONS * NOT_FOUND = 1 * SYSTEM_ERROR = 2 * OTHERS = 3 .
ISU_DB_ACT_SELECT_FOR_ORDER CALL FUNCTION 'ISU_DB_ACT_SELECT_FOR_ORDER' EXPORTING x_discno = discno x_discact = discact x_date = s_ediscact-actdate IMPORTING y_ediscdoc = yt_discdoc TABLES yt_v_ediscpos = t_v_ediscpos yt_v_eger = t_device EXCEPTIONS not_found = 1 system_error = 2 OTHERS = 3.
ISU_STRUCTURE_READ CALL FUNCTION 'ISU_STRUCTURE_READ' EXPORTING x_is_complete = co_flag_notmarked x_actual = co_flag_notmarked x_structure = co_flag_marked x_ab = s_ediscact-actdate x_bis = s_ediscact-actdate x_text = co_flag_marked x_language = c-langu x_progress_display = co_flag_marked TABLES xt_path = ipath yt_struc = istruc * T_BCONT = * t_eabl = * T_EABLG = * T_EABP = * T_EADZ = t_eanl = t_install * T_EASTI = t_eastl = ieastl * T_EASTS = * T_EAUS = * T_EAUSV = * T_EEIN = * t_eeinv = t_eger = t_device t_egpl = t_dev_loc t_ehau = t_connobj t_ekun = t_bus_part t_etdz = t_register * T_ETTIF = t_evbs = t_premise t_ever = t_vertrag * T_EZUG = * T_EZUZ = t_fkkvkp = t_cont_acct * T_TE420 = * T_TE422 = EXCEPTIONS path_invalid = 1 date_invalid = 2 selection_failed = 3 OTHERS = 4.
ISU_DB_ACT_SELECT_FOR_ORDER CALL FUNCTION 'ISU_DB_ACT_SELECT_FOR_ORDER' EXPORTING x_discno = discno x_discact = discact x_date = sy-datum IMPORTING y_ediscdoc = yt_discdoc TABLES yt_v_ediscpos = t_v_ediscpos yt_v_eger = t_device EXCEPTIONS not_found = 1 system_error = 2 OTHERS = 3.
ISU_STRUCTURE_READ CALL FUNCTION 'ISU_STRUCTURE_READ' EXPORTING x_is_complete = co_flag_notmarked x_actual = co_flag_notmarked x_structure = co_flag_marked x_ab = sy-datum x_bis = sy-datum x_text = co_flag_marked x_language = c-langu x_progress_display = co_flag_marked TABLES xt_path = ipath t_eger = t_device t_etdz = t_register EXCEPTIONS path_invalid = 1 date_invalid = 2 selection_failed = 3 OTHERS = 4.
ISU_ADDRESS_PROVIDE CALL FUNCTION 'ISU_ADDRESS_PROVIDE' EXPORTING x_address_type = 'B' x_partner = wa_bus_part-partner IMPORTING * Y_ADDR_LINES = * Y_LINE_COUNT = y_eadrdat = y_bp_address * Y_ADRC_REGIO = * Y_ADDR_DATA = EXCEPTIONS not_found = 1 parameter_error = 2 object_not_given = 3 address_inconsistency = 4 installation_inconsistency = 5 OTHERS = 6.
ISU_MOVE_BUSPART_ADDRESS CALL FUNCTION 'ISU_MOVE_BUSPART_ADDRESS' EXPORTING x_buspart = wa_bus_part x_address = y_bp_address x_langu = c-langu IMPORTING y_address = y_bp_address EXCEPTIONS not_qualified = 1 OTHERS = 2.
ISU_ADDRESS_PROVIDE CALL FUNCTION 'ISU_ADDRESS_PROVIDE' EXPORTING x_address_type = co_only_address * X_LENGTH = 80 x_line_count = 1 x_read_adrc_regio = co_flag_marked x_read_isu_data = co_flag_marked * X_READ_MRU = ' ' * X_READ_KONZ = ' ' * X_READ_BUKRS = ' ' x_addrnumber = x_connobj-addrnumber * X_PARTNER = * x_haus = * X_VSTELLE = * X_DEVLOC = * X_ANLAGE = * X_BUS020_EXT = * X_EHAU = * X_EVBS = * X_EGPL = * X_EANL = * X_ACTUAL = * X_BUKRS = ' ' * X_SPARTE = ' ' * X_AKLASSE = ' ' * X_ADDR_OBJ = IMPORTING * y_addr_lines = * Y_LINE_COUNT = y_eadrdat = y_coaddress y_adrc_regio = adrc_regio * Y_ADDR_DATA = EXCEPTIONS not_found = 1 parameter_error = 2 object_not_given = 3 address_inconsistency = 4 installation_inconsistency = 5 OTHERS = 6.
ISU_DB_EDCN_SELECT * CALL FUNCTION 'ISU_DB_EDCN_SELECT' * EXPORTING * X_DISCNO = DISCNO ** X_ACTUAL = ** IMPORTING ** Y_EDISCDOC = * TABLES ** YT_EDISCOBJ = ** YT_EDISCOBJH = * YT_EDISCACT = YT_DISC_ACTVT ** YT_EDISCPOS = * EXCEPTIONS * NOT_FOUND = 1 * SYSTEM_ERROR = 2 * OTHERS = 3.
DDUT_DOMVALUE_TEXT_GET CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET' EXPORTING name = co_dom_discacttyp value = dom_value langu = c-langu * TEXTS_ONLY = ' ' IMPORTING dd07v_wa = dd07v EXCEPTIONS not_found = 1 illegal_input = 2 OTHERS = 3.
DDUT_DOMVALUE_TEXT_GET CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET' EXPORTING name = co_dom_edc_ordstat value = dom_value langu = c-langu * TEXTS_ONLY = ' ' IMPORTING dd07v_wa = dd07v EXCEPTIONS not_found = 1 illegal_input = 2 OTHERS = 3.
ISU_DB_PARTNER_SINGLE CALL FUNCTION 'ISU_DB_PARTNER_SINGLE' EXPORTING x_partner = x_premise-eigent * X_RLTYP = CO_CONTRACT_PARTNER * X_XBANK = * X_XADDR_MULT = IMPORTING y_but000 = y_prem_owner * Y_RLTYPES = * TABLES * TY_BANK = * TY_ADDRESS = * TY_RLTYPES = EXCEPTIONS partner_not_found = 1 partner_in_role_not_found = 2 internal_error = 3 OTHERS = 4.
ISU_ADDRESS_PROVIDE CALL FUNCTION 'ISU_ADDRESS_PROVIDE' EXPORTING x_address_type = co_only_address * X_LENGTH = 80 x_line_count = 1 * X_PRGCONTEXT = ' ' * X_SUBCONTEXT = ' ' * X_READ_ADRC_REGIO = ' ' * X_READ_ISU_DATA = ' ' * X_READ_MRU = ' ' * X_READ_KONZ = ' ' * X_READ_BUKRS = ' ' x_addrnumber = wa_prem_owner-addrnumber * X_PARTNER = * X_HAUS = * X_VSTELLE = * X_DEVLOC = * X_ANLAGE = * X_EKUN_EXT = * X_EHAU = * X_EVBS = * X_EGPL = * X_EANL = * X_ACTUAL = * X_BUKRS = ' ' * X_SPARTE = ' ' * X_AKLASSE = ' ' * X_ADDR_OBJ = IMPORTING * y_addr_lines = * Y_LINE_COUNT = y_eadrdat = y_pr_own_adr * Y_ADRC_REGIO = * Y_ADDR_DATA = EXCEPTIONS not_found = 1 parameter_error = 2 object_not_given = 3 address_inconsistency = 4 installation_inconsistency = 5 OTHERS = 6.
ISU_DB_GET_DUE_AND_DISCREL_POS CALL FUNCTION 'ISU_DB_GET_DUE_AND_DISCREL_POS' EXPORTING x_vkont = x_cont_acct-vkont x_discno = discno * X_MANSP = x_applk = co_applk_isu IMPORTING y_sumoi = resum_print_int-sumoi y_sumdi = resum_print_int-sumdi y_hwaer = resum_print_int-waers y_sumoit = resum_print_int-sumoit y_sumdit = resum_print_int-sumdit y_twaer = resum_print_int-twaers TABLES t_tema01 = t_disc_items t_mahnop = t_open_items EXCEPTIONS not_found = 1 concurrent_clearing = 2 OTHERS = 3.
ADDR_COMM_GET * CALL FUNCTION 'ADDR_COMM_GET' * EXPORTING ** ADDRESS_HANDLE = ' ' * ADDRESS_NUMBER = YT_BUS_PART-ADDRNUMBER ** DATE_FROM = '00010101' * LANGUAGE = SY-LANGU * TABLE_TYPE = CO_ADTEL ** IMPORTING ** RETURNCODE = * TABLES * COMM_TABLE = T_COMM_TABLE ** ERROR_TABLE = * EXCEPTIONS * PARAMETER_ERROR = 1 * ADDRESS_NOT_EXIST = 2 * INTERNAL_ERROR = 3 * OTHERS = 4.
DDUT_DOMVALUE_TEXT_GET * CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET' * EXPORTING * NAME = CO_DOM_DISCREASON * VALUE = DOM_VALUE ** LANGU = SY-LANGU ** TEXTS_ONLY = ' ' * IMPORTING * DD07V_WA = DD07V * EXCEPTIONS * NOT_FOUND = 1 * ILLEGAL_INPUT = 2 * OTHERS = 3.
DDUT_DOMVALUE_TEXT_GET * CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET' * EXPORTING * NAME = CO_DOM_EDCDOCSTAT * VALUE = DOM_VALUE ** LANGU = SY-LANGU ** TEXTS_ONLY = ' ' * IMPORTING * DD07V_WA = DD07V * EXCEPTIONS * NOT_FOUND = 1 * ILLEGAL_INPUT = 2 * OTHERS = 3.
DDUT_DOMVALUE_TEXT_GET * CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET' * EXPORTING * NAME = CO_DOM_DISCACTTYP * VALUE = DOM_VALUE ** LANGU = SY-LANGU ** TEXTS_ONLY = ' ' * IMPORTING * DD07V_WA = DD07V * EXCEPTIONS * NOT_FOUND = 1 * ILLEGAL_INPUT = 2 * OTHERS = 3.
* CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET' * EXPORTING * NAME = CO_DOM_EDC_ORDSTAT * VALUE = DOM_VALUE ** LANGU = SY-LANGU ** TEXTS_ONLY = ' ' * IMPORTING * DD07V_WA = DD07V * EXCEPTIONS * NOT_FOUND = 1 * ILLEGAL_INPUT = 2 * OTHERS = 3.
ISU_ADDRESS_PROVIDE CALL FUNCTION 'ISU_ADDRESS_PROVIDE' EXPORTING x_address_type = co_only_address * X_LENGTH = 80 * X_LINE_COUNT = 1 * X_PRGCONTEXT = ' ' * X_SUBCONTEXT = ' ' * X_READ_ADRC_REGIO = ' ' * X_READ_ISU_DATA = ' ' * X_READ_MRU = ' ' * X_READ_KONZ = ' ' * X_READ_BUKRS = ' ' * X_READ_CUST_REGIO = ' ' x_addrnumber = x_bus_part-addrnumber * X_PARTNER = * X_ACCOUNT = x_persnumber = x_bus_part-persnumber * X_HAUS = * X_VSTELLE = * X_DEVLOC = * X_ANLAGE = * X_ADDR1_VAL = * X_EKUN_EXT = * X_FKKVKP1 = * X_EHAU = * X_EVBS = * X_EGPL = * X_EANL = * X_ACTUAL = * X_BUKRS = ' ' * X_SPARTE = ' ' * X_AKLASSE = ' ' * X_ADDR_OBJ = * X_REFRESH_ADDRESS = IMPORTING * y_addr_lines = * Y_LINE_COUNT = y_eadrdat = i_eadrdat * Y_ADRC_REGIO = * Y_ADDR_DATA = * Y_CUST_REGIO = * TABLES * T_ISU_REGK = EXCEPTIONS not_found = 1 parameter_error = 2 object_not_given = 3 address_inconsistency = 4 installation_inconsistency = 5 OTHERS = 6.
ISU_MOVE_BUSPART_ADDRESS CALL FUNCTION 'ISU_MOVE_BUSPART_ADDRESS' EXPORTING x_buspart = wa_bus_part x_address = i_eadrdat x_langu = c-langu IMPORTING y_address = y_bp_address EXCEPTIONS not_qualified = 1 OTHERS = 2.
FKK_FKKVK_READ CALL FUNCTION 'FKK_FKKVK_READ' EXPORTING i_vkont = l_vkont IMPORTING e_fkkvk = l_fkkvk EXCEPTIONS not_found = 1 OTHERS = 2.
FKK_TFK002A_READ CALL FUNCTION 'FKK_TFK002A_READ' EXPORTING i_actual = 'X' vktyp = l_fkkvk-vktyp IMPORTING e_tfk002a = l_tfk002a EXCEPTIONS not_found = 1 system_error = 2 OTHERS = 3.
ISU_DB_EDCN_SELECT CALL FUNCTION 'ISU_DB_EDCN_SELECT' EXPORTING x_discno = discno * X_ACTUAL = * IMPORTING * Y_EDISCDOC = TABLES * YT_EDISCOBJ = * YT_EDISCOBJH = yt_ediscact = yt_curr_actvt * YT_EDISCPOS = EXCEPTIONS not_found = 1 system_error = 2 OTHERS = 3.
ISU_GET_ENTRY_FROM_TFKTVOT CALL FUNCTION 'ISU_GET_ENTRY_FROM_TFKTVOT' EXPORTING x_spras = sy-langu x_applk = x_open_items-applk x_hvorg = x_open_items-hvorg x_tvorg = x_open_items-tvorg IMPORTING y_tfktvot = y_item_t EXCEPTIONS not_found = 1 OTHERS = 2.
WRITE_FORM * CALL FUNCTION 'WRITE_FORM' * EXPORTING * ELEMENT = 'ISU_REGISTER' * WINDOW = 'MAIN'.
ISU_DB_EABL_SELECT_EQUNR_ENT CALL FUNCTION 'ISU_DB_EABL_SELECT_EQUNR_ENT' EXPORTING x_equnr = x_register-equnr x_zwnummer = x_register-zwnummer x_adatbis = sy-datum TABLES ty_eabl = t_reading EXCEPTIONS not_found = 1 system_error = 2 not_qualified = 3 invalid_interval = 4 OTHERS = 5.
ISU_METER_DBDATA_TRANSFORM CALL FUNCTION 'ISU_METER_DBDATA_TRANSFORM' EXPORTING x_v_format = t_reading-v_zwstand x_n_format = t_reading-n_zwstand x_stanzvor = reabl_print-lr_stanzvor x_stanznac = reabl_print-lr_stanznac IMPORTING * Y_I_FORMAT = y_b_zwstand = reabl_print-last_result EXCEPTIONS not_valid = 1 OTHERS = 2.
ISU_METER_DBDATA_TRANSFORM CALL FUNCTION 'ISU_METER_DBDATA_TRANSFORM' EXPORTING x_v_format = t_reading-v_zwstand x_n_format = t_reading-n_zwstand x_stanzvor = reabl_print-lr_stanzvor x_stanznac = reabl_print-lr_stanznac IMPORTING * Y_I_FORMAT = y_b_zwstand = reabl_print-last_off_result EXCEPTIONS not_valid = 1 OTHERS = 2.
ISU_DISCDOC_GET_BP_FR_DEV CALL FUNCTION 'ISU_DISCDOC_GET_BP_FR_DEV' EXPORTING x_equnr = wa_device-equnr IMPORTING y_bp_type = i_bp_type EXCEPTIONS not_found = 1 input_error = 2 general_fault = 3 OTHERS = 4.
ISU_SEL_DATA_EXTRAPOLATION CALL FUNCTION 'ISU_SEL_DATA_EXTRAPOLATION' EXPORTING x_bp = i_jbp x_adat = i_adat x_adatreal = i_adatreal x_atimreal = i_atimreal x_ablesgr = co_gr_sperre CHANGING y_sel_date = l_sel_date EXCEPTIONS general_error = 1 OTHERS = 2.
ISU_REGISTER_EXTRAPOLATION CALL FUNCTION 'ISU_REGISTER_EXTRAPOLATION' EXPORTING x_equnr = wa_device-equnr x_zwnummer = x_register-zwnummer x_stanzvor = reabl_print-lr_stanzvor x_stanznac = reabl_print-lr_stanznac * previously caufvd-gstrs, but no replacement found x_adatsoll = l_sel_date IMPORTING y_zwsterw = tmp_zwsterw EXCEPTIONS not_found = 1 system_error = 2 rate_not_found = 3 rate_without_operand = 4 parameter_missing = 5 not_valid = 6 not_qualified = 7 invalid_interval = 8 general_fault = 9 no_extrapolation = 10 OTHERS = 11.
ISU_METER_IDDATA_TRANSFORM CALL FUNCTION 'ISU_METER_IDDATA_TRANSFORM' EXPORTING x_i_format = tmp_zwsterw x_stanzvor = reabl_print-lr_stanzvor x_stanznac = reabl_print-lr_stanznac IMPORTING * Y_V_FORMAT = * Y_N_FORMAT = y_b_zwstand = reabl_print-estimated_result EXCEPTIONS not_valid = 1 OTHERS = 2.
WRITE_FORM * CALL FUNCTION 'WRITE_FORM' * EXPORTING * ELEMENT = 'ISU_REG_RESULT' * WINDOW = 'MAIN'.
WRITE_FORM * CALL FUNCTION 'WRITE_FORM' * EXPORTING * ELEMENT = 'ISU_BIL_REG_X' * WINDOW = 'MAIN'.
WRITE_FORM * CALL FUNCTION 'WRITE_FORM' * EXPORTING * ELEMENT = 'ISU_BIL_REG' * WINDOW = 'MAIN'.
ISU_DB_ETDZ_SELECT CALL FUNCTION 'ISU_DB_ETDZ_SELECT' EXPORTING * X_EQUNR = * X_ZWNUMMER = x_logikzw = ieasti-logikzw x_ab = sy-datum x_bis = sy-datum * X_ACTUAL = IMPORTING * Y_COUNT = y_etdz = tmp_etdz * TABLES * T_ETDZ = * T_ETDZ_OLD = * T_ETDZ_KEY_LOGIKZW = * T_ETDZ_KEY_EQUNR = EXCEPTIONS not_found = 1 system_error = 2 not_qualified = 3 OTHERS = 4.
WRITE_FORM * CALL FUNCTION 'WRITE_FORM' * EXPORTING * ELEMENT = 'EMPTY_LINE' * WINDOW = 'MAIN'.
ADDR_COMM_GET CALL FUNCTION 'ADDR_COMM_GET' EXPORTING * ADDRESS_HANDLE = ' ' address_number = x_bus_part-addrnumber * DATE_FROM = '00010101' language = sy-langu table_type = co_adtel * IMPORTING * RETURNCODE = TABLES comm_table = t_comm_table * ERROR_TABLE = EXCEPTIONS parameter_error = 1 address_not_exist = 2 internal_error = 3 OTHERS = 4.
ADDR_PERSONAL_COMM_GET CALL FUNCTION 'ADDR_PERSONAL_COMM_GET' EXPORTING * ADDRESS_HANDLE = ' ' address_number = x_bus_part-addrnumber * DATE_FROM = '00010101' language = sy-langu * PERSON_HANDLE = ' ' * PERSON_NUMBER = ' ' table_type = co_adtel * IMPORTING * RETURNCODE = TABLES comm_table = t_comm_table * ERROR_TABLE = EXCEPTIONS parameter_error = 1 address_not_exist = 2 person_not_exist = 3 internal_error = 4 OTHERS = 5.
DDUT_DOMVALUE_TEXT_GET CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET' EXPORTING name = co_dom_discreason value = dom_value * LANGU = SY-LANGU * TEXTS_ONLY = ' ' IMPORTING dd07v_wa = y_discdoc_t EXCEPTIONS not_found = 1 illegal_input = 2 OTHERS = 3.
DDUT_DOMVALUE_TEXT_GET CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET' EXPORTING name = co_dom_edcdocstat value = dom_value * LANGU = SY-LANGU * TEXTS_ONLY = ' ' IMPORTING dd07v_wa = y_discdoc_t EXCEPTIONS not_found = 1 illegal_input = 2 OTHERS = 3.
DDUT_DOMVALUE_TEXT_GET CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET' EXPORTING name = co_dom_discacttyp value = dom_value * LANGU = SY-LANGU * TEXTS_ONLY = ' ' IMPORTING dd07v_wa = y_curract_t EXCEPTIONS not_found = 1 illegal_input = 2 OTHERS = 3.
DDUT_DOMVALUE_TEXT_GET CALL FUNCTION 'DDUT_DOMVALUE_TEXT_GET' EXPORTING name = co_dom_edc_ordstat value = dom_value * LANGU = SY-LANGU * TEXTS_ONLY = ' ' IMPORTING dd07v_wa = y_curract_t EXCEPTIONS not_found = 1 illegal_input = 2 OTHERS = 3.
ISU_DB_TSPAT_SINGLE CALL FUNCTION 'ISU_DB_TSPAT_SINGLE' EXPORTING x_spras = sy-langu x_sparte = x_device-sparte * X_ACTUAL = ' ' IMPORTING y_tspat = y_device_t * Y_VTEXT = EXCEPTIONS not_found = 1 system_error = 2 not_qualified = 3 OTHERS = 4.
ISU_DB_TSPAT_SINGLE CALL FUNCTION 'ISU_DB_TSPAT_SINGLE' EXPORTING x_spras = sy-langu x_sparte = x_install-sparte * X_ACTUAL = ' ' IMPORTING y_tspat = y_install_t * Y_VTEXT = EXCEPTIONS not_found = 1 system_error = 2 not_qualified = 3 OTHERS = 4.
ISU_DB_EUIINSTLN_SELECT CALL FUNCTION 'ISU_DB_EUIINSTLN_SELECT' EXPORTING x_anlage = wa_install-anlage x_dateto = sy-datlo x_datefrom = sy-datlo IMPORTING y_euiinstln = lt_euiinstln EXCEPTIONS not_found = 1 system_error = 2 not_qualified = 3 OTHERS = 4.
ISU_DB_EUITRANS_SELECT CALL FUNCTION 'ISU_DB_EUITRANS_SELECT' EXPORTING x_int_ui = l_euiinstln-int_ui x_dateto = sy-datlo x_datefrom = sy-datlo IMPORTING y_euitrans = lt_euitrans EXCEPTIONS not_found = 1 not_qualified = 2 system_error = 3 OTHERS = 4.
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 IEFDISCON1 or its description.