create table bhav.dbf free ;
(symbol c(20),series c(20),open f(20,2),high f(20,2),low f(20,2),close f(20,2),;
last f(20,2),prevclose f(20,2),tottrdqty f(20,2),tottrdval  f(20,2),timestamp c(20),date d)

index on padr(symbol,20)+padr(series,20)+dtoc(date) tag idxbhav

create table del.dbf free ;
(settlement I,recordtype I,symbol c(20),series c(20),qtytrd I,delqty I,;
pdqty f(6,2),date d)

index on padr(symbol,20)+padr(series,20)+dtoc(date) tag idxdel

select a1.date,a1.symbol,a1.series,a1.open,a1.high,a1.low,a1.close,a1.last,;a1.prevclose,a1.tottrdqty,a1.tottrdval,;
a2.delqty,((a2.delqty*100)/a1.tottrdqty) as delpercent from bhav a1 , del a2 ;
where padr(a1.symbol,20)+padr(a1.series,20)+dtoc(a1.date) = ;
padr(a2.symbol,20)+padr(a2.series,20)+dtoc(a2.date) into table bhav_data