*&---------------------------------------------------------------------*
*& Report  ZTD_COPY_DATA_TO_LI11N
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ztd_copy_data_to_li11n.
TABLES: linv.
PARAMETERS p_lgnum TYPE linv-lgnum.
PARAMETERS p_ivnum TYPE linv-ivnum.
DATA t_istat TYPE linv-istat.
DATA t_meins TYPE linv-meins.
DATA wa_linv TYPE linv.

SELECT SINGLE istat INTO t_istat FROM link WHERE lgnum = p_lgnum AND ivnum = p_ivnum.
IF t_istat NE 'N'.
  WRITE text-001 COLOR COL_NEGATIVE.
EXIT.
ENDIF.

SELECT * FROM linv INTO wa_linv WHERE lgnum = p_lgnum AND ivnum = p_ivnum.
  wa_linv-menge = wa_linv-gesme.
  wa_linv-menga = wa_linv-gesme.
  wa_linv-umrez = 1.
  wa_linv-umren = 1.
  SELECT SINGLE meins INTO t_meins FROM mara WHERE matnr = wa_linv-matnr.
  wa_linv-meins = t_meins.
  wa_linv-altme = t_meins.
wa_linv-istat = 'Z'.
  MODIFY linv FROM wa_linv.
ENDSELECT.

IF sy-subrc NE 0.
  WRITE text-002 COLOR COL_NEGATIVE.
ELSE.
  WRITE text-003 COLOR COL_TOTAL.
ENDIF.