Set dele on
Set safe off
Set excl off

Sele a
Use reprop
Index on repropkey to xx
Sele b
Use mobile
Set rela to repropkey into a
Copy fields ownkey, mobilekey, repropkey, a.realkey, mfg, model, width, length, yearbuilt, mobtype to temp for mobtype = 2 and yearbuilt <= '1976'

Sele a
Use realprop
Index on realkey to xx

Sele b
Use temp
Set rela to realkey into a
Replace all ownkey with a.ownkey

Sele a
Use owner
Index on ownkey to xx
Sele b
Use temp
Set rela to ownkey into a
Copy fields a.lastname, a.firstname, a.middle, a.address1, a.address2, a.address3, a.city, a.state, a.zip, ownkey,;
 mobilekey, repropkey, realkey, mfg, model, width, length, yearbuilt, mobtype to temp2

Use temp2
Appen from mobile for mobtype = 3 and yearbuilt <= '1976'

Sele a
Use owner
Index on ownkey to xx
Sele b
Use temp2
Set rela to ownkey into a
Replace lastname with a.lastname, firstname with a.firstname, middle with a.middle, address1 with a.address1, address2 with a.address2, address3 with a.address3, city with a.city, state with a.state, zip with a.zip for ownkey = a.ownkey and mobtype = 3

Copy to mobile_1976 xls


Sele a
Use reprop
Index on repropkey to xx
Sele b
Use mobile
Set rela to repropkey into a
Copy fields ownkey, mobilekey, repropkey, a.realkey, mfg, model, width, length, yearbuilt, mobtype to temp for mobtype = 2 and yearbuilt > '1976'

Sele a
Use realprop
Index on realkey to xx

Sele b
Use temp
Set rela to realkey into a
Replace all ownkey with a.ownkey

Sele a
Use owner
Index on ownkey to xx
Sele b
Use temp
Set rela to ownkey into a
Copy fields a.lastname, a.firstname, a.middle, a.address1, a.address2, a.address3, a.city, a.state, a.zip, ownkey,;
 mobilekey, repropkey, realkey, mfg, model, width, length, yearbuilt, mobtype to temp2

Use temp2
Appen from mobile for mobtype = 3 and yearbuilt > '1976'

Sele a
Use owner
Index on ownkey to xx
Sele b
Use temp2
Set rela to ownkey into a
Replace lastname with a.lastname, firstname with a.firstname, middle with a.middle, address1 with a.address1, address2 with a.address2, address3 with a.address3, city with a.city, state with a.state, zip with a.zip for ownkey = a.ownkey and mobtype = 3

Copy to mobile_1977 xls

Close all