FORM addr_base USING l_langu    TYPE sy-langu
                   CHANGING l_addr_sel TYPE addr1_sel
                                    l_address  TYPE addr1_val
                                    l_text        TYPE t005t-landx.

* Const. Declaration
  CONSTANTS: c_err   VALUE 'E'.

* Data Declaration
  DATA: l_versions TYPE TABLE OF addr_vers,
            l_retcode  TYPE szad_field-returncode.

* Get address lang. versions
  CALL FUNCTION 'ADDR_GET'
       EXPORTING
            address_selection = l_addr_sel
       TABLES
            versions          = l_versions
       EXCEPTIONS
            OTHERS            = 99.

  IF sy-subrc NE 0.
    EXIT.
  ENDIF.

* Check for curr. lang. and date
  READ TABLE l_versions
       TRANSPORTING NO FIELDS
       WITH KEY nation  = l_langu.

  IF sy-subrc EQ 0.
    l_addr_sel-nation    = l_langu.
  ENDIF.

* Get address data
  CALL FUNCTION 'ADDR_GET'
       EXPORTING
            address_selection = l_addr_sel
       IMPORTING
            address_value     = l_address
            returncode        = l_retcode
       EXCEPTIONS
            OTHERS            = 99.

  IF sy-subrc NE 0 OR l_retcode EQ c_err.
    EXIT.
  ENDIF.

  SELECT SINGLE landx INTO l_text FROM t005t
         WHERE  spras = l_langu AND
                land1 = l_address-country.

ENDFORM.                    " ADDR_BASE