SAP Reports / Programs | Recycling Administration Core Functions | Recycling Administration | Recycling Administration Core Functions(IS-REA-COR) SAP IS

MJ7LMF02 SAP ABAP INCLUDE - REA Article Master Rec.: Form Routines for Program SAPMJ7LM







MJ7LMF02 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 MJ7LMF02 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 MJ7LMF02. "Basic submit
SUBMIT MJ7LMF02 AND RETURN. "Return to original report after report execution complete
SUBMIT MJ7LMF02 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement


Text pool values


Title: REA Article Master Rec.: Form Routines for Program SAPMJ7LM


INCLUDES used within this REPORT MJ7LMF02

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:

POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING titlebar = p_title * DIAGNOSE_OBJECT = ' ' text_question = p_text text_button_1 = text-035 * ICON_BUTTON_1 = ' ' text_button_2 = text-036 * ICON_BUTTON_2 = ' ' * DEFAULT_BUTTON = '2' display_cancel_button = ' ' * USERDEFINED_F1_HELP = ' ' * START_COLUMN = 25 * START_ROW = 6 * POPUP_TYPE = IMPORTING answer = p_answer * TABLES * PARAMETER = EXCEPTIONS text_not_found = 1 OTHERS = 2.

POPUP_TO_CONFIRM_LOSS_OF_DATA * CALL FUNCTION 'POPUP_TO_CONFIRM_LOSS_OF_DATA' * EXPORTING * TEXTLINE1 = P_TEXT1 * TEXTLINE2 = P_TEXT2 * TITEL = P_TITLE ** START_COLUMN = 25 ** START_ROW = 6 * IMPORTING * ANSWER = P_ANSWER * EXCEPTIONS * OTHERS = 1.

J_7L_PREIS_ARTIKEL_PERIODE CALL FUNCTION 'J_7L_PREIS_ARTIKEL_PERIODE' EXPORTING artnr = j_7lkm1-matnr bukrs = j_7lkm1-bukrs land1 = j_7lkm1-land1 vrkme = j_7lkm1-vrkme variante = j_7lkm1-variante entnr = j_7le01-entnr datab = p_datab datbi = p_datbi fmeng = fmeng_save kzfmeng = 'X' kzmmsd = j_7lkm1-kzmmsd kzprfm = j_7lkm1-kzprfm pformel = l_pformel kzfrmfrf = 'X' waers = prl_tab-waers waere = prl_tab-waere * waera = j_7le01_in = j_7le01 IMPORTING summee = prl_tab-preise summer = prl_tab-preisr * summea = TABLES * version = prl_vrs_tab version = tmp_prl_vrs_tab verpack = prl_vrp_tab fraktion = prl_stf_tab EXCEPTIONS artnr_not_found = 1 plvrs_not_found = 2 entnr_not_found = 3 vrpnr_not_found = 4 unit_conversion_error = 5 unspecified_error = 6 OTHERS = 7.

J_7L_PREIS_ARTIKEL_PERIODE CALL FUNCTION 'J_7L_PREIS_ARTIKEL_PERIODE' "#EC * EXPORTING artnr = j_7lkm1-matnr bukrs = j_7lkm1-bukrs land1 = j_7lkm1-land1 vrkme = j_7lkm1-vrkme variante = j_7lkm1-variante entnr = ent_tab-entnr datab = ent_tab-datab datbi = ent_tab-datbi fmeng = fmeng_save kzmmsd = j_7lkm1-kzmmsd kzprfm = j_7lkm1-kzprfm pformel = ent_tab-pformel waers = global_c02-waers waere = ent_tab-waere IMPORTING summee = ent_tab-preise summer = ent_tab-preisr * summea = TABLES * version = prl_vrs_tab version = tmp_prl_vrs_tab verpack = prl_vrp_tab fraktion = prl_stf_tab EXCEPTIONS artnr_not_found = 1 plvrs_not_found = 2 entnr_not_found = 3 vrpnr_not_found = 4 unit_conversion_error = 5 unspecified_error = 6 OTHERS = 7.

J_7L_PRICEANALYSIS_DISPLAY CALL FUNCTION 'J_7L_PRICEANALYSIS_DISPLAY' EXPORTING i_header = c_title i_fcode = save_ok_code i_datab = datab_vrs i_datbi = datbi_vrs is_article = j_7lkm1 is_companycode = global_c02 is_pricefrml = j_7lkp01_save is_pricelist = tmp_p01 is_control = j_7lc09 is_logger = prl_vrs_tab-item_log TABLES it_pricetab = prl_tab it_table = prl_vrp_tab EXCEPTIONS parameter_missing = 1 internal_error = 2 no_entries = 3 OTHERS = 4.

J_7L_PRICEANALYSIS_DISPLAY CALL FUNCTION 'J_7L_PRICEANALYSIS_DISPLAY' EXPORTING i_header = c_title i_fcode = save_ok_code i_datab = datab_vrs i_datbi = datbi_vrs is_article = j_7lkm1 is_companycode = global_c02 is_pricefrml = j_7lkp01_save is_pricelist = tmp_p01 is_control = j_7lc09 is_logger = prl_vrs_tab-weight_log TABLES it_pricetab = prl_tab it_table = prl_stf_tab EXCEPTIONS parameter_missing = 1 internal_error = 2 no_entries = 3 OTHERS = 4.

CONVERSION_EXIT_MATN1_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' "#EC * EXPORTING input = j_7lkm1-matnr IMPORTING output = mara-matnr EXCEPTIONS OTHERS = 1.

CONVERSION_EXIT_MATN1_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' "#EC * EXPORTING input = j_7lkm1-matnr IMPORTING output = mara-matnr EXCEPTIONS OTHERS = 1.

J_7L_PREIS_ARTIKEL_SPLITTING CALL FUNCTION 'J_7L_PREIS_ARTIKEL_SPLITTING' "#EC * EXPORTING artnr = j_7lkm1-matnr variante = j_7lkm1-variante bukrs = j_7lkm1-bukrs land1 = j_7lkm1-land1 vrkme = vme_tab-meinh datab = vme_tab-datab datbi = vme_tab-datbi fmeng = fmeng_save kzmmsd = j_7lkm1-kzmmsd kzprfm = j_7lkm1-kzprfm waers = global_c02-waers IMPORTING * SUMMEE = summer = vme_tab-preisr * SUMMEA = TABLES * version = prl_vrs_tab version = tmp_prl_vrs_tab EXCEPTIONS artnr_not_found = 1 plvrs_not_found = 2 entnr_not_found = 3 vrpnr_not_found = 4 unit_conversion_error = 5 unspecified_error = 6 OTHERS = 7.

J_7L_READ_ARTICLE CALL FUNCTION 'J_7L_READ_ARTICLE' EXPORTING i_matnr = j_7lkm1-matnr i_bukrs = j_7lkm1-bukrs i_land = j_7lkm1-land1 i_vrkme = j_7lkm1-vrkme i_variante = j_7lkm1-variante i_datab = ent_vrs_tab-datbi * I_DATBI = I_DATBI i_flg_buffer_on = 'X' * I_FLG_ENQUE_ART = ' ' TABLES o_m01 = tmp_m01 o_m02 = tmp_m02 o_m03 = tmp_m03 o_m04 = tmp_m04 o_m05 = tmp_m05 o_m06 = tmp_m06 * O_M07 = O_M07 * O_M08 = o_M08 o_m09 = tmp_m09 o_m10 = tmp_m10 * O_M11 = O_M11 return = return EXCEPTIONS read_error = 1.

J_7L_MAINTAIN_ARTICLE CALL FUNCTION 'J_7L_MAINTAIN_ARTICLE' EXPORTING * I_FLG_CH_DOC_ON = 'X' * I_FLG_CONST_CHECK_ON = ' ' * I_TEST_MODUS_ON = ' ' i_modus_enqueue_art = 'N' "in transaction i_modus_condition = tmp_condition * I_MODUS_UPDATE = 'S' * I_MODUS_PLAUSIB_CHECK = 'N' i_copy_modus = 'X' i_wf_event = tmp_wf_event TABLES i_m01 = tmp_m01 i_m02 = tmp_m02 i_m03 = tmp_m03 i_m04 = tmp_m04 i_m05 = tmp_m05 i_m06 = tmp_m06 i_m07 = tmp_m07 i_m08 = tmp_m08 i_m09 = tmp_m09 i_m10 = tmp_m10 * I_M11 = I_M11 return = return EXCEPTIONS maintain_error = 1.

J_7L_READ_ARTICLE CALL FUNCTION 'J_7L_READ_ARTICLE' EXPORTING i_matnr = j_7lkm1-matnr i_bukrs = j_7lkm1-bukrs i_land = j_7lkm1-land1 i_vrkme = j_7lkm1-vrkme i_variante = j_7lkm1-variante i_datab = p_datbi * I_DATBI = I_DATBI i_flg_buffer_on = 'X' * I_FLG_ENQUE_ART = ' ' TABLES o_m01 = tmp_m01 o_m02 = tmp_m02 o_m03 = tmp_m03 o_m04 = tmp_m04 o_m05 = tmp_m05 o_m06 = tmp_m06 * O_M07 = O_M07 * O_M08 = o_M08 o_m09 = tmp_m09 o_m10 = tmp_m10 * O_M11 = O_M11 return = return EXCEPTIONS read_error = 1.

J_7L_READ_ARTICLE CALL FUNCTION 'J_7L_READ_ARTICLE' EXPORTING i_matnr = j_7lkm1-matnr i_bukrs = j_7lkm1-bukrs i_land = j_7lkm1-land1 i_vrkme = j_7lkm1-vrkme i_variante = j_7lkm1-variante i_datab = p_datbi * I_DATBI = I_DATBI i_flg_buffer_on = 'X' * I_FLG_ENQUE_ART = ' ' TABLES o_m01 = tmp_m01 o_m02 = tmp_m02 o_m03 = tmp_m03 o_m04 = tmp_m04 o_m05 = tmp_m05 o_m06 = tmp_m06 * O_M07 = O_M07 * O_M08 = o_M08 o_m09 = tmp_m09 o_m10 = tmp_m10 * O_M11 = O_M11 return = return EXCEPTIONS read_error = 1.

J_7L_READ_ARTICLE CALL FUNCTION 'J_7L_READ_ARTICLE' EXPORTING i_matnr = j_7lkm1-matnr i_bukrs = j_7lkm1-bukrs i_land = j_7lkm1-land1 i_vrkme = j_7lkm1-vrkme i_variante = j_7lkm1-variante i_datab = p_datbi * I_DATBI = I_DATBI i_flg_buffer_on = 'X' * I_FLG_ENQUE_ART = ' ' TABLES o_m01 = tmp_m01 o_m02 = tmp_m02 o_m03 = tmp_m03 o_m04 = tmp_m04 o_m05 = tmp_m05 o_m06 = tmp_m06 * O_M07 = O_M07 * O_M08 = o_M08 o_m09 = tmp_m09 o_m10 = tmp_m10 * O_M11 = O_M11 return = return EXCEPTIONS read_error = 1.

J_7L_READ_ARTICLE CALL FUNCTION 'J_7L_READ_ARTICLE' EXPORTING i_matnr = j_7lkm1-matnr i_bukrs = j_7lkm1-bukrs i_land = j_7lkm1-land1 i_vrkme = j_7lkm1-vrkme i_variante = j_7lkm1-variante i_datab = p_datab1 * I_DATBI = I_DATBI i_flg_buffer_on = 'X' * I_FLG_ENQUE_ART = ' ' TABLES o_m01 = tmp_m01 o_m02 = tmp_m02 o_m03 = tmp_m03 o_m04 = tmp_m04 o_m05 = tmp_m05 o_m06 = tmp_m06 * O_M07 = O_M07 * O_M08 = o_M08 o_m09 = tmp_m09 o_m10 = tmp_m10 * O_M11 = O_M11 return = return EXCEPTIONS read_error = 1.

J_7L_KONDITIONSART_LESEN CALL FUNCTION 'J_7L_KONDITIONSART_LESEN' "#EC * EXPORTING kvewe = kvewe_save kappl = kappl_save kschl = kschl_save IMPORTING j_7lkkumrk_out = j_7lkkumrk_save j_7lklimrk_out = j_7lklimrk_save TABLES kotab_tab = kotab_tab EXCEPTIONS OTHERS = 1.

CONVERSION_EXIT_MATN1_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' EXPORTING input = p_matnr IMPORTING output = matnr_mara EXCEPTIONS OTHERS = 1.

CONVERSION_EXIT_CUNIT_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_CUNIT_OUTPUT' "#EC * EXPORTING input = p_vrkme IMPORTING output = vrkme_mvke EXCEPTIONS OTHERS = 1.

J_7L_FRAKTIONEN_ARTIKEL





CALL FUNCTION 'J_7L_FRAKTIONEN_ARTIKEL' EXPORTING matnr = j_7lkm1-matnr variante = j_7lkm1-variante bukrs = j_7lkm1-bukrs land1 = j_7lkm1-land1 vrkme = j_7lkm1-vrkme fmeng = fmeng_save datum = p_datum TABLES j_7lkf1_tab = j_7lkf1_tab EXCEPTIONS vrpnr_not_found = 1 vpgrp_not_found = 2 * FRAKTION_NOT_FOUND = 3 unit_conversion_error = 3 OTHERS = 4.

J_7L_READ_ARTICLE * CALL FUNCTION 'J_7L_READ_ARTICLE' * EXPORTING * i_matnr = j_7lkm1-matnr * i_bukrs = j_7lkm1-bukrs * i_land = j_7lkm1-land1 * i_vrkme = j_7lkm1-vrkme * i_datab = p_datbi ** I_DATBI = I_DATBI ** I_FLG_BUFFER_ON = ' ' ** I_FLG_ENQUE_ART = ' ' * TABLES * o_m01 = tmp_m01 * o_m02 = tmp_m02 * o_m03 = tmp_m03 * o_m04 = tmp_m04 * o_m05 = tmp_m05 * o_m06 = tmp_m06 ** O_M07 = O_M07 ** O_M08 = o_M08 * o_m09 = tmp_m09 * o_m10 = tmp_m10 ** O_M11 = O_M11 * return = return * EXCEPTIONS * read_error = 1.

J_7L_READ_ARTICLE CALL FUNCTION 'J_7L_READ_ARTICLE' EXPORTING i_matnr = j_7lkm1-matnr i_bukrs = j_7lkm1-bukrs i_land = j_7lkm1-land1 i_vrkme = j_7lkm1-vrkme i_variante = j_7lkm1-variante i_datab = p_datbi_old * I_DATBI = I_DATBI i_flg_buffer_on = 'X' * I_FLG_ENQUE_ART = ' ' TABLES o_m01 = tmp_m01 o_m02 = tmp_m02 o_m03 = tmp_m03 o_m04 = tmp_m04 o_m05 = tmp_m05 o_m06 = tmp_m06 * O_M07 = O_M07 * O_M08 = o_M08 o_m09 = tmp_m09 o_m10 = tmp_m10 * O_M11 = O_M11 return = return EXCEPTIONS read_error = 1.

J_7L_READ_ARTICLE * CALL FUNCTION 'J_7L_READ_ARTICLE' * EXPORTING * i_matnr = j_7lkm1-matnr * i_bukrs = j_7lkm1-bukrs * i_land = j_7lkm1-land1 * i_vrkme = j_7lkm1-vrkme * i_datab = p_datbi ** I_DATBI = I_DATBI ** I_FLG_BUFFER_ON = ' ' ** I_FLG_ENQUE_ART = ' ' * TABLES * o_m01 = tmp_m01 * o_m02 = tmp_m02 * o_m03 = tmp_m03 * o_m04 = tmp_m04 * o_m05 = tmp_m05 * o_m06 = tmp_m06 ** O_M07 = O_M07 ** O_M08 = o_M08 * o_m09 = tmp_m09 * o_m10 = tmp_m10 ** O_M11 = O_M11 * return = return * EXCEPTIONS * read_error = 1.

J_7L_READ_ARTICLE CALL FUNCTION 'J_7L_READ_ARTICLE' EXPORTING i_matnr = j_7lkm1-matnr i_bukrs = j_7lkm1-bukrs i_land = j_7lkm1-land1 i_vrkme = j_7lkm1-vrkme i_variante = j_7lkm1-variante i_datab = p_datbi_old * I_DATBI = I_DATBI i_flg_buffer_on = 'X' * I_FLG_ENQUE_ART = ' ' TABLES o_m01 = tmp_m01 o_m02 = tmp_m02 o_m03 = tmp_m03 o_m04 = tmp_m04 o_m05 = tmp_m05 o_m06 = tmp_m06 * O_M07 = O_M07 * O_M08 = o_M08 o_m09 = tmp_m09 o_m10 = tmp_m10 * O_M11 = O_M11 return = return EXCEPTIONS read_error = 1.

CONVERSION_EXIT_MATN1_OUTPUT * CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT' "#EC * * EXPORTING * input = p_matnr * IMPORTING * output = matnr_mara * EXCEPTIONS * OTHERS = 1.

CHANGEDOCUMENT_READ_POSITIONS * CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS' * EXPORTING * changenumber = cdhdr_tab-changenr * IMPORTING * header = cdhdr * TABLES * editpos = cdshw_tab * EXCEPTIONS * no_position_found = 1 * OTHERS = 2.

CHANGEDOCUMENT_READ_HEADERS CALL FUNCTION 'CHANGEDOCUMENT_READ_HEADERS' EXPORTING objectclass = objectclass_save objectid = objectid_save username = username_save TABLES i_cdhdr = cdhdr_tab EXCEPTIONS no_position_found = 1 OTHERS = 2.

J_7L_CHANGEDOCUMENT_DISPLAY CALL FUNCTION 'J_7L_CHANGEDOCUMENT_DISPLAY' EXPORTING i_title = text-018 i_header_structure = 'J_7LCDHDR' i_item_structure = 'J_7LCDITM' i_mode = 'X' TABLES it_changedocuments = cdhdr_tab EXCEPTIONS no_changedocuments = 1 error_read_position = 2 internal_error = 3 OTHERS = 4.

ENQUEUE_EJ_7LM CALL FUNCTION 'ENQUEUE_EJ_7LM' EXPORTING mode_j_7lm01 = 'S' mandt = sy-mandt matnr = j_7lkm1-matnr variante = j_7lkm1-variante x_variante = 'X' _scope = '1' * _WAIT = ' ' * _COLLECT = ' ' EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3.

DEQUEUE_EJ_7LM CALL FUNCTION 'DEQUEUE_EJ_7LM' "#EC * EXPORTING mode_j_7lm01 = 'S' mandt = sy-mandt matnr = j_7lkm1-matnr variante = j_7lkm1-variante x_variante = 'X' _scope = '1' * _SYNCHRON = ' ' * _COLLECT = ' ' EXCEPTIONS OTHERS = 1.

ENQUEUE_EJ_7LM CALL FUNCTION 'ENQUEUE_EJ_7LM' EXPORTING mode_j_7lm01 = 'E' mandt = sy-mandt matnr = j_7lkm1-matnr variante = j_7lkm1-variante x_variante = 'X' _scope = '1' * _WAIT = ' ' * _COLLECT = ' ' EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3.

DEQUEUE_EJ_7LM CALL FUNCTION 'DEQUEUE_EJ_7LM' EXPORTING mode_j_7lm01 = 'E' mandt = sy-mandt matnr = j_7lkm1-matnr variante = j_7lkm1-variante x_variante = 'X' _scope = '1' * _SYNCHRON = ' ' * _COLLECT = ' ' EXCEPTIONS OTHERS = 1.

DEQUEUE_EJ_7LFAVOURITE_M CALL FUNCTION 'DEQUEUE_EJ_7LFAVOURITE_M' EXPORTING mode_j_7l_f10 = 'E' * MANDT = SY-MANDT favourite_key = partner_favourite_key user_key = sy-uname.

DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = 'SAPMJ7LM' dynumb = dynumber * PERFORM_INPUT_CONVERSION = 'X' TABLES dynpfields = dynpfields.

CONVERSION_EXIT_CUNIT_INPUT CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT' EXPORTING input = dynpfields-fieldvalue IMPORTING output = dynpfields-fieldvalue EXCEPTIONS unit_not_found = 1 OTHERS = 2.

DYNP_VALUES_UPDATE CALL FUNCTION 'DYNP_VALUES_UPDATE' "#EC * EXPORTING dyname = 'SAPMJ7LM' dynumb = dynumber TABLES dynpfields = dynpfields EXCEPTIONS invalid_abapworkarea = 1 invalid_dynprofield = 2 invalid_dynproname = 3 invalid_dynpronummer = 4 invalid_request = 5 no_fielddescription = 6 undefind_error = 7 OTHERS = 8.

J_7L_KONDITIONEN_UPDATE_SYNC CALL FUNCTION 'J_7L_KONDITIONEN_UPDATE_SYNC' "#EC * EXPORTING matnr = j_7lkm1-matnr variante = j_7lkm1-variante bukrs = j_7lkm1-bukrs land1 = j_7lkm1-land1 vrkme = vrkme_tab-vrkme loekz = 'X' mevwx_loekz = 'X' TABLES message_tab = message_tab EXCEPTIONS OTHERS = 1.

J_7L_KONDITIONEN_UPDATE_SYNC CALL FUNCTION 'J_7L_KONDITIONEN_UPDATE_SYNC' "#EC * EXPORTING matnr = j_7lkm1-matnr variante = j_7lkm1-variante bukrs = j_7lkm1-bukrs land1 = j_7lkm1-land1 loekz = 'X' TABLES message_tab = message_tab EXCEPTIONS OTHERS = 1.

J_7L_KONDITIONEN_UPDATE_SYNC CALL FUNCTION 'J_7L_KONDITIONEN_UPDATE_SYNC' "#EC * EXPORTING matnr = j_7lkm1-matnr variante = j_7lkm1-variante bukrs = j_7lkm1-bukrs land1 = j_7lkm1-land1 vrkme = vrkme_tab-vrkme loekz = c_loekz mevwx_loekz = j_7lkm1-mevwx_old TABLES message_tab = message_tab EXCEPTIONS OTHERS = 1.




J_7L_KONDITIONEN_UPDATE_SYNC CALL FUNCTION 'J_7L_KONDITIONEN_UPDATE_SYNC' "#EC * EXPORTING matnr = j_7lkm1-matnr variante = j_7lkm1-variante bukrs = j_7lkm1-bukrs land1 = j_7lkm1-land1 vrkme = vrkme_tab-vrkme loekz = c_loekz mevwx_loekz = j_7lkm1-mevwx_old TABLES message_tab = message_tab EXCEPTIONS OTHERS = 1.

J_7L_KONDITIONEN_UPDATE_ASYNC CALL FUNCTION 'J_7L_KONDITIONEN_UPDATE_ASYNC' IN BACKGROUND TASK EXPORTING matnr = j_7lkm1-matnr variante = j_7lkm1-variante bukrs = j_7lkm1-bukrs land1 = j_7lkm1-land1 vrkme = j_7lkm1-vrkme vmekz = j_7lkm1-vmekz loekz = p_loekz mevwx_loekz = j_7lkm1-mevwx_old merel = j_7lkm1-merel merel_old = merel_save.

J_7L_CHECK_ARTICLE CALL FUNCTION 'J_7L_CHECK_ARTICLE' EXPORTING i_matnr = j_7lkm1-matnr i_bukrs = j_7lkm1-bukrs i_land1 = j_7lkm1-land1 i_vrkme = j_7lkm1-vrkme i_variante = j_7lkm1-variante i_kzten = 'X' * IMPORTING * o_check_summary = dummy_check_summary TABLES i_entnr = entnr_range o_message_tab = message_tab.

J_7L_CONSISTENCY_DISPLAY CALL FUNCTION 'J_7L_CONSISTENCY_DISPLAY' EXPORTING i_mode_article = 'X' * I_PACKAGING = i_article = j_7lkm1 TABLES i_message_tab = message_tab.

J_7L_VERSCHNITT CALL FUNCTION 'J_7L_VERSCHNITT' "#EC * EXPORTING matnr = p_vrpnr laeng = p_laeng breit = p_breit meabm = p_meabm fmeng = p_menge meins = p_meins blfmeng = p_fmeng blmeins = p_fmein IMPORTING verschnitt = p_verschnitt EXCEPTIONS not_found = 1 unit_conversion = 2 not_fit = 3 OTHERS = 4.

J_7L_FRAKTIONEN_VERPACKUNG CALL FUNCTION 'J_7L_FRAKTIONEN_VERPACKUNG' EXPORTING vrpnr = p_vrpnr variante = p_variante fmeng = p_menge meins = p_meins verschnitt = p_verschnitt datum = datum_save init = 'X' IMPORTING tara = tara_save gewei = p_gewei TABLES j_7lkf1_tab = j_7lkf1_tab EXCEPTIONS vrpnr_not_found = 1 unit_conversion_error = 2 * FRAKTION_NOT_FOUND = 3 * UNSPECIFIED_ERROR = 4 OTHERS = 3.

J_7L_VOLUMEN_FLAECHEN_KLASSE CALL FUNCTION 'J_7L_VOLUMEN_FLAECHEN_KLASSE' EXPORTING vrpnr = j_7lkm1-vrpnr variante = j_7lkv1-variante entnr = j_7le01-entnr land1 = j_7lkm1-land1 bukrs = j_7lkm1-bukrs vparts = j_7lkv1-vparts sokoa = j_7lkv1-sokoa vpformtyp = j_7lkv1-vpformtyp laeng = j_7lzdat-laeng breit = j_7lzdat-breit hoehe = j_7lzdat-hoehe meabm = j_7lzdat-meabm ntgew = ntgew_save gewei = gewei_save x_vpgew_v01 = x_vpgew_v01 datum = datum_save IMPORTING vflkl = j_7lkv1-vflkl faktor = j_7lkv1-faktor text = j_7lkv1-text price = c_price vpart_no_stke = c_no_stke EXCEPTIONS not_found = 1 not_unique = 2 OTHERS = 3.

J_7L_VERSCHNITT CALL FUNCTION 'J_7L_VERSCHNITT' EXPORTING matnr = j_7lkm1-vrpnr laeng = j_7lzdat-laeng breit = j_7lzdat-breit meabm = j_7lzdat-meabm fmeng = j_7lkm1-fmeng meins = j_7lkm1-meins blfmeng = j_7lzdat-fmeng blmeins = j_7lzdat-meins IMPORTING verschnitt = j_7lkv1-verschnitt EXCEPTIONS not_found = 1 unit_conversion = 2 not_fit = 3 OTHERS = 4.

J_7L_FAKTOR_STUECKENTGELT CALL FUNCTION 'J_7L_FAKTOR_STUECKENTGELT' EXPORTING vrpnr = j_7lkv1-vrpnr variante = j_7lkv1-variante entnr = j_7le01-entnr land1 = j_7lkm1-land1 vflkl = j_7lkv1-vflkl ntgew = ntgew_save gewei = gewei_save * fmeng = * meins = * verschnitt = datum = datum_save IMPORTING faktor = j_7lkv1-faktor text = j_7lkv1-text * EXCEPTIONS * ERROR_MASS_CALCULATION = 1 * ERROR_UNIT_CONVERSION = 1 * OTHERS = 2 .

J_7L_SPLITTING_INFO CALL FUNCTION 'J_7L_SPLITTING_INFO' EXPORTING i_matnr = j_7lkm1-matnr i_variante = j_7lkm1-variante i_bukrs = j_7lkm1-bukrs i_land1 = j_7lkm1-land1 i_vrkme = j_7lkm1-vrkme TABLES o_splitting_info = splitting_info_tab.

J_7L_SPLITTING_INFO_DISPLAY CALL FUNCTION 'J_7L_SPLITTING_INFO_DISPLAY' EXPORTING i_article = j_7lkm1 TABLES i_splitting_info = splitting_info_tab.

J_7L_CHECK_ARTICLE CALL FUNCTION 'J_7L_CHECK_ARTICLE' EXPORTING i_matnr = j_7lkm1-matnr i_bukrs = j_7lkm1-bukrs i_land1 = j_7lkm1-land1 i_vrkme = j_7lkm1-vrkme i_variante = j_7lkm1-variante i_datab = j_7lkm1-datab i_datbi = j_7lkm1-datbi i_kzten = 'X' i_filter_on = 'X' IMPORTING o_check_summary = check_summary TABLES i_entnr = entnr_range.

SWE_REQUESTER_TO_UPDATE * CALL FUNCTION 'SWE_REQUESTER_TO_UPDATE'.

J_7LM_WRITE_DOCUMENT * CALL FUNCTION 'J_7LM_WRITE_DOCUMENT ' IN UPDATE TASK * EXPORTING * objectid = objectid * tcode = tcode * utime = utime * udate = udate * username = username * planned_change_number = planned_change_number * object_change_indicator = cdoc_upd_object * planned_or_real_changes = cdoc_planned_or_real * no_change_pointers = cdoc_no_change_pointers * o_j_7lm01 = *j_7lm01 * n_j_7lm01 = *j_7lm01 * upd_j_7lm01 = upd_no * o_j_7lm02 = *j_7lm02 * n_j_7lm02 = *j_7lm02 * upd_j_7lm02 = upd_no * o_j_7lm03 = *j_7lm03 * n_j_7lm03 = *j_7lm03 * upd_j_7lm03 = upd_no * upd_j_7lm04 = upd_j_7lm04 * upd_j_7lm05 = upd_no * upd_j_7lm06 = upd_j_7lm06 * upd_j_7lm09 = upd_j_7lm09 * upd_j_7lm10 = upd_no * upd_j_7lm11 = upd_no * upd_icdtxt_j_7lm = upd_no * TABLES * icdtxt_j_7lm = icdtxt_j_7lm * xj_7lm04 = xj_7lm04 * yj_7lm04 = yj_7lm04 * xj_7lm05 = yj_7lm05 * yj_7lm05 = yj_7lm05 * xj_7lm06 = xj_7lm06 * yj_7lm06 = yj_7lm06 * xj_7lm09 = xj_7lm09 * yj_7lm09 = yj_7lm09 * xj_7lm10 = yj_7lm10 * yj_7lm10 = yj_7lm10 * xj_7lm11 = yj_7lm11 * yj_7lm11 = yj_7lm11.

SWE_REQUESTER_TO_UPDATE * CALL FUNCTION 'SWE_REQUESTER_TO_UPDATE'.

J_7LM_WRITE_DOCUMENT * CALL FUNCTION 'J_7LM_WRITE_DOCUMENT ' IN UPDATE TASK * EXPORTING * objectid = objectid * tcode = tcode * utime = utime * udate = udate * username = username * planned_change_number = planned_change_number * object_change_indicator = cdoc_upd_object * planned_or_real_changes = cdoc_planned_or_real * no_change_pointers = cdoc_no_change_pointers * o_j_7lm01 = *j_7lm01 * n_j_7lm01 = *j_7lm01 * upd_j_7lm01 = upd_no * o_j_7lm02 = *j_7lm02 * n_j_7lm02 = *j_7lm02 * upd_j_7lm02 = upd_no * o_j_7lm03 = *j_7lm03 * n_j_7lm03 = *j_7lm03 * upd_j_7lm03 = upd_no * upd_j_7lm04 = upd_no * upd_j_7lm05 = upd_j_7lm05 * upd_j_7lm06 = upd_no * upd_j_7lm09 = upd_no * upd_j_7lm10 = upd_j_7lm10 * upd_j_7lm11 = upd_no * upd_icdtxt_j_7lm = upd_no * TABLES * icdtxt_j_7lm = icdtxt_j_7lm * xj_7lm04 = yj_7lm04 * yj_7lm04 = yj_7lm04 * xj_7lm05 = xj_7lm05 * yj_7lm05 = yj_7lm05 * xj_7lm06 = yj_7lm06 * yj_7lm06 = yj_7lm06 * xj_7lm09 = yj_7lm09 * yj_7lm09 = yj_7lm09 * xj_7lm10 = xj_7lm10 * yj_7lm10 = yj_7lm10 * xj_7lm11 = yj_7lm11 * yj_7lm11 = yj_7lm11.

J_7L_READ_ARTICLE CALL FUNCTION 'J_7L_READ_ARTICLE' EXPORTING i_matnr = j_7lkm1-matnr i_bukrs = j_7lkm1-bukrs i_land = j_7lkm1-land1 i_vrkme = j_7lkm1-vrkme i_variante = j_7lkm1-variante * I_DATAB = * I_DATBI = i_flg_buffer_on = 'X' * I_FLG_ENQUE_ART = ' ' TABLES * O_M01 = * O_M02 = * O_M03 = o_m04 = tmp_m04 * O_M05 = * O_M06 = * O_M07 = * O_M08 = * O_M09 = * O_M10 = * O_M11 = return = return EXCEPTIONS read_error = 1 OTHERS = 2.

MATERIAL_UNIT_CONVERSION CALL FUNCTION 'MATERIAL_UNIT_CONVERSION' EXPORTING input = p_stue_tab-menge * KZMEINH = ' ' matnr = p_stue_tab-matnr meinh = meins_save meins = p_stue_tab-meins IMPORTING output = p_stue_tab-menge EXCEPTIONS conversion_not_found = 1 input_invalid = 2 material_not_found = 3 meinh_not_found = 4 meins_missing = 5 no_meinh = 6 output_invalid = 7 overflow = 8 OTHERS = 9.

MATERIAL_UNIT_CONVERSION CALL FUNCTION 'MATERIAL_UNIT_CONVERSION' EXPORTING input = p_stue_tab-menge * KZMEINH = ' ' matnr = p_stue_tab-matnr meinh = p_kmv_tab-meins meins = p_stue_tab-meins IMPORTING output = p_stue_tab-menge EXCEPTIONS conversion_not_found = 1 input_invalid = 2 material_not_found = 3 meinh_not_found = 4 meins_missing = 5 no_meinh = 6 output_invalid = 7 overflow = 8 OTHERS = 9.

NUMBER_RANGE_INTERVAL_LIST CALL FUNCTION 'NUMBER_RANGE_INTERVAL_LIST' EXPORTING * NR_RANGE_NR1 = ' ' * NR_RANGE_NR2 = ' ' object = object_tab-object * SUBOBJECT = ' ' * CLEAR_LOCAL_MEMORY = ' ' TABLES interval = lt_inriv EXCEPTIONS nr_range_nr1_not_found = 1 nr_range_nr1_not_intern = 2 nr_range_nr2_must_be_space = 3 nr_range_nr2_not_extern = 4 nr_range_nr2_not_found = 5 object_not_found = 6 subobject_must_be_space = 7 subobject_not_found = 8 OTHERS = 9.

J_7L_READ_ARTICLE CALL FUNCTION 'J_7L_READ_ARTICLE' EXPORTING i_matnr = j_7lkm1-matnr i_bukrs = j_7lkm1-bukrs i_land = j_7lkm1-land1 i_vrkme = j_7lkm1-vrkme i_variante = j_7lkm1-variante * I_DATAB = * I_DATBI = i_flg_buffer_on = 'X' * I_FLG_ENQUE_ART = ' ' TABLES * O_M01 = * O_M02 = * O_M03 = o_m04 = tmp_m04 o_m05 = tmp_m05 * o_m06 = * O_M07 = * O_M08 = * O_M09 = * O_M10 = * O_M11 = return = return EXCEPTIONS read_error = 1 OTHERS = 2.

NUMBER_GET_NEXT_V1 CALL FUNCTION 'NUMBER_GET_NEXT_V1' EXPORTING nr_range_nr = p_nrrangenr object = c_object * quantity = * SUBOBJECT = ' ' * TOYEAR = '0000' ignore_buffer = 'X' IMPORTING number = mekey_save * quantity = returncode = rc EXCEPTIONS interval_not_found = 1 number_range_not_intern = 2 object_not_found = 3 quantity_is_0 = 4 OTHERS = 5.

F4IF_INT_TABLE_VALUE_REQUEST CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING * ddic_structure = tabname_save retfield = fieldname_save * PVALKEY = ' ' * DYNPPROG = ' ' * DYNPNR = ' ' * DYNPROFIELD = ' ' * STEPL = 0 window_title = p_titel value = sel_value value_org = 'S' * MULTIPLE_CHOICE = ' ' display = c_display * CALLBACK_PROGRAM = ' ' * CALLBACK_FORM = ' ' * MARK_TAB = * IMPORTING * USER_RESET = TABLES value_tab = hdlst_tab * field_tab = fields_tab return_tab = lt_return * DYNPFLD_MAPPING = EXCEPTIONS parameter_error = 1 no_values_found = 2 OTHERS = 3.

HELP_VALUES_GET_NO_DD_NAME * CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME' * EXPORTING * CUCOL = 3 * CUROW = 0 * DISPLAY = C_DISPLAY * SELECTFIELD = FIELDNAME_SAVE * TITEL = P_TITEL * IMPORTING ** IND = * SELECT_VALUE = SEL_VALUE * TABLES * FIELDS = FIELDS_TAB * FULL_TABLE = HDLST_TAB * EXCEPTIONS * NO_TABLEFIELDS_IN_DICTIONARY = 1 * NO_TABLESTRUCTURE_GIVEN = 2 * MORE_THEN_ONE_SELECTFIELD = 3 * NO_SELECTFIELD = 4 * OTHERS = 5.

HELP_VALUES_GET_AND_RETURN_TAB * CALL FUNCTION 'HELP_VALUES_GET_AND_RETURN_TAB' * EXPORTING * cucol = 3 ** CUROW = 0 * display = c_display * selectfield = fieldname_save * tablename = tabname_save * write_selectfield_in_colours = 'X' * use_user_defined_fields = ' ' ** NO_SCROLL = ' ' * titel = p_titel ** MARK_ALL_BY_DEFAULT = ' ' * return_presel_values = 'X' * IMPORTING * returncode = c_return * TABLES * full_table = hdlst_tab * selection_tab = sel_tab ** USER_FIELDS = * user_marked_values = selval_tab * EXCEPTIONS * no_tablefields_in_dictionary = 1 * no_tablestructure_given = 2 * field_not_in_ddic = 3 * more_then_one_selectfield = 4 * no_selectfield = 5 * OTHERS = 6.

F4IF_INT_TABLE_VALUE_REQUEST CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING * DDIC_STRUCTURE = ' ' retfield = fieldname_save * PVALKEY = ' ' * DYNPPROG = ' ' * DYNPNR = ' ' * DYNPROFIELD = ' ' * STEPL = 0 window_title = p_titel * VALUE = ' ' value_org = 'S' multiple_choice = 'X' display = c_display * CALLBACK_PROGRAM = ' ' * CALLBACK_FORM = ' ' mark_tab = selval_tab * IMPORTING * USER_RESET = TABLES value_tab = hdlst_tab * FIELD_TAB = return_tab = lt_return * DYNPFLD_MAPPING = EXCEPTIONS parameter_error = 1 no_values_found = 2 OTHERS = 3.

F4IF_INT_TABLE_VALUE_REQUEST CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING * DDIC_STRUCTURE = TABNAME_SAVE retfield = fieldname_save * PVALKEY = ' ' * DYNPPROG = ' ' * DYNPNR = ' ' * DYNPROFIELD = ' ' * STEPL = 0 window_title = text-108 value = sel_value value_org = 'S' * MULTIPLE_CHOICE = ' ' display = c_display * CALLBACK_PROGRAM = ' ' * CALLBACK_FORM = ' ' * MARK_TAB = * IMPORTING * USER_RESET = TABLES value_tab = infok_tab * FIELD_TAB = FIELDS_TAB return_tab = lt_return * DYNPFLD_MAPPING = EXCEPTIONS parameter_error = 1 no_values_found = 2 OTHERS = 3.

HELP_VALUES_GET_NO_DD_NAME * CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME' * EXPORTING * CUCOL = 3 * CUROW = 0 * DISPLAY = C_DISPLAY * SELECTFIELD = FIELDNAME_SAVE * TITEL = TEXT-108 * IMPORTING ** IND = * SELECT_VALUE = SEL_VALUE * TABLES * FIELDS = FIELDS_TAB * FULL_TABLE = INFOK_TAB * EXCEPTIONS * NO_TABLEFIELDS_IN_DICTIONARY = 1 * NO_TABLESTRUCTURE_GIVEN = 2 * MORE_THEN_ONE_SELECTFIELD = 3 * NO_SELECTFIELD = 4 * OTHERS = 5.

F4IF_INT_TABLE_VALUE_REQUEST CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING * ddic_structure = tabname_save retfield = fieldname_save * PVALKEY = ' ' * DYNPPROG = ' ' * DYNPNR = ' ' * DYNPROFIELD = ' ' * STEPL = 0 window_title = text-109 value = sel_value value_org = 'S' * MULTIPLE_CHOICE = ' ' display = c_display * CALLBACK_PROGRAM = ' ' * CALLBACK_FORM = ' ' * MARK_TAB = * IMPORTING * USER_RESET = TABLES value_tab = fuellg_tab * field_tab = fields_tab return_tab = lt_return * DYNPFLD_MAPPING = EXCEPTIONS parameter_error = 1 no_values_found = 2 OTHERS = 3.

HELP_VALUES_GET_NO_DD_NAME * CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME' * EXPORTING * CUCOL = 3 * CUROW = 0 * DISPLAY = C_DISPLAY * SELECTFIELD = FIELDNAME_SAVE * TITEL = TEXT-109 * IMPORTING ** IND = * SELECT_VALUE = SEL_VALUE * TABLES * FIELDS = FIELDS_TAB * FULL_TABLE = FUELLG_TAB * EXCEPTIONS * NO_TABLEFIELDS_IN_DICTIONARY = 1 * NO_TABLESTRUCTURE_GIVEN = 2 * MORE_THEN_ONE_SELECTFIELD = 3 * NO_SELECTFIELD = 4 * OTHERS = 5.

J_7L_SPLITTING_FAKTOR_DATUM CALL FUNCTION 'J_7L_SPLITTING_FAKTOR_DATUM' EXPORTING entna = p_entna land1 = j_7lkm1-land1 kokey = kokey_tab-kokey datam = j_7lke1-datam kotyp = 'M' no_puffer = 'X' no_text_in_list = 'X' IMPORTING kproz = kokey_tab-kproz kzprad = kokey_tab-kzprad TABLES koart_tab = koart_tab * J_7LC36_TAB = * J_7LC37_TAB = * J_7LC38_TAB = EXCEPTIONS OTHERS = 1.

F4IF_INT_TABLE_VALUE_REQUEST CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING * ddic_structure = tabname_save retfield = fieldname_save * PVALKEY = ' ' * DYNPPROG = ' ' * DYNPNR = ' ' * DYNPROFIELD = ' ' * STEPL = 0 window_title = text-024 value = sel_value value_org = 'S' * MULTIPLE_CHOICE = ' ' display = c_display * CALLBACK_PROGRAM = ' ' * CALLBACK_FORM = ' ' * MARK_TAB = * IMPORTING * USER_RESET = TABLES value_tab = kokey_tab * field_tab = fields_tab return_tab = lt_return * DYNPFLD_MAPPING = EXCEPTIONS parameter_error = 1 no_values_found = 2 OTHERS = 3.

HELP_VALUES_GET_NO_DD_NAME * CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME' * EXPORTING * CUCOL = 1 * CUROW = 0 * DISPLAY = C_DISPLAY * SELECTFIELD = FIELDNAME_SAVE * TITEL = TEXT-024 * IMPORTING * IND = SEL_INDEX * SELECT_VALUE = SEL_VALUE * TABLES * FIELDS = FIELDS_TAB * FULL_TABLE = KOKEY_TAB * EXCEPTIONS * NO_TABLEFIELDS_IN_DICTIONARY = 1 * NO_TABLESTRUCTURE_GIVEN = 2 * MORE_THEN_ONE_SELECTFIELD = 3 * NO_SELECTFIELD = 4 * OTHERS = 5.

J_7L_SPLITTING_PERIODE CALL FUNCTION 'J_7L_SPLITTING_PERIODE' EXPORTING i_datab = j_7lke1-datab i_datbi = j_7lke1-datbi TABLES i_entna = entna_range i_land1 = land1_range i_kokey = kokey_range * i_vrsio = i_kotyp = kotyp_range o_splitting_periode = splitting_periode.

J_7L_SPLITTING_PERIODE_DISPLAY CALL FUNCTION 'J_7L_SPLITTING_PERIODE_DISPLAY' TABLES i_perioden_tab = splitting_periode.

J_7L_SPLITTING_PERIODE CALL FUNCTION 'J_7L_SPLITTING_PERIODE' EXPORTING i_datab = j_7lke1-datab i_datbi = j_7lke1-datbi TABLES i_entna = entna_range i_land1 = land1_range i_kokey = kokey_range * i_vrsio = i_kotyp = kotyp_range o_splitting_periode = splitting_periode.

J_7L_SPLITTING_PERIODE_DISPLAY CALL FUNCTION 'J_7L_SPLITTING_PERIODE_DISPLAY' * EXPORTING * I_MODE_ARTICLE = ' ' * I_PACKAGING = * I_ARTICLE = TABLES i_perioden_tab = splitting_periode.

J_7L_SPLITTING_PERIODE CALL FUNCTION 'J_7L_SPLITTING_PERIODE' EXPORTING i_datab = j_7lke1-datab i_datbi = j_7lke1-datbi TABLES i_entna = entna_range i_land1 = land1_range i_kokey = kokey_range * i_vrsio = i_kotyp = kotyp_range o_splitting_periode = splitting_periode.

J_7L_SPLITTING_PERIODE_DISPLAY CALL FUNCTION 'J_7L_SPLITTING_PERIODE_DISPLAY' TABLES i_perioden_tab = splitting_periode.

J_7L_SPLITTING_PERIODE CALL FUNCTION 'J_7L_SPLITTING_PERIODE' EXPORTING i_datab = j_7lke1-datab i_datbi = j_7lke1-datbi TABLES i_entna = entna_range i_land1 = land1_range i_kokey = kokey_range * i_vrsio = i_kotyp = kotyp_range o_splitting_periode = splitting_periode.

J_7L_SPLITTING_PERIODE_DISPLAY CALL FUNCTION 'J_7L_SPLITTING_PERIODE_DISPLAY' TABLES i_perioden_tab = splitting_periode.

ENQUEUE_EJ_7LV CALL FUNCTION 'ENQUEUE_EJ_7LV' EXPORTING mode_j_7lv01 = 'E' * mode_j_7lv02 = 'E' * mode_j_7lv03 = 'E' * mode_j_7lv06 = 'E' mandt = sy-mandt vrpnr = p_vrpnr variante = p_vvariante x_variante = 'X' _scope = '1' * _WAIT = ' ' * _COLLECT = ' ' EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3.

DEQUEUE_EJ_7LV CALL FUNCTION 'DEQUEUE_EJ_7LV' "#EC * EXPORTING mode_j_7lv01 = 'E' * mode_j_7lv02 = 'E' * mode_j_7lv03 = 'E' * mode_j_7lv06 = 'E' mandt = sy-mandt vrpnr = p_vrpnr variante = p_vvariante x_variante = 'X' _scope = '1' * _SYNCHRON = ' ' * _COLLECT = ' ' EXCEPTIONS OTHERS = 1.

ENQUEUE_EJ_7LV CALL FUNCTION 'ENQUEUE_EJ_7LV' EXPORTING mode_j_7lv01 = 'E' * mode_j_7lv02 = 'E' * mode_j_7lv03 = 'E' * mode_j_7lv06 = 'E' mandt = sy-mandt vrpnr = vrp_tab-vrpnr variante = vrp_tab-vvariante x_variante = 'X' _scope = '1' * _WAIT = ' ' * _COLLECT = ' ' EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3.

DEQUEUE_EJ_7LV CALL FUNCTION 'DEQUEUE_EJ_7LV' "#EC * EXPORTING mode_j_7lv01 = 'E' * mode_j_7lv02 = 'E' * mode_j_7lv03 = 'E' * mode_j_7lv06 = 'E' mandt = sy-mandt vrpnr = vrp_tab-vrpnr variante = vrp_tab-vvariante x_variante = 'X' _scope = '1' * _SYNCHRON = ' ' * _COLLECT = ' ' EXCEPTIONS OTHERS = 1.

ENQUEUE_EJ_7LV CALL FUNCTION 'ENQUEUE_EJ_7LV' EXPORTING mode_j_7lv01 = 'E' * mode_j_7lv02 = 'E' * mode_j_7lv03 = 'E' * mode_j_7lv06 = 'E' mandt = sy-mandt vrpnr = lt_j_7lm04-vrpnr variante = lt_j_7lm04-vvariante x_variante = 'X' _scope = '1' * _WAIT = ' ' * _COLLECT = ' ' EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3.

DEQUEUE_EJ_7LV CALL FUNCTION 'DEQUEUE_EJ_7LV' "#EC * EXPORTING mode_j_7lv01 = 'E' * mode_j_7lv02 = 'E' * mode_j_7lv03 = 'E' * mode_j_7lv06 = 'E' mandt = sy-mandt vrpnr = lt_j_7lm04-vrpnr variante = lt_j_7lm04-vvariante x_variante = 'X' _scope = '1' * _SYNCHRON = ' ' * _COLLECT = ' ' EXCEPTIONS OTHERS = 1.

ENQUEUE_EJ_7LV CALL FUNCTION 'ENQUEUE_EJ_7LV' EXPORTING mode_j_7lv01 = 'E' * mode_j_7lv02 = 'E' * mode_j_7lv03 = 'E' * mode_j_7lv06 = 'E' mandt = sy-mandt vrpnr = lt_j_7lm04-vrpnr variante = lt_j_7lm04-vvariante x_variante = 'X' _scope = '1' * _WAIT = ' ' * _COLLECT = ' ' EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3.

DEQUEUE_EJ_7LV CALL FUNCTION 'DEQUEUE_EJ_7LV' "#EC * EXPORTING mode_j_7lv01 = 'E' * mode_j_7lv02 = 'E' * mode_j_7lv03 = 'E' * mode_j_7lv06 = 'E' mandt = sy-mandt vrpnr = lt_j_7lm04-vrpnr variante = lt_j_7lm04-vvariante x_variante = 'X' _scope = '1' * _SYNCHRON = ' ' * _COLLECT = ' ' EXCEPTIONS OTHERS = 1.

ENQUEUE_EJ_7LV CALL FUNCTION 'ENQUEUE_EJ_7LV' EXPORTING mode_j_7lv01 = 'E' * mode_j_7lv02 = 'E' * mode_j_7lv03 = 'E' * mode_j_7lv06 = 'E' mandt = sy-mandt vrpnr = j_7lkv1-vrpnr variante = j_7lkv1-variante x_variante = 'X' _scope = '1' * _WAIT = ' ' * _COLLECT = ' ' EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3.

DEQUEUE_EJ_7LV CALL FUNCTION 'DEQUEUE_EJ_7LV' "#EC * EXPORTING mode_j_7lv01 = 'E' * mode_j_7lv02 = 'E' * mode_j_7lv03 = 'E' * mode_j_7lv06 = 'E' mandt = sy-mandt vrpnr = j_7lkv1-vrpnr variante = j_7lkv1-variante x_variante = 'X' _scope = '1' * _SYNCHRON = ' ' * _COLLECT = ' ' EXCEPTIONS OTHERS = 1.

ENQUEUE_EJ_7LV CALL FUNCTION 'ENQUEUE_EJ_7LV' EXPORTING mode_j_7lv01 = 'E' * mode_j_7lv02 = 'E' * mode_j_7lv03 = 'E' * mode_j_7lv06 = 'E' mandt = sy-mandt vrpnr = p_vrpnr variante = p_variante x_variante = 'X' _scope = '1' * _WAIT = ' ' * _COLLECT = ' ' EXCEPTIONS foreign_lock = 1 system_failure = 2 OTHERS = 3.

DEQUEUE_EJ_7LV CALL FUNCTION 'DEQUEUE_EJ_7LV' EXPORTING mode_j_7lv01 = 'E' * mode_j_7lv02 = 'E' * mode_j_7lv03 = 'E' * mode_j_7lv06 = 'E' mandt = sy-mandt vrpnr = p_vrpnr variante = p_variante x_variante = 'X' _scope = '1' * _SYNCHRON = ' ' * _COLLECT = ' ' EXCEPTIONS OTHERS = 1.

CONVERSION_EXIT_CUNIT_INPUT CALL FUNCTION 'CONVERSION_EXIT_CUNIT_INPUT' EXPORTING input = vrp_tab-meins language = sy-langu IMPORTING output = vrp_tab-meins EXCEPTIONS unit_not_found = 1 "#EC * OTHERS = 2. "#EC *

DYNP_VALUES_READ CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = 'SAPMJ7LM' dynumb = dynumber translate_to_upper = 'X' perform_conversion_exits = conversion_exits perform_input_conversion = input_conversion TABLES dynpfields = dynpfields.

J_7L_CHECK_ARTICLE CALL FUNCTION 'J_7L_CHECK_ARTICLE' EXPORTING i_matnr = j_7lkm1-matnr i_bukrs = j_7lkm1-bukrs i_land1 = j_7lkm1-land1 i_vrkme = j_7lkm1-vrkme i_variante = j_7lkm1-variante i_datab = j_7lke1-datab i_datbi = j_7lke1-datbi i_kzten = 'X' * IMPORTING * o_check_summary = dummy_check_summary TABLES i_entnr = entnr_tab o_message_tab = message_tab.

J_7L_CONSISTENCY_DISPLAY CALL FUNCTION 'J_7L_CONSISTENCY_DISPLAY' EXPORTING i_mode_article = 'X' * I_PACKAGING = i_article = j_7lkm1 TABLES i_message_tab = message_tab.

HELP_OBJECT_SHOW CALL FUNCTION 'HELP_OBJECT_SHOW' EXPORTING dokclass = l_class doklangu = sy-langu dokname = l_docname * DOKTITLE = ' ' called_by_program = sy-repid called_by_dynp = sy-dynnr called_for_tab = l_tab called_for_field = p_field called_for_tab_fld_btch_input = p_btch * msg_var_1 = ' ' * MSG_VAR_2 = ' ' * MSG_VAR_3 = ' ' * MSG_VAR_4 = ' ' called_by_cuaprog = sy-cprog called_by_cuastat = sy-pfkey TABLES links = l_links EXCEPTIONS object_not_found = 1 sapscript_error = 2 OTHERS = 3.



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 MJ7LMF02 or its description.