Z_ASG_FN_INSERTSAL

FUNCTION Z_ASG_FN_INSERTSAL.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     REFERENCE(WA_EMP) TYPE  ZASG_SAL
*"  EXPORTING
*"     VALUE(E_SUBRC) TYPE  SY-SUBRC
*"----------------------------------------------------------------------
TABLES : ZASG_SAL.



SELECT * FROM ZASG_SAL
  WHERE empid = wa_emp-empid.
ENDSELECT.
 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.




ENDFUNCTION.