ibm-midrange - 在 CL 中增加文本字段

Question

我必须更改 iSeries 计算机上的 CL 程序。原始 CL 有一个名为 &SEQ 的变量。它是一个值为“001”的文本字段。有没有办法在 CL 中添加一个值以使其成为“002”？我不熟悉 CL 编程，所以我不知道您是否可以对字符变量执行数学函数。谢谢你的帮助！

Answer 1

为此，您必须使用 *DEC CL 变量，然后将其移动到文本字段中。在程序顶部添加以下行：

DCL &SEQNBR *DEC 3 VALUE(1)

然后在程序中要增加序列号的地方执行以下操作：

CHGVAR &SEQNBR VALUE(&SEQNBR + 1)
CHGVAR &SEQ VALUE(&SEQNBR)

这里发生了什么？您将数值变量 &SEQNBR 声明为初始值为 1。然后使用 CHGVAR 命令将其递增。这使其值为 2。然后将其移动到文本字段 &SEQ，它将接收值为“002”。