//指定日最近到期的所有期权合约
endt:=20170522T;
bk:=getbk('上海期权;深圳期权;期货期权;退市期权');
qq:=select thisrow as '代码',
     spec(inttodate(base(720015)),thisrow) as '到期日'
     from bk end;
delete from qq where ['到期日']<endt;
MinD:=Minvalue(qq[:,'到期日']);
return select * from qq where ['到期日']=MinD end ;