MR EStimation

exit:EXIT_SAPLELHR_003
include ZXELXU10



DATA: x_reabld TYPE reabld .

IF sy-uname = 'xxxxxx'.
  BREAK-POINT.
ENDIF.

IMPORT x_reabld TO x_reabld FROM MEMORY ID 'ZMRR'.
if x_reabld-ABLHINW is NOT INITIAL.

*"     VALUE(Y_ZWSTERW) LIKE  EABLH-I_ZWSTERW
*"     VALUE(Y_VERBERW) LIKE  EABLH-I_VERBERW

  CALL FUNCTION 'ZFM_METER_READING_ESTIMATE'
  EXPORTING
    ABLHINW         = x_reabld-ablhinw
    GERNR           = x_reabld-gernr
    ZWNUMMER        = x_zwnummer
    MRDOCID         = x_ablbelnr
    CURR_DATE       = x_reabld-adat
  CHANGING
    ESTIMREAD       = y_zwsterw.