SAP Reports / Programs | Supersession Chains | Industry Solution Automotive | Supersession Chains(IS-A-SUS) SAP IS
MM61RFP1 SAP ABAP INCLUDE - Forms for Supersession/MPN MRP evaluations
MM61RFP1 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 MM61RFP1 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 MM61RFP1. "Basic submit
SUBMIT MM61RFP1 AND RETURN. "Return to original report after report execution complete
SUBMIT MM61RFP1 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Forms for Supersession/MPN MRP evaluations
INCLUDES used within this REPORT MM61RFP1
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:
PIC01_IS_A_PIC_MEMBER *CALL FUNCTION 'PIC01_IS_A_PIC_MEMBER' * EXPORTING * iv_matnr = lv_matnr * IMPORTING * EV_PICNUM = lv_picnum * tables * rt_sel_werks = lt_sel_werks.
PIC01_GET_LEADING_PART CALL FUNCTION 'PIC01_GET_LEADING_PART' "get actual IC Group Info EXPORTING I_MATNR = lv_matnr I_WERKS = lv_werks I_BERID = lv_berid IMPORTING E_LMATN = g_pic_leading_part E_IMATN = g_pic_imatn E_PICNUM = g_pic_picnum EXCEPTIONS NOT_PIC_OBJECT = 1 NO_LEADING_PART = 2 NOT_IN_PIC_GROUP = 3 OTHERS = 4 .
PIC01_GET_LEADING_PART CALL FUNCTION 'PIC01_GET_LEADING_PART' EXPORTING I_MATNR = rm61r-MPNMT I_WERKS = rm61r-werks I_BERID = rm61r-berid IMPORTING E_LMATN = lv_leading_part * E_IMATN = * E_PICNUM = EXCEPTIONS NOT_PIC_OBJECT = 1 NO_LEADING_PART = 2 NOT_IN_PIC_GROUP = 3 OTHERS = 4 .
MD_MRP_CHECK_DB_CLIENT CALL FUNCTION 'MD_MRP_CHECK_DB_CLIENT' * IMPORTING * E_DISFG = * E_UDBVM = EXCEPTIONS DIBR_NOT_ACTIVE = 1 OTHERS = 2 .
MD_READ_MATERIAL CALL FUNCTION 'MD_READ_MATERIAL' EXPORTING ewerks = lv_werks ematnr = lv_matnr eberid = lv_berid IMPORTING imt61d = mt61d icm61b = cm61b EXCEPTIONS error = 1 OTHERS = 2.
AUFBAUEN_MDPSX_ANZEIGEN CALL FUNCTION 'AUFBAUEN_MDPSX_ANZEIGEN' EXPORTING emt61d = mt61d ecm61x = cm61x ecm61w = cm61w et399d = t399d ecm61b = cm61b esfilt = sfilt IMPORTING imdkp = mdkp imt61d = mt61d imdsta = mdsta icm61m = cm61m TABLES mdpsx = mdpsx.
STOCK_COVERAGE_GET CALL FUNCTION 'STOCK_COVERAGE_GET' EXPORTING emdkp = mdkp ecm61w = cm61w ecm61m = cm61m "ERP2.0
VP_BEDARFE_VERRECHNEN CALL FUNCTION 'VP_BEDARFE_VERRECHNEN' EXPORTING ECM61M = ls_cm61m_lp EMDKP = ls_mdkp_lp TABLES MDPSX = mdpsx EXCEPTIONS ERROR = 1 OTHERS = 2.
AUFBAUEN_MDPSX_ANZEIGEN CALL FUNCTION 'AUFBAUEN_MDPSX_ANZEIGEN' EXPORTING ECM61W = CM61W ECM61X = CM61X EMT61D = MT61D ET399D = T399D ECM61B = CM61B ESFILT = SFILT IMPORTING ICM61M = CM61M IMDKP = MDKP IMDSTA = MDSTA TABLES MDPSX = MDPSX LORTX = IT_PIC_LORTX EXCEPTIONS ERROR = 1 OTHERS = 2.
PIC10_GENERATE_MDPSX CALL FUNCTION 'PIC10_GENERATE_MDPSX' EXPORTING IS_CM61D = ls_pic_cm61d IS_CM61W = cm61w IS_T399D = t399d IS_T438A = t438a * IV_PLSC = IV_INIT = iv_init_flg * IV_ITYPE = TABLES MDPSX = mdpsx * MDPSL = * MDPSO = MPNBX = gt_picbx * MDLPY = LORTX = it_pic_lortx * EQUKX = * EQUMX = * EQUPX = CHANGING CS_CM61X = cm61x CS_CM61M = cm61m CS_MT61D = mt61d CS_MDKP = mdkp CS_MDSTA = mdsta CS_CM61B = cm61b EXCEPTIONS WRONG_INPUT = 1 CALL_FOR_INVALID_PART = 2 OTHERS = 3 .
AUFBAUEN_MDPSX_ANZEIGEN_SIM CALL FUNCTION 'AUFBAUEN_MDPSX_ANZEIGEN_SIM' EXPORTING emt61d = mt61d ecm61x = cm61x ecm61w = cm61w ecm61b = cm61b et399d = t399d eplsc = plsc esfilt = sfilt IMPORTING imdkp = mdkp imt61d = mt61d icm61m = cm61m imdsta = mdsta TABLES mdpsx = mdpsx EXCEPTIONS error_message = 01.
VP_BEDARFE_VERRECHNEN CALL FUNCTION 'VP_BEDARFE_VERRECHNEN' EXPORTING ECM61M = ls_cm61m_lp EMDKP = ls_mdkp_lp TABLES MDPSX = mdpsx EXCEPTIONS ERROR = 1 OTHERS = 2.
AUFBAUEN_MDPSX_ANZEIGEN_SIM CALL FUNCTION 'AUFBAUEN_MDPSX_ANZEIGEN_SIM' EXPORTING EMT61D = MT61D ECM61X = CM61X ECM61W = CM61W ECM61B = CM61B ET399D = T399D EPLSC = PLSC IMPORTING IMDKP = MDKP ICM61M = CM61M TABLES MDPSX = MDPSX EXCEPTIONS ERROR_MESSAGE = 01.
PIC10_GENERATE_MDPSX CALL FUNCTION 'PIC10_GENERATE_MDPSX' EXPORTING IS_CM61D = ls_pic_cm61d IS_CM61W = cm61w IS_T399D = t399d IS_T438A = t438a IV_PLSC = plsc IV_INIT = iv_init_flg * IV_ITYPE = TABLES MDPSX = mdpsx MDPSL = lt_pic_mdpsl MDPSO = lt_pic_mdpso MPNBX = gt_picbx MDLPY = lt_pic_mdlpy LORTX = it_pic_lortx EQUKX = lt_pic_equkx EQUMX = lt_pic_equmx EQUPX = lt_pic_equpx CHANGING CS_CM61X = cm61x CS_CM61M = cm61m CS_MT61D = mt61d CS_MDKP = mdkp * CS_MDSTA = CS_CM61B = cm61b "note 706731 EXCEPTIONS WRONG_INPUT = 1 CALL_FOR_INVALID_PART = 2 OTHERS = 3 .
PIC10_SAVE_MDPSX CALL FUNCTION 'PIC10_SAVE_MDPSX' EXPORTING IS_CM61M = CM61M IV_MATNR = MDKP-MATNR TABLES T_MDPSX = MDPSX.
REUSE_ALV_POPUP_TO_SELECT CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT' EXPORTING I_TITLE = L_TITLE I_SELECTION = ' ' I_ZEBRA = 'X' I_TABNAME = 'LT_BEST' IT_FIELDCAT = LT_FIELDCAT IT_EXCLUDING = LT_EXTAB IMPORTING ES_SELFIELD = LS_SELFIELD E_EXIT = LV_EXIT TABLES T_OUTTAB = LT_BEST EXCEPTIONS PROGRAM_ERROR = 1 OTHERS = 2.
PIC01_GET_MEMBER_SINGLE CALL FUNCTION 'PIC01_GET_MEMBER_SINGLE' EXPORTING I_MATNR = iv_matnr I_PICNUM = '' I_IMATN = '' I_WERKS = iv_werks I_BERID = iv_berid I_SORT = '' I_LOEKZ = '' I_MRPSET = 'X' TABLES ET_PICPSRL = it_picgroup EXCEPTIONS NOTFOUND_MATNR = 1 NOTFOUND_PIC = 2 MISSING_PARAMETER = 3 OTHERS = 4.
PRUEFEN_UMTERMINIERUNG CALL FUNCTION 'PRUEFEN_UMTERMINIERUNG' EXPORTING ECM61M = CM61M ECM61W = CM61W EMDKP = MDKP ET399D = T399D EMASEL = MASEL EMDST = MDST NO_MDEZX = XFLAG IMPORTING IMASEL = MASEL TABLES MDPSX = MDPSX MDEZX = MDEZX MDAUSX = MDAUSX MDDELX = MDDELX EQUKX = EQUKX EQUPX = EQUPX EXCEPTIONS ERROR_MESSAGE = 01.
CALL FUNCTION 'PIC10_REDUCE_RECEIPTS_SUS' EXPORTING is_cm61m = ps_cm61m iv_excess = lv_excess iv_plaab = lv_tmp_plaab iv_planr = lv_tmp_planr tables mdpsx = pt_mdpsx mpicbx = pt_picbx.
PIC10_REDUCE_RECEIPTS_SUS CALL FUNCTION 'PIC10_REDUCE_RECEIPTS_SUS' EXPORTING is_cm61m = ps_cm61m iv_excess = lv_excess iv_plaab = lv_tmp_plaab iv_planr = lv_tmp_planr tables mdpsx = pt_mdpsx mpicbx = pt_picbx.
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 MM61RFP1 or its description.