我们正在尝试使用break函数编写循环宏。基本上我们想重复某个动作,直到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;