merge into ADDRESSPERACCOUNT c
  using (select RECORDID,<@KEY@> ID from contacts where USERFIELD5 = '<@SOURCEID@>:<@ADDRESS_BOOK_ID@>' 
  
  ) cd

  on (c.WCONTACTID = cd.RECORDID and c.WACCOUNTID = cd.ID)
  when matched then update set 
  WCONTACTID = cd.RECORDID 
   when not matched then  
INSERT (WADDRESSPERACCOUNTID, WACCOUNTID, WCONTACTID )
 VALUES (
gen_id(GEN_ADDRESSPERACCOUNT_ID,1), 
cd.ID, 
cd.RECORDID
)
@@GO@@
update debtor set WSALESMANID = 1 where WSALESMANID is null
@@GO@@
update debtor set WCONTACTID = (select RECORDID from contacts where USERFIELD5 = '<@SOURCEID@>:<@ADDRESS_BOOK_ID@>' )
 where WCONTACTID is null
@@GO@@ 
 