用如下是否可以？感觉如果品种一多，就太长了
variable:am[5]:=0;
AM[1]:=CALLSTOCK('I00',vtamount,6,-1);
AM[2]:=CALLSTOCK('J00',vtamount,6,-1);
AM[3]:=CALLSTOCK('M00',vtamount,6,-1);
AM[4]:=CALLSTOCK('Y00',vtamount,6,-1);
AM[5]:=CALLSTOCK('P00',vtamount,6,-1);
i00PM:HOD2(AM,5,AM[1]),LINETHICK0;
j00PM:HOD2(AM,5,AM[2]),LINETHICK0;
M00PM:HOD2(AM,5,AM[3]),LINETHICK0;
y00PM:HOD2(AM,5,AM[4]),LINETHICK0;
p00PM:HOD2(AM,5,AM[5]),LINETHICK0;
PM:IF(STKLABEL='I00',i00PM,IF(STKLABEL='J00',j00PM,IF(STKLABEL='M00',m00PM,IF(STKLABEL='Y00',y00PM,IF(STKLABEL='P00',p00PM,0))))),LINETHICK0;