TEST

*----------------------------------------------------------------------*
***INCLUDE LEC60I03 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  JAPAN_PAI  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module JAPAN_PAI input.
  perform set_japanflag changing g_japan.
  check g_japan = 'J'.
  EUMZD-AUSZDAT = EUMZD-DEPARTUREDATE - 1.
  EUMZD-EINZDAT = EUMZD-ARRIVALDATE.
endmodule.                 " JAPAN_PAI  INPUT