SAP ABAP: Determine Timezone for Plant

    DATA:

      lt_tzone TYPE STANDARD TABLE OF tznzone WITH DEFAULT KEY,

      l_tzone  TYPE tznzone.

    " get time zone for plant

    SELECT SINGLE land1, regio FROM t001w

      WHERE werks = @pa_werks 

      INTO ( @DATA(l_land1), @DATA(l_regio) ).

    IF sy-subrc = 0.

      IF l_regio IS INITIAL.

        " determine timezone without region

        SELECT tzone FROM ttz5 WHERE land1 = @l_land1 

          INTO TABLE @lt_tzone.

      ELSE.

        " determine timezone with region

        SELECT tzone FROM ttz5s WHERE

          land1 = @l_land1 AND

          bland = @l_regio AND

          tzonedft = 'X'

          INTO TABLE @lt_tzone.

      ENDIF.

      IF lines( lt_tzone ) > 0.

        SORT lt_tzone. " ensure stable result

        l_tzone = lt_tzone[ 1 ].

      ENDIF.

    ENDIF.

    IF sy-subrc <> 0.

      l_tzone = 'CET'.

    ENDIF.