DIMP_LM61BFPI 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 DIMP_LM61BFPI 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.
No INCLUDES are used within this REPORT code!
No SAP DATABASE tables are accessed within this REPORT code!
PIC10_GET_PICID CALL FUNCTION 'PIC10_GET_PICID' EXPORTING IV_MATNR = IS_MT61D-MATNR IV_WERKS = IS_MT61D-WERKS IV_BERID = IS_MT61D-BERID IV_PICCAT = LV_PICCAT IV_PICNUM = LV_PICNUM IV_READ_PARTS = 'X' IS_CM61B = IS_CM61B IMPORTING EV_PIC_PICID = LV_PICID EV_PIC_PICCAT = LV_PICCAT EV_MPN_LMATN = LV_LMATN EV_SUS_SEQ01 = LV_SEQ01 EV_SUS_INTTYPE = LV_INTTYPE * EV_SUS_MATBEFORE = * EV_SUS_MATNEXT = TB_CHAIN = LT_PARTS TB_MRPSET = LT_SET EXCEPTIONS WRONG_INPUT = 1 INTERNAL_ERROR = 2 OTHERS = 3 .
PIC10_GENERATE_MDPSX CALL FUNCTION 'PIC10_GENERATE_MDPSX' EXPORTING IS_CM61W = CM61W IS_T399D = T399D * IS_T438A = t438a IV_PLSC = PLSC IV_INIT = XFLAG IV_ITYPE = '02' " MPN TABLES MDPSX = MDPSX CHANGING CS_CM61X = CM61X CS_CM61M = LS_PIC_CM61M CS_MT61D = MT61D CS_CM61B = LS_CM61B EXCEPTIONS WRONG_INPUT = 1 CALL_FOR_INVALID_PART = 2 OTHERS = 3 .
PIC10_GENERATE_MDPSX CALL FUNCTION 'PIC10_GENERATE_MDPSX' EXPORTING IS_CM61W = CM61W IS_T399D = T399D * IS_T438A = t438a IV_PLSC = PLSC IV_INIT = XFLAG IV_ITYPE = '01' "SUS TABLES MDPSX = MDPSX CHANGING CS_CM61X = CM61X CS_CM61M = LS_PIC_CM61M CS_MT61D = MT61D CS_CM61B = LS_CM61B EXCEPTIONS WRONG_INPUT = 1 CALL_FOR_INVALID_PART = 2 OTHERS = 3 .
PIC10_SAVE_MDPSX CALL FUNCTION 'PIC10_SAVE_MDPSX' EXPORTING IS_CM61M = LS_PIC_CM61M IV_MATNR = MT61D-MATNR TABLES T_MDPSX = MDPSX.
MD_READ_MATERIAL CALL FUNCTION 'MD_READ_MATERIAL' EXPORTING ematnr = ls_pic_parts-matnr ewerks = ls_pic_parts-werks eberid = ls_pic_parts-berid IMPORTING imt61d = mt61d icm61b = ls_cm61b EXCEPTIONS error = 01.
AUFBAUEN_MDPSX_ANZEIGEN_SIM CALL FUNCTION 'AUFBAUEN_MDPSX_ANZEIGEN_SIM' EXPORTING EMT61D = MT61D ECM61X = CM61X ECM61W = CM61W ECM61B = LS_CM61B ET399D = T399D EPLSC = PLSC IMPORTING ICM61M = LS_PIC_CM61M " >>>> INSERT PIC 4.6a
AUFBAUEN_MDPSX_ANZEIGEN CALL FUNCTION 'AUFBAUEN_MDPSX_ANZEIGEN' EXPORTING EMT61D = MT61D ECM61X = CM61X ECM61W = CM61W ECM61B = LS_CM61B ET399D = T399D IMPORTING ICM61M = LS_PIC_CM61M " >>>> INSERT PIC 4.6a
PIC10_GENERATE_MDPSX CALL FUNCTION 'PIC10_GENERATE_MDPSX' EXPORTING IS_CM61W = cm61w IS_T399D = t399d * IS_T438A = t438a IV_PLSC = plsc IV_INIT = space IV_ITYPE = '01' "SUS TABLES MDPSX = mdpsx CHANGING CS_CM61X = cm61x CS_CM61M = ls_pic_cm61m CS_MT61D = mt61d CS_CM61B = ls_cm61b EXCEPTIONS WRONG_INPUT = 1 CALL_FOR_INVALID_PART = 2 OTHERS = 3 .
PIC10_SAVE_MDPSX CALL FUNCTION 'PIC10_SAVE_MDPSX' EXPORTING IS_CM61M = LS_PIC_CM61M IV_MATNR = MT61D-MATNR TABLES T_MDPSX = MDPSX.
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 .
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 .
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.