cobol循环问题？

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

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

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

1　如果你的意思是 MOVE 123 TO A，变量A的类型是 PIC 9(5)，且 A= 45678的话，那么赋值后的A=00123，如果A的类型是 PIC X(5) 的话，赋值后的A=’123 ‘

2 应该是先执行段落然后再判断条件的

3 这个是先判断 在执行循环体

4 当读到最后一条记录时执行 *** 作

希望满意

这是一个计算变量长度的子程序。

你拿去参考参考，估计可以改的出来 计算文章的字符数的程序。

000100 IDENTIFICATION DIVISION. 00010000

000300 PROGRAM-ID.STRLEN. 00030000

000500 ENVIRONMENT DIVISION.00050000

000700 DATA DIVISION. 00070000

000900 WORKING-STORAGE SECTION. 00090000

001100 01 SWITCH. 00110000

001300 05 LENGTH-DETERMINED-SW PIC X VALUE 'N'. 00130000

001400 88 LENGTH-DETERMINED VALUE 'Y'. 00140002

001600 LINKAGE SECTION. 00160000

001800 01 TEXT-LENGTH PIC S9(4) COMP. 00180000

002000 01 WORK-TABLE. 00200000

002200 05 WT-CHARACTER OCCURS 1 TO 254 TIMES 00220000

002300 DEPENDING ON TEXT-LENGTH00230000

002400 PIC X. 00240000

002600 PROCEDURE DIVISION USING TEXT-LENGTH 00260000

002700 WORK-TABLE. 00270000

002900 000-DETERMINE-STRING-LENGTH. 00290000

003100 MOVE 'N' TO LENGTH-DETERMINED-SW.00310000

003200 PERFORM 100-EXAMINE-LAST-CHARACTER 00320000

003300 UNTIL LENGTH-DETERMINED. 00330000

003700 EXIT PROGRAM.00370000

003900 100-EXAMINE-LAST-CHARACTER. 00390000

004100 IF WT-CHARACTER(TEXT-LENGTH) = SPACE 00410000

004200 SUBTRACT 1 FROM TEXT-LENGTH 00420000

004300 ELSE 00430000

004400 MOVE 'Y' TO LENGTH-DETERMINED-SW.00440000

004500 IF TEXT-LENGTH = 0 00450000

004600 MOVE 'Y' TO LENGTH-DETERMINED-SW.00460000

---