FROM 1--> idx从1开始 BY 1-->步长为1(就是加1)until idx>5 -->直到下标大于5退出循环 和C的"FOR (I=1;I<=5;I++)"功能一样.
1cobol循环问题?PERFORM 1-SECTION UNTIL I > 50 OR FLG-ERR = CNS-ONPERFORM VARYING J FROM 1 BY 1 UNTIL J >50 OR FLG-ERR = CNS-ON.END-PERFORM这2个循环有什么不同, 2 cobol循环问题? PERFORM 1-SECTION UNTIL I > 50 OR FLG-ERR = CNS-ON PERFORM VARYING J FROM 1 BY 1 UNTIL J ...
1. PERFORM VARYING A FROM 1 BY -1 UNTIL A>100 , 会死循环;2. IF 100(A)=ZERO , 应该是你写错或看错了吧, 这里的"100" 换成个数组变量就可以了, 就像 WA-NAME(A), 但是得当心数组溢出;3. 07 ABCDESFG OCCURS 8, 就像定义了一张表---"ABCDESFG", 一般都这么用,01 WA-TABLE....
常量1 ,常量2 格式2:SUBTRACT 标识符1 ,标识符2 。。。 FROM 标识符 常量1 ,常量2 常量 GIVING 标识符n [,标识符p]。。。3。MULTIPLY语句:格式1:MULTIPLY 标识符1 BY 标识符2 [,标识符3]。。。常量1,格式2:MULTIPLY 标识符1 BY 标识符2 GIVING 标识符3 ...
PERFORM 过程名1 [THROUGH/THRU] 过程名2 [VARYING 参数1 FROM 初值1 BY 步长1 UNTIL 条件1][AFTER 参数2 FROM 初值2 BY 步长2 UNTIL 条件2][AFTER 参数3 FROM 初值3 BY 步长3 UNTIL 条件3]END-PERFORM.还有一个 IF ~ELSE ~END-IF....
简单点,大致就这意思 move 0 to flag perform varying i from 1 by 1 until( i=50 or flag=1)compute startA = 50 - i if dataA(startA:1)=...(你的条件) then move 1 to flag end-if end-perform
PERFORM 300-PROCESS VARYING I FROM 1 BY 1 UNTIL I > 10. 这种形式的PERFORM语句会重复执行标签为300-PROCESS的代码块,每次迭代都会增加变量I的值,直到I大于10时停止。 PERFORM语句在COBOL中被广泛应用于循环和迭代的场景,能够有效地简化代码结构,提高可读性和可维护性。同时,通过与条件语句结合,可以实现复杂的...
COBOL 基本语句--好东西
05 NUMA PIC 9(02).05 NUMB PIC X(02).MOVE SPACE TO NUM.PERFORM VARYING IDX1 FROM 1 BY 1 UNTIL IDX1 > 9 PERFORM VARYING IDX2 FROM 1 BY 1 UNTIL IDX2 > IDX1 COMPUTE COUNTNUM = IDX1 * IDX2 MOVE COUNTNUM TO NUMA(IDX2)MOVE SPACE TO NUM...
1。ACCEPT语句:直接从终端键盘或系统指定的输入设备上输入数据。 ACCEPT 标识符 [FROM 助忆名] 注:A。标识符(identifier)指的是能唯一地标识一个数据项的数据名,不能唯一地标识一个 数据项的数据名不是标识符。标识符可以是组合项。 B。在ACCEPT语句中如不写FROM部分,如ACCEPT A ,则表示从系统隐含指定的 ...