我们正在尝试编写一个带有中断函数的循环宏。基本上,我们希望重复某个动作,直到 X(源自数据集)为真。然而,编译器似乎不喜欢这种方法(返回“预期的常量表达式”)所以我们想知道是否有已知的解决方法?
下面提供了一个完全人为的示例,调用方式为:
LoopFunction(5);
从 BWR 窗口。
EXPORT LoopFunction(NMax = 5) := MACRO
Rec := RECORD
INTEGER i;
END;
#DECLARE(i);
OUTPUT(DATASET([1], REC), ,'~TEMP::MB::LOOPTEST' + %i%, COMPRESSED, OVERWRITE);
#SET(i, 2);
shouldIbreak := DATASET('~TEMP::MB::LOOPTEST' + (%i% - 1), Rec, THOR);
#LOOP
OUTPUT(shouldIbreak +DATASET([%i%], REC), ,'~TEMP::MB::LOOPTEST' + %i%, COMPRESSED, OVERWRITE);
#SET (i, %i%+1);
#IF (COUNT(shouldIbreak) > Nmax);
#BREAK
#END
#END
ENDMACRO;