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.