begin
for re in (select * from KAMS_RETENTION_PRD_D_HIS where LEASE_RESOURCE_TYPE = 0 and LEASE_CONNECTION_CODE!=8045) loop
begin
UPDATE RETENTION_PRODUCT_D
SET LEASE_RESOURCE_TYPE = re.LEASE_RESOURCE_TYPE
,LEASE_CONNECTION_CODE = re.LEASE_CONNECTION_CODE
,LEASE_CONNECTION_TYPE = re.LEASE_CONNECTION_TYPE
WHERE
RETENTION_PRODUCT_NO = re.RETENTION_PRODUCT_NO;
end;
end loop;
for re in (select * from KAMS_CONNECTION_REL_D_HIS where
(RESOURCE_TYPE = 0 AND CONNECTION_CODE !=8045 AND CONNECTION_TYPE = 1)
or (RELATION_RESOURCE_TYPE = 0 AND RELATION_CONNECTION_CODE !=8045 AND RELATION_CONNECTION_TYPE = 1)) loop
begin
if re.RELATION_CODE = '13' then
begin
UPDATE CONNECTION_RELATION_D
SET RELATION_RESOURCE_TYPE = re.RELATION_RESOURCE_TYPE
,RELATION_CONNECTION_CODE = re.RELATION_CONNECTION_CODE
,RELATION_CONNECTION_TYPE = re.RELATION_CONNECTION_TYPE
WHERE
RESOURCE_TYPE = re.RESOURCE_TYPE
AND CONNECTION_CODE = re.CONNECTION_CODE
AND CONNECTION_TYPE = re.CONNECTION_TYPE
AND RELATION_NUMBER = re.RELATION_NUMBER;
end;
elsif re.RELATION_CODE = '10' then
begin
UPDATE CONNECTION_RELATION_D
SET RESOURCE_TYPE = re.RESOURCE_TYPE
,CONNECTION_CODE = re.CONNECTION_CODE
,CONNECTION_TYPE = re.CONNECTION_TYPE
WHERE
RELATION_RESOURCE_TYPE = re.RELATION_RESOURCE_TYPE
AND RELATION_CONNECTION_CODE = re.RELATION_CONNECTION_CODE
AND RELATION_CONNECTION_TYPE = re.RELATION_CONNECTION_TYPE
AND RELATION_NUMBER = re.RELATION_NUMBER;
end;
end if;
end;
end loop;
end;
for re in (select * from KAMS_RETENTION_PRD_D_HIS where LEASE_RESOURCE_TYPE = 0 and LEASE_CONNECTION_CODE!=8045) loop
begin
UPDATE RETENTION_PRODUCT_D
SET LEASE_RESOURCE_TYPE = re.LEASE_RESOURCE_TYPE
,LEASE_CONNECTION_CODE = re.LEASE_CONNECTION_CODE
,LEASE_CONNECTION_TYPE = re.LEASE_CONNECTION_TYPE
WHERE
RETENTION_PRODUCT_NO = re.RETENTION_PRODUCT_NO;
end;
end loop;
for re in (select * from KAMS_CONNECTION_REL_D_HIS where
(RESOURCE_TYPE = 0 AND CONNECTION_CODE !=8045 AND CONNECTION_TYPE = 1)
or (RELATION_RESOURCE_TYPE = 0 AND RELATION_CONNECTION_CODE !=8045 AND RELATION_CONNECTION_TYPE = 1)) loop
begin
if re.RELATION_CODE = '13' then
begin
UPDATE CONNECTION_RELATION_D
SET RELATION_RESOURCE_TYPE = re.RELATION_RESOURCE_TYPE
,RELATION_CONNECTION_CODE = re.RELATION_CONNECTION_CODE
,RELATION_CONNECTION_TYPE = re.RELATION_CONNECTION_TYPE
WHERE
RESOURCE_TYPE = re.RESOURCE_TYPE
AND CONNECTION_CODE = re.CONNECTION_CODE
AND CONNECTION_TYPE = re.CONNECTION_TYPE
AND RELATION_NUMBER = re.RELATION_NUMBER;
end;
elsif re.RELATION_CODE = '10' then
begin
UPDATE CONNECTION_RELATION_D
SET RESOURCE_TYPE = re.RESOURCE_TYPE
,CONNECTION_CODE = re.CONNECTION_CODE
,CONNECTION_TYPE = re.CONNECTION_TYPE
WHERE
RELATION_RESOURCE_TYPE = re.RELATION_RESOURCE_TYPE
AND RELATION_CONNECTION_CODE = re.RELATION_CONNECTION_CODE
AND RELATION_CONNECTION_TYPE = re.RELATION_CONNECTION_TYPE
AND RELATION_NUMBER = re.RELATION_NUMBER;
end;
end if;
end;
end loop;
end;