STR:=STRTRIMRIGHT( STKLABEL, '0123456789');
//双年份合约,豆一和白糖虽然取消双年份,但是金字塔为保证老用户策略的正常操作,所以保持不变。因此依旧需要区分。
if STRCMP(STR,'AY')=0 or STRCMP(STR,'BUY')=0 OR STRCMP(STR,'SRY')=0 THEN BEGIN
STR:=STRREPLACE(STR , 'Y','X' );
END
//区分处理原油和其他品种的连续代码
STR00:=IF(STRCMP(STR,'SC')=0,STRCAT(STR , '8813'),STRCAT( STR, '13'));
EXPLAIN( 1, STR00 );//这句可以删除掉,仅供调试使用
//持仓量
y:CALLSTOCK(STR00,vtOPENINT,6,0);