REPORT  ZKA1118.

PARAMETERS: p_job TYPE ZCARD_18-JOB.

DATA: ls_data TYPE ZCARD_18,
      lt_data TYPE STANDARD TABLE OF ZCARD_18,
      part1 TYPE string,
      part2 TYPE string.

SELECT * FROM ZCARD_18 INTO TABLE lt_data WHERE job = p_job.

LOOP AT lt_data INTO ls_data.
  IF ls_data-JOB = 'Kadernik'.
    split ls_data-EMAIL at '@' INTO part1 part2.
    CONCATENATE part1 '@kadernik.sk' INTO part1.
    ls_data-EMAIL = part1.
  ELSEIF ls_data-JOB = 'Taxikar'.
     split ls_data-EMAIL at '@' INTO part1 part2.
    CONCATENATE part1 '@taxikar.sk' INTO part1.
    ls_data-EMAIL = part1.
  ENDIF.
  MODIFY lt_data FROM ls_data.
 ENDLOOP.

 MODIFY ZCARD_18 FROM TABLE lt_data.

 DELETE FROM ZCARD_18 WHERE job = 'Ucitel'.