*&---------------------------------------------------------------------*
*& Report ZCORR_FCLM_BAM_AMD
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZCORR_FCLM_BAM_AMD.

TABLES: fclm_bam_amd, fclm_bam_amd_cur.

SELECT * FROM fclm_bam_amd_cur INTO TABLE @DATA(lt_amd_cur) WHERE deleted_flag <> 'X'.
DATA: counter type sy-tabix.
LOOP AT lt_amd_cur INTO DATA(ls_amd_cur).
  UPDATE fclm_bam_amd SET waers = ls_amd_cur-waers WHERE acc_id = ls_amd_cur-acc_id AND revision = '0000'.
  CHECK sy-subrc = 0.
  COMMIT WORK.
  counter = counter + 1.
ENDLOOP.

WRITE: 'Field value of currency for ', counter, 'entries got updated successfully'.