Question

cobol循环问题？

PERFORM 1-SECTION UNTIL I > 50 OR FLG-ERR = CNS-ON

PERFORM VARYING J FROM 1 BY 1 UNTIL J >50 OR FLG-ERR = CNS-ON
.......
END-PERFORM
这2个循环有什么不同,各是什么意思？

Answer 1

第一个是，循环执行1-SECTION，直到I 大于50或者FLG-ERR=CNS-ON

第二个是，变量J从1开始，每次加1，直到J>50或者FLG-ERR=CNS-ON，循环执行内部的操作

不同点是，第一个是先执行，后判断，后一个是先判断，后执行

Answer 2

第一的循环体是1-SECTION，可以在这个section中做了一些功能
第二个是执行 ....... 的内容，就相当于把第一个循环中的1-SECTION的内容写在了 ....... 位置

Answer 3

第一个是循环调用某个节。
第二个是循环执行perform段内的逻辑。