cancel
Showing results for 
Search instead for 
Did you mean: 

MRP ( MD02 )

Former Member
0 Kudos

how do i automate MRP ( MD02 )

Accepted Solutions (1)

Accepted Solutions (1)

Former Member
0 Kudos

I don't know what you are asking "how do i automate MRP "

i fi understand correctly than i think you are asking about to schedule the MRP job in the back ground so it will run automatically based on the settings (either every day or every hour etc)

to do that

use tcode MDBT and create the variant here and schedule it.

but you can not schedule MD02

it has to be MD01.

if you want to run for certain materal than use the user exit M61X0001

for MD01

in this user exit you can enter the code based on the requirement from the following code than enter the selection in the cofig tcode OMIX.

e.g you want the MRP run based on the Material type than this config enter 001 as user exit and description and in the MD01 screen enter use exit = 001 and parameter = material type than create the variant and schedule

----


  • INCLUDE LXM61F01 *

----


----


  • example coding for User-Exit MRP

----


CLEAR: NO_PLANNING, STOP_PLANNING.

CASE USER_KEY.

----


  • materials of material type 'FERT' only

----


WHEN '001'.

IF MT61D-MTART <> 'FERT'.

NO_PLANNING = 'X'.

ENDIF.

----


  • materials with MRP type 'PD' only

----


WHEN '002'.

IF MT61D-DISMM <> 'PD'.

NO_PLANNING = 'X'.

ENDIF.

----


  • reorder-point materials

  • (any MRP type with MRP procedure 'reorder-point planning')

----


WHEN '003'.

IF T438A-DISVF <> 'B'.

NO_PLANNING = 'X'.

ENDIF.

----


  • stop planning after low-level code 03

----


WHEN '004'.

IF MT61D-DISST > '003'.

STOP_PLANNING = 'X'.

ENDIF.

----


  • select materials for one MRP controller (specified in user_par)

----


WHEN '005'.

UXPAR = USER_PAR.

CONDENSE UXPAR.

WRITE UXPAR+0(3) TO DISPO.

IF DISPO IS INITIAL.

EXIT.

ENDIF.

IF MT61D-DISPO <> DISPO.

NO_PLANNING = 'X'.

ENDIF.

----


  • select materials of one material class (specified in user_par)

----


WHEN '006'.

UXPAR = USER_PAR.

CONDENSE UXPAR.

WRITE UXPAR+0(9) TO MATKL.

IF MATKL IS INITIAL.

EXIT.

ENDIF.

IF MT61D-MATKL <> MATKL.

NO_PLANNING = 'X'.

ENDIF.

ENDCASE.

Answers (0)