Ibm midrange 递增CL中的文本字段

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

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

DCL &SEQNBR *DEC 3 VALUE(1)

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

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

---

这是怎么回事？您使用初始值1声明数值变量&SEQNBR。然后使用CHGVAR命令将其递增。这使得它的值为2。然后将其移动到文本字段&SEQ，它将收到值“002”。

谢谢，科齐先生！工作得很有魅力。