*----------------------------------------------------------------------*
***INCLUDE MZ_TP1_I01 .
*----------------------------------------------------------------------*
*
MODULE user_command_0100 INPUT.
  CASE sy-ucomm.
    WHEN 'FIND'.
*      MESSAGE e162(00) WITH 'Test fr User' sy-uname.
      PERFORM suchen.
      SET SCREEN 200. LEAVE SCREEN.
    WHEN 'EXIT'. SET SCREEN 0. LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*
MODULE user_command_0200 INPUT.
  CASE sy-ucomm.
    WHEN 'P--'. tc_flug-top_line = 1.
    WHEN 'P-'.
      tc_flug-top_line = tc_flug-top_line - loopc.
      IF tc_flug-top_line < 1.
        tc_flug-top_line = 1.
      ENDIF.
    WHEN 'P+'.
      tc_flug-top_line = tc_flug-top_line + loopc.
      DATA: h TYPE sy-loopc.
      h = tc_flug-lines - loopc + 1.
      IF tc_flug-top_line > h.
        tc_flug-top_line = h.
      ENDIF.
    WHEN 'P++'. tc_flug-top_line = tc_flug-lines - loopc + 1.
    WHEN 'BACK'. SET SCREEN 100. LEAVE SCREEN.
    WHEN 'EXIT'. SET SCREEN 0. LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " user_command_0200  INPUT