//获得所有的A股
  stocks:=getbk("A股");
  //得到Stocks中指定日endt变成ST股的股票
  endt:=20170330T;
  data:=array();
  dEndt:=datetoInt(endt);
  //对股票轮询判断股票是否在endt当天变更为ST股
  for i:=0 to length(stocks)-1 do
    data&=select * from infotable 14 of stocks[i]
         where ['变动日']=dEndt
         and pos('ST',['变更前名称'])=0
         and pos('ＳＴ',['变更前名称'])=0
         and (pos('ST',['变更后名称'])>0
           or pos('ＳＴ',['变更后名称'])>0) end;
  if istable(data) then
    return data[:,'StockID'];
  return array();