sele a
close all
use jetj
*zap
*pack
*index on dhhm to s
sele b
use bb_hf_505
index on dhhm to s
go top
sele a
go top
do while .not. eof()
aa=dhhm
sele b
seek aa
if found()
sele a
repl to_hf_0505 with b->to_hf
else
* appe blank
* repl dhhm with aa
* repl to_hf_0511 with b->to_hf
endif
sele a
skip
enddo
close all
appe from jetj.txt sdf
brow
select a.dhhm,b.to_hf as hf_505 from ls a left outer join bb_hf_505 b on a.dhhm=b.dhhm into table lss
brow
select a.dhhm,b.to_hf as hf_506 from lss a left outer join bb_hf_506 b on a.dhhm=b.dhhm into table ls
brow
close all
select a.dhhm,b.to_hf as hf_505 from ls a left outer join bb_hf_505 b on a.dhhm=b.dhhm into table lss
select a.*,b.to_hf as hf_506 from lss a left outer join bb_hf_506 b on a.dhhm=b.dhhm into table ls
brow
select a.*,b.to_hf as hf_507 from ls a left outer join bb_hf_507 b on a.dhhm=b.dhhm into table lss
brow
select a.*,b.to_hf as hf_508 from lss a left outer join bb_hf_508 b on a.dhhm=b.dhhm into table ls
brow