FUNCTION Z_ASG_FN_INSERTSAL.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(WA_EMP) TYPE  ZASG_SAL
*"  EXPORTING
*"     VALUE(E_SUBRC) TYPE  SY-SUBRC
*"----------------------------------------------------------------------
TABLES : ZASG_SAL.
DATA it_emp type TABLE OF ZASG_SAL.
DATA wa_emp_sal TYPE ZASG_SAL.

SELECT * FROM ZASG_SAL
  INTO CORRESPONDING FIELDS OF TABLE it_emp
  WHERE empid = wa_emp-empid.

* IF NOT ZASG_SAL-empid is INITIAL.
* E_SUBRC = '0'.
* ELSE.
* ZASG_SAL-empid = wa_emp-empid.
* ZASG_SAL-currency = wa_emp-currency.
* ZASG_SAL-amount = wa_emp-amount.
* INSERT INTO ZASG_SAL VALUES ZASG_SAL.
* E_SUBRC = '1'.
* ENDIF.


 LOOP AT it_emp INTO wa_emp_sal.
   IF NOT wa_emp_sal-empid is INITIAL.
     E_SUBRC = '0'.
   ELSE.
     ZASG_SAL-empid = wa_emp-empid.
     ZASG_SAL-currency = wa_emp-currency.
     ZASG_SAL-amount = wa_emp-amount.
     INSERT INTO ZASG_SAL VALUES ZASG_SAL.
     E_SUBRC = '1'.
   ENDIF.

 ENDLOOP.




ENDFUNCTION.