MI050 MRP INDCTR INCL

*----------------------------------------------------------------------*
***INCLUDE ZVVF_MI050_MRP_INDCTR_INCL_1 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.

ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.


case ok_code.
when 'DISP'.

select * from ZVVF_MRP_INDCTR
into corresponding fields
of table g_W_TABL_CTRL_itab
where matnr = ZVVF_MRP_INDCTR-matnr
and werks = ZVVF_MRP_INDCTR-werks.

g_W_TABL_CTRL_copied = 'X'.

when 'MODI'.

g_W_TABL_CTRL_copied = 'X'.

endcase.

ENDMODULE. " USER_COMMAND_0100 INPUT
*&---------------------------------------------------------------------*
*& Module change_data INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE change_data INPUT.

ENDMODULE. " change_data INPUT