//提取以期货'AU2004'为标的的所有期权合约上市日的基本信息:
qhID:=UpperCase('AU2004');
stocks:= sselect thisrow
from getbk(ALLOptionsBK())
where spec(UpperCase(base(720004)),thisrow)=qhID
end;
t:=array();
for i:=0 to length(stocks)-1 do
t&=select drange(0 to 0)* from infotable 720 of stocks[i] end;
return t;