next_line 할때 내려가지 않습니다.
아래처럼 수정하면 됩니다.
screen
PROCESS AFTER INPUT.
LOOP AT gt_zemp.
MODULE read_tcontrol.
MODULE USER_COMMAND_0100.
ENDLOOP.
-------------------------------
MODULE READ_TCONTROL INPUT.
*gv_lines = sy-loopc. "NEXT_LINE로 할때 gv_limit = gv_fill - gv_lines + 1 계속 1 입니다.
gv_lines = sy-stepl. "이렇게 수정해놓으면 line 번호를 가져올수 있습니다.
MODIFY gt_zemp from zfqj1emp
INDEX ZCONFQJ1EMP-current_line.
ENDMODULE. " READ_TCONTROL INPUT
-------------------------------
MODULE USER_COMMAND_0100 INPUT.
save_ok = ok_code.
clear ok_code.
CASE save_ok.
WHEN 'NEXT_LINE'.
zconfqj1emp-top_line = zconfqj1emp-top_line + 1.
gv_limit = gv_fill - gv_lines + 1.
IF zconfqj1emp-top_line > gv_limit.
zconfqj1emp-top_line = gv_limit.
ENDIF.
WHEN 'PREV_LINE'.
zconfqj1emp-top_line = zconfqj1emp-top_line - 1.
IF zconfqj1emp-top_line < 0.
zconfqj1emp-top_line = 0.
ENDIF.
ENDCASE.
ENDMODULE.