update BS_REGIONSERVICELINE set reglevelcode='0000100001'||substr(reglevelcode,21,30),reglevel = '4'
where substr(reglevelcode,1,20) = '00001000010000100002' and reglevel = '6'
where substr(reglevelcode,1,20) = '00001000010000100002' and reglevel = '6'