*&---------------------------------------------------------------------*
*& Module READ_TABLE_CONTROL INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE read_table_control INPUT.
* IF wa_mara NE mara.
v_LINES = v_control-lines + 1.
MODIFY IT_MARA FROM
MARA INDEX v_lines.
IF sy-subrc <> 0.
APPEND wa_mara TO it_mara. "Append new record
ENDIF.
* ENDIF.
ENDMODULE. " READ_TABLE_CONTROL INPUT
change like this