MJG01FOB SAP ABAP INCLUDE - IS-M: CUA Forms (Sample PGM)
MJG01FOB 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 MJG01FOB 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 MJG01FOB. "Basic submit
SUBMIT MJG01FOB AND RETURN. "Return to original report after report execution complete
SUBMIT MJG01FOB VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: IS-M: CUA Forms (Sample PGM)
INCLUDES used within this REPORT MJG01FOB
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:
CLFM_SET_OBJECT CALL FUNCTION 'CLFM_SET_OBJECT' EXPORTING object = gv_class_object.
ISPAM_SAPLJJGF_MK_SICHERN CALL FUNCTION 'ISPAM_SAPLJJGF_MK_SICHERN' EXPORTING in_gpnr = jgtgpnr-gpnr in_trtyp = aktion.
ISP_ADDRESS_CHECK_POST_UPDATE CALL FUNCTION 'ISP_ADDRESS_CHECK_POST_UPDATE' EXPORTING gueltigbis = con_time_infinity TABLES jgtsadr_ext_tab = i_jgtsadr jgtadra_ext_tab = i_rjmg07 EXCEPTIONS no_changes = 1 OTHERS = 2.
ISP_ADDRESS_SAVE_ALL * call function 'ISP_ADDRESS_SAVE_ALL' * exporting * xnomessaging = con_angekreuzt " keine Nachrichtenfindung * importing "Rel.4.01
ISM_ADDRESS_SAVE_ALL * call function 'ISP_ADDRESS_SAVE_ALL' CALL FUNCTION 'ISM_ADDRESS_SAVE_ALL' EXPORTING in_xnomessaging = con_angekreuzt in_xmemory = con_angekreuzt in_xupdate_task = con_angekreuzt * IMPORTING * OUT_ADRNR = TABLES ext_jgtsadr = i_jgtsadr ext_jgtadra = i_rjmg07.
ISP_DEBITOR_DARK_MAINTAIN CALL FUNCTION 'ISP_DEBITOR_DARK_MAINTAIN' EXPORTING jgtgpnr_in = jgtgpnr kna1_in = rjgma1 knb1_in = rjgmb1 knvk_in = rjgmvk knvv_in = rjgmvv ktogr_in = tjg37-ktokd trtyp = lv_trtyp wt_newwt = t001-wt_newwt "Q.steuer "Rel.4.02
ISP_DEBITOR_FSYS_MAINTAIN CALL FUNCTION 'ISP_DEBITOR_FSYS_MAINTAIN' EXPORTING event_in = gv_event jgtgpnr_in = jgtgpnr jgtsadr_in = jgtsadr kna1_in = rjgma1 knb1_in = rjgmb1 knbk_in = knbk waers = lv_waers knvv_in = rjgmvv "Rel.3.04
ISP_KREDITOR_DARK_MAINTAIN CALL FUNCTION 'ISP_KREDITOR_DARK_MAINTAIN' EXPORTING jgtgpnr_in = jgtgpnr ktogr_in = tjg37-ktokk lfa1_in = rjmgla lfb1_in = rjmglb trtyp = lv_trtyp rjgfaddr1_in = rjgfaddr1 IMPORTING jgtgpnr_out = jgtgpnr TABLES xlfas_in = xlfas" Neue Ust-Id.-Nr.
ISP_KREDITOR_FSYS_MAINTAIN CALL FUNCTION 'ISP_KREDITOR_FSYS_MAINTAIN' EXPORTING event_in = gv_event jgtgpnr_in = jgtgpnr jgtsadr_in = jgtsadr lfa1_in = rjmgla lfb1_in = rjmglb lfbk_in = lfbk waers = lv_waers IMPORTING flifnr_out = gv_flifnr rc = gv_fsys_rc.
ISPAM_SAPLJJGF_PRODH_SICHERN CALL FUNCTION 'ISPAM_SAPLJJGF_PRODH_SICHERN' EXPORTING in_gpnr = jgtgpnr-gpnr in_trtyp = gv_trtyp.
ISPAM_SAPLJJGF_AGENTDATA_SAVE CALL FUNCTION 'ISPAM_SAPLJJGF_AGENTDATA_SAVE' EXPORTING in_trtyp = tj180-trtyp in_gpnr = jgtgpnr-gpnr EXCEPTIONS OTHERS.
FI_TEXTS_VENDOR_UPDATE CALL FUNCTION 'FI_TEXTS_VENDOR_UPDATE' EXPORTING i_lifnr = text_lifnr i_xintern = char1(1).
ISP_JGTGPNR_UPDATE CALL FUNCTION 'ISP_JGTGPNR_UPDATE' EXPORTING gpartner = jgtgpnr.
ISP_KNA1_UPDATE CALL FUNCTION 'ISP_KNA1_UPDATE' IN UPDATE TASK EXPORTING kna1_in = rjgma1.
ISP_KNVV_UPDATE CALL FUNCTION 'ISP_KNVV_UPDATE' IN UPDATE TASK EXPORTING knvv_in = rjgmvv.
ISP_JGTGPNR_UPDATE CALL FUNCTION 'ISP_JGTGPNR_UPDATE' EXPORTING gpartner = jgtgpnr.
ISP_ADDRESS_ASSEMBLE_GET CALL FUNCTION 'ISP_ADDRESS_ASSEMBLE_GET' EXPORTING anrede = jgtsadr-anred land = jgtsadr-land1 IMPORTING function_dfi = lv_fubu EXCEPTIONS no_address_function = 01 no_debitor_fi_function = 02 no_debitor_rf_function = 03 no_inkjet_function = 04 no_sort_function = 05 no_assembly_finding = 06. "3.04/5 CJ
ISP_COUNTRY_VERSION_GET CALL FUNCTION 'ISP_COUNTRY_VERSION_GET' IMPORTING out_country = lv_version.
ISP_SELECT_SINGLE_TJG90 CALL FUNCTION 'ISP_SELECT_SINGLE_TJG90' EXPORTING land1 = jgtsadr-land1 IMPORTING tjg90_i = ls_tjg90 EXCEPTIONS no_entry_found = 1 OTHERS = 2.
CONVERSION_EXIT_ALPHA_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = jgtsadr-pfach IMPORTING output = rjgfaddr1-po_box.
ISP_ADDRESS_ASSEMBLE_GET CALL FUNCTION 'ISP_ADDRESS_ASSEMBLE_GET' EXPORTING anrede = jgtsadr-anred land = jgtsadr-land1 IMPORTING function_dfi = lv_fubu EXCEPTIONS no_address_function = 01 no_debitor_fi_function = 02 no_debitor_rf_function = 03 no_inkjet_function = 04 no_sort_function = 05 no_assembly_finding = 06. "3.04/5 CJ
ISP_COUNTRY_VERSION_GET CALL FUNCTION 'ISP_COUNTRY_VERSION_GET' IMPORTING out_country = lv_version.
ISP_SELECT_SINGLE_TJG90 CALL FUNCTION 'ISP_SELECT_SINGLE_TJG90' EXPORTING land1 = jgtsadr-land1 IMPORTING tjg90_i = ls_tjg90 EXCEPTIONS no_entry_found = 1 OTHERS = 2.
CONVERSION_EXIT_ALPHA_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' EXPORTING input = jgtsadr-pfach IMPORTING output = rjgfaddr1-po_box.
ISPAM_SAPLJJGF_SCROLL_IN_PAGE CALL FUNCTION 'ISPAM_SAPLJJGF_SCROLL_IN_PAGE' EXPORTING in_dynnr = sy-dynnr in_okcode = ok_code.
SCROLLING_IN_TABLE CALL FUNCTION 'SCROLLING_IN_TABLE' EXPORTING entry_to = rjsteploop-entries loops = rjsteploop-loopc ok_code = ok_code entry_act = rjsteploop-tabix "Aufsetzindex / Offset last_page_full = ' ' *(DEL) overlapping = 'X' "Rel.4.02
ISPAM_SAPLJJGF_SCROLL_TO_LAST CALL FUNCTION 'ISPAM_SAPLJJGF_SCROLL_TO_LAST' EXPORTING in_dynnr = sy-dynnr.
ISPAM_SAPLJJGF_PRODH_DELETE CALL FUNCTION 'ISPAM_SAPLJJGF_PRODH_DELETE'.
ISP_WBZFIRMA_FIND CALL FUNCTION 'ISP_WBZFIRMA_FIND' EXPORTING wbzkunnr = jgtgpnr-wbzkunnr EXCEPTIONS not_found = 1 not_unique = 2 OTHERS = 3.
ISP_AVM_READ_BVTYP CALL FUNCTION 'ISP_AVM_READ_BVTYP' EXPORTING * PAR_REGULIERER = XKNBK-KUNNR "Rel.4.01
DEBI_WRITE_DOCUMENT CALL FUNCTION 'DEBI_WRITE_DOCUMENT' EXPORTING objectid = lv_objectid tcode = lv_tcode utime = lv_utime udate = lv_udate username = lv_username planned_change_number = lv_planned_change_number object_change_indicator = lv_change_indicator planned_or_real_changes = lv_cdoc_planned_or_real * no_change_pointers = ' ' "Rel.4.01
BUP_BUT000_SELECT_SINGLE CALL FUNCTION 'BUP_BUT000_SELECT_SINGLE' EXPORTING i_partner = ls_but000-partner * I_VALID_TIME = * I_VALDT = SY-DATLO * I_CP_EXCLUDE = ' ' IMPORTING e_but000 = ls_but000 EXCEPTIONS not_found = 1 OTHERS = 2 .
ISM_CRMKUNNR_BUILD_AND_EXPORT CALL FUNCTION 'ISM_CRMKUNNR_BUILD_AND_EXPORT' EXPORTING pt_but000 = lt_but000.
OPEN_FI_PERFORM_00001321_E CALL FUNCTION 'OPEN_FI_PERFORM_00001321_E' EXPORTING i_kna1 = rjgma1 i_kna1_old = kna1 * I_KNB1 = * I_KNB1_OLD = i_knvv = rjgmvv i_knvv_old = knvv upd_kna1 = lv_change_indicator_kna1 * UPD_KNAS = * UPD_KNAT = * UPD_KNB1 = * UPD_KNB5 = * UPD_KNBK = * UPD_KNBW = * UPD_KNEX = * UPD_KNVA = * UPD_KNVD = * UPD_KNVI = * UPD_KNVK = * UPD_KNVL = * UPD_KNVP = * UPD_KNVS = upd_knvv = lv_change_indicator_knvv * UPD_KNZA = * I_ADD_ON_DATA = * TABLES * T_XKNAS = * T_YKNAS = * T_XKNAT = * T_YKNAT = * T_XKNB5 = * T_YKNB5 = * T_XKNBK = * T_YKNBK = * T_XKNBW = * T_YKNBW = * T_XKNEX = * T_YKNEX = * T_XKNVA = * T_YKNVA = * T_XKNVD = * T_YKNVD = * T_XKNVI = * T_YKNVI = * T_XKNVK = * T_YKNVK = * T_XKNVL = * T_YKNVL = * T_XKNVP = * T_YKNVP = * T_XKNVS = * T_YKNVS = * T_XKNZA = * T_YKNZA = .
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 MJG01FOB or its description.