field-symbols: <BNAME> like USR02-BNAME.
field-symbols: <ACCNT> like BAPILOGOND-ACCNT.
assign ('(SAPLSUU5)USLOGOND-ACCNT') to <ACCNT>.
assign ('(SAPLSUU5)USR02-BNAME') to <BNAME>.

field-symbols: <BNAME> like USR02-BNAME.
field-symbols: <ACCNT> like BAPILOGOND-ACCNT.

DATA hr_rfc TYPE STANDARD TABLE OF ZSTR_HR_PERSON_INFO WITH HEADER LINE.
DATA : sys_msg(80) TYPE c,
        indx TYPE i.
DATA ADDRESS LIKE TABLE OF BAPIADDR3 WITH HEADER LINE.
DATA DEFAULTS LIKE TABLE OF BAPIDEFAUL WITH HEADER LINE.
DATA RETURN LIKE STANDARD TABLE OF BAPIRET2.

assign ('(SAPLSZA5)ADDR3_DATA-NAME_FIRST') to <FIRSTNAME>.
assign ('(SAPLSUU5)USLOGOND-ACCNT') to <ACCNT>.
assign ('(SAPLSUU5)USR02-BNAME') to <BNAME>.

  hr_rfc-PERNR = <ACCNT>.
  APPEND hr_rfc.

  CALL FUNCTION 'GET_HR_PERSON_INFO' DESTINATION 'PHRCLNT200_HR'
    TABLES
      PERSON_INFO       =  hr_rfc
    EXCEPTIONS
      SYSTEM_FAILURE = 1 MESSAGE sys_msg
      COMMUNICATION_FAILURE = 2 MESSAGE sys_msg
      .

  LOOP at hr_rfc.
    DEFAULTS-KOSTL = hr_rfc-PLANS.
    APPEND DEFAULTS to DEFAULTS.
    ADDRESS-FUNCTION = hr_rfc-FUNCTION.
    ADDRESS-DEPARTMENT = hr_rfc-STEXT.
    APPEND ADDRESS to ADDRESS.
  ENDLOOP.

  CALL FUNCTION 'BAPI_USER_CHANGE'
    EXPORTING
      USERNAME = <BNAME>
      ADDRESS       =  ADDRESS
      DEFAULTS     =  DEFAULTS
    TABLES
      RETURN        = RETURN
      .

    DEFAULTSX-KOSTL = 'X'.
    ADDRESSX-FUNCTION = 'X'.
    ADDRESSX-DEPARTMENT = 'X'.