DATA: WA_RP TYPE _ty_s_TG_1,
         RP_PRE TYPE TABLE OF _ty_s_TG_1.
* Start of change Gaurav
    CLEAR: WA_RP,RP_PRE.

    RP_PRE[] = RESULT_PACKAGE[].

    DELETE RESULT_PACKAGE WHERE /BIC/ZREC_CNT EQ '-1'.
    DELETE RP_PRE WHERE /BIC/ZREC_CNT EQ '1'.

    LOOP AT RESULT_PACKAGE ASSIGNING <RESULT_FIELDS>.


      READ TABLE RP_PRE WITH KEY EMPLOYEE =
      <RESULT_FIELDS>-EMPLOYEE INTO WA_RP.

      IF sy-subrc = 0.
*      Compare PERS_AREA
        IF WA_RP-PERS_AREA <> <RESULT_FIELDS>-PERS_AREA.
          <RESULT_FIELDS>-/BIC/ZMOVTYP = '01'.
	  <RESULT_FIELDS>-/BIC/ZFRM_VAL = WA_RP-PERS_AREA.
	  <RESULT_FIELDS>-/BIC/ZTO_VAL = <RESULT_FIELDS>-PERS_AREA.

	  SELECT SINGLE TXTSH FROM /BI0/TPERS_AREA
            INTO <RESULT_FIELDS>-/BIC/ZFRM_VAL
            WHERE PERS_AREA = <RESULT_FIELDS>-PERS_AREA.

	  SELECT SINGLE TXTSH FROM /BI0/TPERS_AREA
            INTO <RESULT_FIELDS>-/BIC/ZFRM_VAL
            WHERE PERS_AREA = WA_RP-PERS_AREA.

	APPEND <RESULT_FIELDS> TO FINAL_PACKAGE.
        ENDIF.

*      Compare Personnel Sub Area.
        IF WA_RP-PERS_SAREA <> <RESULT_FIELDS>-PERS_SAREA.
          <RESULT_FIELDS>-/BIC/ZMOVTYP = '01'.
	  <RESULT_FIELDS>-/BIC/ZFRM_VAL = WA_RP-PERS_SAREA.
	  <RESULT_FIELDS>-/BIC/ZTO_VAL = <RESULT_FIELDS>-PERS_SAREA.
	APPEND <RESULT_FIELDS> TO FINAL_PACKAGE.
        ENDIF.

*      Compare Org Unit.
        IF WA_RP-ORGUNIT <> <RESULT_FIELDS>-ORGUNIT.
          <RESULT_FIELDS>-/BIC/ZMOVTYP = '01'.
	  <RESULT_FIELDS>-/BIC/ZFRM_VAL = WA_RP-ORGUNIT.
	  <RESULT_FIELDS>-/BIC/ZTO_VAL = <RESULT_FIELDS>-ORGUNIT.
	APPEND <RESULT_FIELDS> TO FINAL_PACKAGE.
        ENDIF.

*      Compare Position.
        IF WA_RP-HRPOSITION <> <RESULT_FIELDS>-HRPOSITION.
          <RESULT_FIELDS>-/BIC/ZMOVTYP = '01'.
	  <RESULT_FIELDS>-/BIC/ZFRM_VAL = WA_RP-HRPOSITION.
	  <RESULT_FIELDS>-/BIC/ZTO_VAL = <RESULT_FIELDS>-HRPOSITION.
	APPEND <RESULT_FIELDS> TO FINAL_PACKAGE.
        ENDIF.

*      Compare Employee Group.
        IF WA_RP-EMPLGROUP <> <RESULT_FIELDS>-EMPLGROUP.
          <RESULT_FIELDS>-/BIC/ZMOVTYP = '01'.
	  <RESULT_FIELDS>-/BIC/ZFRM_VAL = WA_RP-EMPLGROUP.
	  <RESULT_FIELDS>-/BIC/ZTO_VAL = <RESULT_FIELDS>-EMPLGROUP.
	APPEND <RESULT_FIELDS> TO FINAL_PACKAGE.
        ENDIF.

*      Compare Company code.
        IF WA_RP-COMP_CODE <> <RESULT_FIELDS>-COMP_CODE.
          <RESULT_FIELDS>-/BIC/ZMOVTYP = '01'.
	  <RESULT_FIELDS>-/BIC/ZFRM_VAL = WA_RP-COMP_CODE.
	  <RESULT_FIELDS>-/BIC/ZTO_VAL = <RESULT_FIELDS>-COMP_CODE.
	APPEND <RESULT_FIELDS> TO FINAL_PACKAGE.
        ENDIF.
      ENDIF.

      CLEAR: WA_RP, RESULT_PACKAGE[].
      RESULT_PACKAGE[] = FINAL_PACKAGE[].
	
    ENDLOOP.