ZASG_SAL_UPDATE

*&---------------------------------------------------------------------*
*& Report  ZASG_SAL_UPDATE
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZASG_SAL_UPDATE.
TABLES: ZASG_SAL.
DATA: l_subrc TYPE SY-SUBRC,
      wa_emp TYPE ZASG_SAL,
      it_emp type TABLE OF ZASG_EMP,
      it_sal type TABLE OF TCURC.


SELECTION-SCREEN BEGIN OF BLOCK SELECTION WITH FRAME TITLE text-001.
PARAMETERS :     EMP_ID LIKE ZASG_SAL-empid OBLIGATORY.
PARAMETERS :     EMP_CUR LIKE ZASG_SAL-currency OBLIGATORY.
PARAMETERS :     EMP_AMNT LIKE ZASG_SAL-amount OBLIGATORY.

SELECTION-SCREEN END OF BLOCK SELECTION.


wa_emp-empid = EMP_ID.
wa_emp-currency = EMP_CUR.
wa_emp-amount = EMP_AMNT.

*ID VALIDATION.

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

  IF  it_emp[] IS INITIAL.
    MESSAGE ID 'ZINSERTION_ERRORS' TYPE 'I' NUMBER '007'.
ELSE.


 SELECT * FROM TCURC
   INTO CORRESPONDING FIELDS OF TABLE it_sal
    WHERE waers = wa_emp-currency.

    IF it_sal[] IS INITIAL.
      MESSAGE ID 'ZINSERTION_ERRORS' TYPE 'I' NUMBER '008'.
  ELSE.


CALL FUNCTION 'Z_ASG_FN_UPDATESAL'
  EXPORTING
    WA_EMP        = wa_emp
 IMPORTING
   E_SUBRC       =  l_subrc.
if l_subrc = 1.
  MESSAGE ID 'ZINSERTION_ERRORS' TYPE 'I' NUMBER '009'.
 ELSEIF l_subrc = 0.
   MESSAGE ID 'ZINSERTION_ERRORS' TYPE 'I' NUMBER '004'.
   EXIT.
 ENDIF.
ENDIF.
ENDIF.
INITIALIZATION.