*----------------------------------------------------------------------*
***INCLUDE MZ_TP2I01 .
*----------------------------------------------------------------------*
*
MODULE user_command_0100 INPUT.
  CASE fcode.
    WHEN 'FIND'.
      PERFORM suchen.
      SET SCREEN 200. LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*
MODULE check_date INPUT.
  IF zflug_input-vondatum > zflug_input-bisdatum.
    MESSAGE e001 WITH zflug_input-vondatum zflug_input-bisdatum.
*   Vondatum & liegt vor Bisdatum &.
  ENDIF.
ENDMODULE.                 " check_date  INPUT
*
MODULE check_city INPUT.
  IF zflug_input-cityfrom = zflug_input-cityto.
    MESSAGE e002 WITH zflug_input-cityfrom.
*   Fr Abflugstadt und Ankunftsstadt wurde identisch & eingegeben.
  ENDIF.
ENDMODULE.                 " check_city  INPUT
*
MODULE navigate INPUT.
  CASE fcode.
    WHEN 'BACK'.
      CASE sy-dynnr.
        WHEN '0100'.
          CLEAR: alv_cont, cust_cont.
          SET SCREEN 0.   LEAVE SCREEN.
        WHEN '0200'.
          SET SCREEN 100. LEAVE SCREEN.
      ENDCASE.
    WHEN 'EXIT'.
      CLEAR: alv_cont, cust_cont.
      SET SCREEN 0. LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " navigate  INPUT
*
MODULE abbrechen INPUT.
  CASE fcode.
    WHEN 'CANCEL'.
      CLEAR: alv_cont, cust_cont.
      SET SCREEN 0. LEAVE SCREEN.
  ENDCASE.
ENDMODULE.                 " abbrechen  INPUT
*
module user_command_0200 input.

endmodule.                 " user_command_0200  INPUT