UPDATE Tbls.Host SET
HostActvTyp = CASE, HostPrevTyp = CASE WHEN LENGTH(RTRIM(LTRIM(HostCd)))=3
then 'CORE'
ELSE END,
HostActvTyp = CASE, HostPrevTyp = CASE WHEN SUBSTR(RTRIM(LTRIM(HSTHC)),4)='P'
then'PROSPECTING'
ELSE END,
HostActvTyp = CASE, HostPrevTyp = CASE WHEN SUBSTR(RTRIM(LTRIM(HSTHC)),4)='I'
then'INDEPENDENT'
ELSE END,
HostActvTyp = CASE, HostPrevTyp = CASE WHEN SUBSTR(RTRIM(LTRIM(HSTHC)),4)='R'
then 'REACTIVE'
ELSE END,
HostActvTyp = CASE, HostPrevTyp = CASE WHEN SUBSTR(RTRIM(LTRIM(HSTHC)),4)='N'
then 'NEW'
ELSE END;