update subcust set ccustcode = customer.ccustcode from subcust, customer where customer.customerkey = subcust.customerkey