update Account set 

SACCOUNTCODE = '<@SPATNUM@>',
SMAINACCOUNTCODE = substring('<@SPATNUM@>' from 1 for 4),
SSUBACCOUNTCODE = substring('<@SPATNUM@>' from 5 for 3),
SDESCRIPTION = substring('<@LNAME@> <@FNAME@> '|| <@BIRTHDATE@> from 1 for 64) ,
DSYSDATE = current_timestamp
where 
waccountid = <@WACCOUNTID@>
@@GO@@
update  DEBTOR set
SPOSTAL1='<@ADDRESS@>', 
SPOSTAL2='<@CITY@>', 
SPOSTAL3='<@ADDRESS2@>', 
WPOSTCOUNTRIES_ID=152,
SPOSTALCODE='<@ZIP@>',  
SDELIVERY1='<@ADDRESS@>', 
SDELIVERY2='<@ADDRESS2@>', 
SDELIVERY3='<@CITY@>',
WDELCOUNTRIES_ID=152,
SDELIVERYCODE='<@ZIP@>',  
STELEPHONE1='<@HMPHONE@>',
STELEPHONE2='<@WIRELESSPHONE@>',
SFAX='<@WKPHONE@>',
SEMAIL='<@EMAIL@>', 
SREFERENCE='<@SSN@>' ,
SFREEFIELD1 = <@BIRTHDATE@>, 
SFREEFIELD2 = '<@LNAME@> <@FNAME@>' 
where Waccountid = <@WACCOUNTID@> 
@@GO@@
IF select count(*) from   DEBPEREXTRA
 where WACCOUNTID = <@KEY@>   
@@GO@@
insert into DEBPEREXTRA
( WACCOUNTID, SNAME)
 VALUES (
<@KEY@>, 
'<@LNAME@>'
)
@@GO@@
update DEBPEREXTRA set SNAME = '<@LNAME@>' where WACCOUNTID = <@KEY@> 
@@GO@@
update DEBPEREXTRA set SGENDER = '<@GENDER@>',
SSUBNAME = '<@MIDDLEI@>',
DBIRTH = <@BIRTHDATE@>,
SINITIALS = '<@FNAME@>', 
SHOUSENUMBER = '<@HOUSENR@>',
SBSN = '<@SSN@>'
 where WACCOUNTID = <@KEY@> 
@@GO@@