*----------------------------------------------------------------------*
***INCLUDE LZDBG_SCRIPTI04.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  EXIT_9400  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE exit_9400 INPUT.
  LEAVE TO SCREEN 0.
ENDMODULE.
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_9400  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE user_command_9400 INPUT.
  CASE ok_9400.
    WHEN 'OK'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.
