mtic;
  //stocks:=getbk('可转债');
 stocks:=getbk('A股');
 setsysparam(PN_Precision(),2);
 ss:=array();
 ret:=array(); k:=0;
 for i:=0 to length(stocks)-1 do
 begin
  setsysparam(pn_stock(),stocks[i]);
  try
    ret[k,'StockID']:=stocks[i];
    ret[k,'time']:=datetimetostr(rd(-1));
    ret[k,'name']:=rd(1);
    ret[k,'open']:=rd(2);
    ret[k,'yclose']:=rd(3);
    ret[k,'high']:=rd(4);
    ret[k,'low']:=rd(5);
    ret[k,'price']:=rd(6);
    ret[k,'amount']:=rd(8);
    k++;
  except
    echo stocks[i]; //盘口无数据的，跳过
  end;
 end
  echo mtoc;
  return ret;