|
*&---------------------------------------------------------------------*
*& Include ZXM61U01 *
*&---------------------------------------------------------------------*
CLEAR: NO_PLANNING, STOP_PLANNING.
*----------------------------------------------------------------------*
* immediately exclude material with deletion flag
* this will reduce unnecessary MRP list with termination
*----------------------------------------------------------------------*
IF MT61D-LVORM = 'X'.
NO_PLANNING = 'X'.
ENDIF.
*----------------------------------------------------------------------*
* select materials for one MRP controller (specified in user_par)
*----------------------------------------------------------------------*
CASE USER_KEY.
WHEN '001'.
* 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.
*->Change reason: want to select multiple MRP controllers
UXPAR = USER_PAR.
CONDENSE UXPAR.
IF not UXPAR ns ';'.
WRITE UXPAR+0(3) TO DISPO.
IF DISPO IS INITIAL.
EXIT.
ENDIF.
IF MT61D-DISPO <> DISPO.
NO_PLANNING = 'X'.
ENDIF.
ELSE.
replace space in UXPAR with ''.
FIND MT61D-DISPO IN UXPAR IGNORING CASE.
IF sy-subrc NE 0.
*not found
NO_PLANNING = 'X'.
ENDIF.
ENDIF.
*----------------------------------------------------------------------*
* select materials excluding one MRP controller (specified in user_par)
*----------------------------------------------------------------------*
WHEN '002'.
* 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.
*->Change reason: want to select multiple MRP controllers
UXPAR = USER_PAR.
CONDENSE UXPAR.
IF not UXPAR ns ';'.
WRITE UXPAR+0(3) TO DISPO.
IF DISPO IS INITIAL.
EXIT.
ENDIF.
IF MT61D-DISPO = DISPO.
NO_PLANNING = 'X'.
ENDIF.
ELSE.
replace space in UXPAR with ''.
FIND MT61D-DISPO IN UXPAR IGNORING CASE.
IF sy-subrc EQ 0.
*found
NO_PLANNING = 'X'.
ENDIF.
ENDIF.
ENDCASE.
|