DATA:
    lv_orgobject TYPE  objec,
    lv_pernr     TYPE  p_pernr,
    sv_handle    TYPE i.

  CALL FUNCTION 'NF_EM_GET_LAST_OTYPE_OBJECT'
    EXPORTING
      otype     = 'P'
    IMPORTING
      orgobject = lv_orgobject
*   EXCEPTIONS
*     NOT_EXIST = 1
*     OTHERS    = 2
    .
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

  CALL FUNCTION 'HR_IMAGE_RESET'
    EXPORTING
      handle = sv_handle
    EXCEPTIONS
      OTHERS = 0.
  lv_pernr = lv_orgobject.

  CALL FUNCTION 'HR_IMAGE_INIT'
    EXPORTING
      p_pernr        = lv_pernr
      begda          = '19000101'
      endda          = '99991231'
      container      = 'GV_PHOTO'
    IMPORTING
      handle         = sv_handle
    EXCEPTIONS
      no_document    = 1
      internal_error = 2
      OTHERS         = 3.
  IF sy-subrc <> 0.
    CLEAR sv_handle.
  ENDIF.