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