SAP Reports / Programs | Media Product Sales and Distribution | SAP Media | Media Product Sales and Distribution(IS-M-SD-MS) SAP IS

RJP_MARA_SEGMENT_ADD_FORMS SAP ABAP INCLUDE - RJPMARASEGMENTADDFORMS







RJP_MARA_SEGMENT_ADD_FORMS 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 RJP_MARA_SEGMENT_ADD_FORMS 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 RJP_MARA_SEGMENT_ADD_FORMS. "Basic submit
SUBMIT RJP_MARA_SEGMENT_ADD_FORMS AND RETURN. "Return to original report after report execution complete
SUBMIT RJP_MARA_SEGMENT_ADD_FORMS 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 RJP_MARA_SEGMENT_ADD_FORMS

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:

ISM_MARA_SEGMENT_ADD_PREPARE CALL FUNCTION 'ISM_MARA_SEGMENT_ADD_PREPARE' EXPORTING IN_MEDPROD = MEDPROD_STRU IN_NEW_WERKS = p_werk IN_NEW_VKORG = p_vkorg IN_NEW_VTWEG = p_vtweg importing SEGMENT_EXIST_TAB = lt_still_exist_single TABLES IN_MEDISSUE_TAB = IN_MEDISSUE_TAB AMARA_UEB = MARA_TAB AMAKT_UEB = MAKT_TAB AMARC_UEB = MARC_TAB AMARD_UEB = MARD_TAB AMFHM_UEB = MFHM_TAB AMARM_UEB = MARM_TAB AMEA1_UEB = MEA1_TAB AMBEW_UEB = MBEW_TAB ASTEU_UEB = STEU_TAB ASTMM_UEB = STMM_TAB AMLGN_UEB = MLGN_TAB AMLGT_UEB = MLGT_TAB AMPGD_UEB = MPGD_TAB AMPOP_UEB = MPOP_TAB AMVEG_UEB = MVEG_TAB AMVEU_UEB = MVEU_TAB AMVKE_UEB = MVKE_TAB ALTX1_UEB = LTX1_TAB AMPRW_UEB = MPRW_TAB * IDCODE_TAB = IDCODE_TAB * BUPA_TAB = BUPA_TAB MDMA_PATTERN_TAB = MDMA_PATTERN_TAB . "TK11032002

MATERIAL_MAINTAIN_DARK CALL FUNCTION 'MATERIAL_MAINTAIN_DARK' EXPORTING * Bedeutung von FLAG_MUSS_PRUEFEN siehe F1 auf "Mußfelder * prüfen" des Selektionsbildes von RMDATIND !! FLAG_MUSS_PRUEFEN = CON_BLANK " 'X' SPERRMODUS = 'E' "Sperre Exclusiv MAX_ERRORS = 0 P_KZ_NO_WARN = 'N' KZ_PRF = ' ' "nicht eingabebereite Felder * KZ_VERW = 'X' * KZ_AEND = 'X' * KZ_DISPO = 'X' KZ_TEST = XTEST "Parameter Testlauf * NO_DATABASE_UPDATE = ' ' * CALL_MODE = ' ' CALL_MODE2 = 'ISM' * damit MATERIAL_UPDATE_OTHER_DATA wieder prozessiert wird !!! * USER = SY-UNAME * SUPPRESS_ARRAY_READ = ' ' IMPORTING MATNR_LAST = H_MATNR_LAST NUMBER_ERRORS_TRANSACTION = H_NUMBER_ERRORS_TRANSACTION TABLES AMARA_UEB = MARA_TAB AMAKT_UEB = MAKT_TAB AMARC_UEB = MARC_TAB AMARD_UEB = MARD_TAB AMFHM_UEB = MFHM_TAB AMARM_UEB = MARM_TAB AMBEW_UEB = MBEW_TAB ASTEU_UEB = STEU_TAB ASTMM_UEB = STMM_TAB AMLGN_UEB = MLGN_TAB AMLGT_UEB = MLGT_TAB AMPGD_UEB = MPGD_TAB AMVKE_UEB = MVKE_TAB ALTX1_UEB = LTX1_TAB * EAN-Nummern(je Mengeneinheit) werden nicht übernommen: * AMEA1_UEB = MEA1_TAB * Prognosewerte werden nicht übernommen (ist jetzt APO!): * AMPRW_UEB = MPRW_TAB * Prognoseparameter werden nicht übernommen (ist jetzt APO!): * AMPOP_UEB = MPOP_TAB * Geplante Verbräuche werden nicht übernommen: * AMVEG_UEB = MVEG_TAB * Ungeplante Verbräuche werden nicht übernommen: * AMVEU_UEB = MVEU_TAB * AMFIELDRES = AMERRDAT = ERRMSG_TAB_SINGLE EXCEPTIONS KSTATUS_EMPTY = 1 TKSTATUS_EMPTY = 2 T130M_ERROR = 3 INTERNAL_ERROR = 4 TOO_MANY_ERRORS = 5 UPDATE_ERROR = 6 OTHERS = 7 .

ISM_COPY_INFORECORDS CALL FUNCTION 'ISM_COPY_INFORECORDS' EXPORTING i_matnr = GEN_TAB_STRU-MATNR i_matnr_master = GEN_TAB_STRU-ISMMATNR_PATTERN I_WERKS_RANGE_TAB = lt_werks_range IMPORTING e_xinforecords_created = xinforecords_created E_ERROR_TAB = lt_error "TK08072010/hint1487084 EXCEPTIONS no_material = 1 no_material_master = 2 no_inforecords = 3 inforecord_creation_error = 4 inforecord_cond_creation_error = 5 OTHERS = 6.

ISM_SD_ISSUEDATE_GEN_CALC * CALL FUNCTION 'ISM_SD_ISSUEDATE_GEN_CALC' * EXPORTING * im_mara_tab = lt_mara[] * im_marc_tab = lt_marc[] * im_mvke_tab = lt_mvke[] * im_medprod = medprod_stru * EXCEPTIONS * jksdissuedate_creation_error = 1 * OTHERS = 2.

ISM_MATERIAL_DARK_ALOG CALL FUNCTION 'ISM_MATERIAL_DARK_ALOG' EXPORTING MEDPROD_STRU = MEDPROD_STRU MSGNO_SHORT = P_MSGNO_SHORT MSGID_SHORT = P_MSGID_SHORT MSGV1_SHORT = P_MSGV1_SHORT MSGV2_SHORT = P_MSGV2_SHORT MSGV3_SHORT = P_MSGV3_SHORT MSGV4_SHORT = P_MSGV4_SHORT NUMBER_ERRORS_TRANSACTION = H_NUMBER_ERRORS_TRANSACTION XTEST = XTEST ID_ERRMSG_TAB = ID_ERRMSG_TAB BUPA_ERRMSG_TAB = BUPA_ERRMSG_TAB CACL_ERRMSG_TAB = CACL_ERRMSG_TAB MDMA_ERRMSG_TAB = MDMA_ERRMSG_TAB lt_Still_exist = lt_still_exist xadd_segments = con_angekreuzt TABLES ERRMSG_TAB = ERRMSG_TAB.

ENQUEUE_EJPLF CALL FUNCTION 'ENQUEUE_EJPLF' EXPORTING MODE_RJP_ENQ_DELIV_SEQ = 'E' MANDT = SY-MANDT MED_PROD = P_MPROD * MED_ISSUE = * X_MED_PROD = ' ' * X_MED_ISSUE = ' ' _SCOPE = '1' * _WAIT = ' ' * _COLLECT = ' ' EXCEPTIONS FOREIGN_LOCK = 1 SYSTEM_FAILURE = 2 OTHERS = 3.

ENQUEUE_EMMARAE CALL FUNCTION 'ENQUEUE_EMMARAE' EXPORTING MATNR = gen_Tab_stru-MATNR EXCEPTIONS FOREIGN_LOCK = 01 SYSTEM_FAILURE = 02.

APPL_LOG_DISPLAY CALL FUNCTION 'APPL_LOG_DISPLAY' EXPORTING OBJECT = JPMG_CON_ALOG_OBJECT_ADD_SEG OBJECT_ATTRIBUTE = CON_AUSBLENDEN SUBOBJECT = ' ' SUBOBJECT_ATTRIBUTE = CON_AUSBLENDEN EXTERNAL_NUMBER = EXTNUMBER * EXTERNAL_NUMBER_ATTRIBUTE = CON_ANZEIGEN SUPPRESS_SELECTION_DIALOG = CON_ANGEKREUZT DATE_FROM = DATE_MIN TIME_FROM = TIME_MIN DATE_TO = DATE_MAX TIME_TO = TIME_MAX TITLE_SELECTION_SCREEN = TEXT-100 TITLE_LIST_SCREEN = TEXT-101 COLUMN_SELECTION = CON_COLUMN_SELECTION EXTERNAL_NUMBER_DISPLAY_LENGTH = 45.

ISM_PUBL_MIGRATION_ACTIVECHECK * CALL FUNCTION 'ISM_PUBL_MIGRATION_ACTIVECHECK' * EXPORTING * IN_PUBLICATION = MEDPROD-ISMPUBLICATION * IMPORTING * OUT_XMIGRATION_ACTIVE = XMIGRATION_ACTIVE * OUT_JYTGOLIV = H_JYTGOLIV.

MARA_AUTHORITY_CHECK CALL FUNCTION 'MARA_AUTHORITY_CHECK' EXPORTING AKTYP = CON_ACTYPE_CREATE EXCEPTIONS ONLY_DISPLAY = 1 NO_AUTHORITY = 2 OTHERS = 3.

ISM_TJPMATTYPSYNCHRO_READ CALL FUNCTION 'ISM_TJPMATTYPSYNCHRO_READ' "Rel.4.63

ISM_ISSUESEQUENCE_EVENT_ASSIGN CALL FUNCTION 'ISM_ISSUESEQUENCE_EVENT_ASSIGN' EXPORTING IN_ISSUE = EVENT_STRU-MATNR IN_MEDIAPRODUCT = MEDIENPRODUKT * EXCEPTIONS * MEDIAPRODUCT_NOT_FOUND = 1 * OTHERS = 2 .

ISM_ISSUESEQUENCE_EVENT_REMOVE CALL FUNCTION 'ISM_ISSUESEQUENCE_EVENT_REMOVE' EXPORTING IN_ISSUE = EVENT_STRU-MATNR IN_MEDIAPRODUCT = MEDIENPRODUKT * EXCEPTIONS * MEDIAPRODUCT_NOT_FOUND = 1 * OTHERS = 2 .

ISM_BAPI_MATERIAL_RT_PREPARE CALL FUNCTION 'ISM_BAPI_MATERIAL_RT_PREPARE' EXPORTING PATTERN_ARTICLE = PATTERN_MATNR NEW_SINGLE_MATERIAL = NEW_MATNR NEW_VARIANTS_TAB = VARIANT_TAB MAKT_STRU = MAKT_STRU in_mara = ls_mara "TK01102006 xadd_segments = con_angekreuzt in_new_werks = in_new_werks in_new_vkorg = in_new_vkorg in_new_vtweg = in_new_vtweg IMPORTING HEADDATA = HEADDATA TABLES IN_MVKE_TAB = MVKE_PREPARE_TAB "Input IN_MARC_TAB = MARC_PREPARE_TAB "Input IN_Mbew_TAB = Mbew_PREPARE_TAB "Input
* Segmente durchreichen für BADI------"TK20022009 * ISM_ISSUE_APPENDS_MAP_OUTSIDE "TK20022009 * (Kunden-Appends im Artikel!) "TK20022009 in_mard_tab = mard_prepare_tab "TK20022009 in_mlgn_tab = mlgn_prepare_tab "TK20022009 in_mlgt_tab = mlgt_prepare_tab "TK20022009 * wlk2_tab "noch nicht gelesen "TK20022009
VARIANTSKEYS = VARIANTSKEYS CHARACTERISTICVALUE = CHARACTERISTICVALUE CHARACTERISTICVALUEX = CHARACTERISTICVALUEX CLIENTDATA = CLIENTDATA CLIENTDATAX = CLIENTDATAX CLIENTEXT = CLIENTEXT CLIENTEXTX = CLIENTEXTX ADDNLCLIENTDATA = ADDNLCLIENTDATA ADDNLCLIENTDATAX = ADDNLCLIENTDATAX MATERIALDESCRIPTION = MATERIALDESCRIPTION PLANTDATA = PLANTDATA PLANTDATAX = PLANTDATAX PLANTEXT = PLANTEXT PLANTEXTX = PLANTEXTX FORECASTPARAMETERS = FORECASTPARAMETERS FORECASTPARAMETERSX = FORECASTPARAMETERSX FORECASTVALUES = FORECASTVALUES TOTALCONSUMPTION = TOTALCONSUMPTION UNPLNDCONSUMPTION = UNPLNDCONSUMPTION PLANNINGDATA = PLANNINGDATA PLANNINGDATAX = PLANNINGDATAX STORAGELOCATIONDATA = STORAGELOCATIONDATA STORAGELOCATIONDATAX = STORAGELOCATIONDATAX STORAGELOCATIONEXT = STORAGELOCATIONEXT STORAGELOCATIONEXTX = STORAGELOCATIONEXTX UNITSOFMEASURE = UNITSOFMEASURE UNITSOFMEASUREX = UNITSOFMEASUREX UNITOFMEASURETEXTS = UNITOFMEASURETEXTS INTERNATIONALARTNOS = INTERNATIONALARTNOS VENDOREAN = VENDOREAN LAYOUTMODULEASSGMT = LAYOUTMODULEASSGMT LAYOUTMODULEASSGMTX = LAYOUTMODULEASSGMTX TAXCLASSIFICATIONS = TAXCLASSIFICATIONS VALUATIONDATA = VALUATIONDATA VALUATIONDATAX = VALUATIONDATAX VALUATIONEXT = VALUATIONEXT VALUATIONEXTX = VALUATIONEXTX WAREHOUSENUMBERDATA = WAREHOUSENUMBERDATA WAREHOUSENUMBERDATAX = WAREHOUSENUMBERDATAX WAREHOUSENUMBEREXT = WAREHOUSENUMBEREXT WAREHOUSENUMBEREXTX = WAREHOUSENUMBEREXTX STORAGETYPEDATA = STORAGETYPEDATA STORAGETYPEDATAX = STORAGETYPEDATAX STORAGETYPEEXT = STORAGETYPEEXT STORAGETYPEEXTX = STORAGETYPEEXTX SALESDATA = SALESDATA SALESDATAX = SALESDATAX SALESEXT = SALESEXT SALESEXTX = SALESEXTX POSDATA = POSDATA POSDATAX = POSDATAX POSEXT = POSEXT POSEXTX = POSEXTX MATERIALLONGTEXT = MATERIALLONGTEXT PLANTKEYS = PLANTKEYS STORAGELOCATIONKEYS = STORAGELOCATIONKEYS DISTRCHAINKEYS = DISTRCHAINKEYS WAREHOUSENOKEYS = WAREHOUSENOKEYS STORAGETYPEKEYS = STORAGETYPEKEYS VALUATIONTYPEKEYS = VALUATIONTYPEKEYS EXCEPTIONS "wichtig !!! ERROR_MESSAGE = 1. "wichtig !!!

BAPI_MATERIAL_MAINTAINDATA_RT CALL FUNCTION 'BAPI_MATERIAL_MAINTAINDATA_RT' EXPORTING HEADDATA = HEADDATA IMPORTING RETURN = RETURN TABLES VARIANTSKEYS = VARIANTSKEYS CHARACTERISTICVALUE = CHARACTERISTICVALUE CHARACTERISTICVALUEX = CHARACTERISTICVALUEX CLIENTDATA = CLIENTDATA CLIENTDATAX = CLIENTDATAX CLIENTEXT = CLIENTEXT CLIENTEXTX = CLIENTEXTX ADDNLCLIENTDATA = ADDNLCLIENTDATA ADDNLCLIENTDATAX = ADDNLCLIENTDATAX MATERIALDESCRIPTION = MATERIALDESCRIPTION PLANTDATA = PLANTDATA PLANTDATAX = PLANTDATAX PLANTEXT = PLANTEXT PLANTEXTX = PLANTEXTX FORECASTPARAMETERS = FORECASTPARAMETERS FORECASTPARAMETERSX = FORECASTPARAMETERSX FORECASTVALUES = FORECASTVALUES TOTALCONSUMPTION = TOTALCONSUMPTION UNPLNDCONSUMPTION = UNPLNDCONSUMPTION PLANNINGDATA = PLANNINGDATA PLANNINGDATAX = PLANNINGDATAX STORAGELOCATIONDATA = STORAGELOCATIONDATA STORAGELOCATIONDATAX = STORAGELOCATIONDATAX STORAGELOCATIONEXT = STORAGELOCATIONEXT STORAGELOCATIONEXTX = STORAGELOCATIONEXTX UNITSOFMEASURE = UNITSOFMEASURE UNITSOFMEASUREX = UNITSOFMEASUREX UNITOFMEASURETEXTS = UNITOFMEASURETEXTS INTERNATIONALARTNOS = INTERNATIONALARTNOS VENDOREAN = VENDOREAN LAYOUTMODULEASSGMT = LAYOUTMODULEASSGMT LAYOUTMODULEASSGMTX = LAYOUTMODULEASSGMTX TAXCLASSIFICATIONS = TAXCLASSIFICATIONS VALUATIONDATA = VALUATIONDATA VALUATIONDATAX = VALUATIONDATAX VALUATIONEXT = VALUATIONEXT VALUATIONEXTX = VALUATIONEXTX WAREHOUSENUMBERDATA = WAREHOUSENUMBERDATA WAREHOUSENUMBERDATAX = WAREHOUSENUMBERDATAX WAREHOUSENUMBEREXT = WAREHOUSENUMBEREXT WAREHOUSENUMBEREXTX = WAREHOUSENUMBEREXTX STORAGETYPEDATA = STORAGETYPEDATA STORAGETYPEDATAX = STORAGETYPEDATAX STORAGETYPEEXT = STORAGETYPEEXT STORAGETYPEEXTX = STORAGETYPEEXTX SALESDATA = SALESDATA SALESDATAX = SALESDATAX SALESEXT = SALESEXT SALESEXTX = SALESEXTX POSDATA = POSDATA POSDATAX = POSDATAX POSEXT = POSEXT POSEXTX = POSEXTX MATERIALLONGTEXT = MATERIALLONGTEXT PLANTKEYS = PLANTKEYS STORAGELOCATIONKEYS = STORAGELOCATIONKEYS DISTRCHAINKEYS = DISTRCHAINKEYS WAREHOUSENOKEYS = WAREHOUSENOKEYS STORAGETYPEKEYS = STORAGETYPEKEYS VALUATIONTYPEKEYS = VALUATIONTYPEKEYS.

BAPI_TRANSACTION_COMMIT CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' "TK24112004 EXPORTING "TK24112004 WAIT = 'X'. "TK24112004

ISM_CREATE_LISTING_FOR_ISSUE * CALL FUNCTION 'ISM_CREATE_LISTING_FOR_ISSUE' * EXPORTING * I_MEDIA_PRODUCT = MEDIAPRODUCT * I_MEDIA_ISSUE = MEDIAISSUE ** I_TESTRUN = ' ' * I_WITH_POSTING = 'X' * I_XADD_SEGMENTS = con_angekreuzt * I_ADD_NEW_WERKS = in_new_werks * I_ADD_NEW_VKORG = in_new_vkorg * I_ADD_NEW_VTWEG = in_new_vtweg ** IMPORTING ** E_WLK1_VB_TAB = * EXCEPTIONS * NO_MEDIA_PRODUCT = 1 * NO_MEDIA_ISSUE = 2 * ENQUEUE_ERROR = 3 * MVKE_MISSING = 4 * OTHERS = 5 * .

ISM_COPY_INFORECORDS CALL FUNCTION 'ISM_COPY_INFORECORDS' EXPORTING I_MATNR = MEDIAISSUE I_MATNR_MASTER = MATNR_PATTERN * I_LIFNR_RANGE_TAB = * I_EKORG_RANGE_TAB = I_WERKS_RANGE_TAB = lt_werks_range * I_INFNR_RANGE_TAB = * I_ESOKZ_RANGE_TAB = * I_WITH_COMMIT = ' ' IMPORTING E_XINFORECORDS_CREATED = XCREATED E_ERROR_TAB = lt_error "TK08072010/hint1487084 EXCEPTIONS NO_MATERIAL = 1 NO_MATERIAL_MASTER = 2 NO_INFORECORDS = 3 INFORECORD_CREATION_ERROR = 4 INFORECORD_COND_CREATION_ERROR = 5 OTHERS = 6 .

ISM_MASTER_SALES_PRICE_CALC





CALL FUNCTION 'ISM_MASTER_SALES_PRICE_CALC' EXPORTING i_matnr = mediaissue i_matnr_master = matnr_pattern i_testrun = space I_WERKS_range_tab = lt_werks_range I_VKORG_range_tab = lt_vkorg_range I_VTWEG_range_tab = lt_vtweg_range EXCEPTIONS no_material = 1 no_material_master = 2 sales_price_calculation_error = 3 OTHERS = 4.

APPL_LOG_READ_DB_WITH_LOGNO CALL FUNCTION 'APPL_LOG_READ_DB_WITH_LOGNO' TABLES LOGNUMBERS = LT_LOGNUMBERS MESSAGES = LT_BALM.

ISM_DELIVERYSEQUENCE_GET CALL FUNCTION 'ISM_DELIVERYSEQUENCE_GET' EXPORTING IN_ISSUE_FROM = p_vonmat IN_ISSUE_TO = p_bismat IN_MEDIAPRODUCT = P_MPROD IN_VALIDFROM = p_vondat IN_VALIDTO = p_bisdat * IN_COPYNUMBERFROM = * IN_COPYNUMBERTO = * IN_FLAG_HORIZONT = IMPORTING OUT_SEQUENCETAB = lt_sequence OUT_SEQUENCEATTRTAB = lt_SEQUENCEATTR "gen_tab EXCEPTIONS ISSUE_NOT_ASSIGNED = 1 MISSING_SEQUENCE = 2 COPYNR_NOT_ASSIGNED = 3 OTHERS = 4 .

ISM_PMD_JPTMARA_MAINTAIN_DARK * CALL FUNCTION 'ISM_PMD_JPTMARA_MAINTAIN_DARK' * EXPORTING ** PVI_SPERRMODUS = 'E' * PVI_MAX_ERRORS = 1 * PVI_X_MAT_CHECK = 'X' "<== Check hier notwendig ** PVI_XCDOC = 'X' ** PVI_XTEST = ' ' ** PVI_XCOMMIT = ' ' ** PVI_CALL_MODE = ' ' ** PVI_CALL_MODE2 = ' ' ** PVI_USER = SY-UNAME * IMPORTING ** PVE_MATNR_LAST = ** PVE_NR_ERRORS_TRANSACTION = * PTE_AMERRDAT = lt_merrdat_single * CHANGING * ptc_jptmara = lt_jptmara_single * EXCEPTIONS * INTERNAL_ERROR = 1 * TOO_MANY_ERRORS = 2 * UPDATE_ERROR = 3 * OTHERS = 4 .



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