我必须在 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”。
关于ibm-midrange - 增加 CL 中的文本字段,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/10939278/