//**********************参数设置***********************//
  N := 5;
  endt := today();
  stocks := getbk("上证50");

//**********************网格模版*********************//

  //**********************网格模版*********************//
  gridNo := 3; //网格个数,0：表示只使用本地服务器
  func := FunctionName() + '.tsubbystock'; //网格函数
  parms := array(N,endt,stocks);
  parmstype := array(0, 0, 2);
  return unit(MultiProc_unit).fastmap(gridNo,func,parms,parmstype);

end;
function tsubbystock(N, endt,stock);
begin
  sp_s(PN_Stock(),stock);
  sp_s(pn_date(),endt);
  ret := array(
   "代码":stock,
   "名称":stockname(stock),
   "截止日":endt,
   );
  for i := 1 to N do
   ret["T_" $ i] := ref(stockzf3(),i);
  return ret;
end;