Improve loop readability

vargajb · web-flow · commit f340edd9c8a7 · 2022-10-18T23:03:49.000+02:00
Signed-off-by: Janos Varga &lt;113785741+vargajb@users.noreply.github.com&gt;
diff --git a/COBOL Programming Course #2 - Learning COBOL/Labs/cbl/CBL0001.cobol b/COBOL Programming Course #2 - Learning COBOL/Labs/cbl/CBL0001.cobol
@@ -71,10 +71,10 @@
       *     and the call to WRITE-RECORD depend on READ-RECORD having
       *     been executed before.
       *     The loop starts at the next line with PERFORM UNTIL
-            PERFORM UNTIL LASTREC = 'Y'
-            PERFORM WRITE-RECORD
-            PERFORM READ-RECORD
-            END-PERFORM
+           PERFORM UNTIL LASTREC = 'Y'
+               PERFORM WRITE-RECORD
+               PERFORM READ-RECORD
+           END-PERFORM
            .
       *
        CLOSE-STOP.
@@ -84,7 +84,7 @@
       *
        READ-RECORD.
            READ ACCT-REC
-           AT END MOVE 'Y' TO LASTREC
+               AT END MOVE 'Y' TO LASTREC
            END-READ.
       *
        WRITE-RECORD.

Original file line number	Diff line number	Diff line change
`@@ -71,10 +71,10 @@`
`71`	`71`	`* and the call to WRITE-RECORD depend on READ-RECORD having`
`72`	`72`	`* been executed before.`
`73`	`73`	`* The loop starts at the next line with PERFORM UNTIL`
`74`		`- PERFORM UNTIL LASTREC = 'Y'`
`75`		`- PERFORM WRITE-RECORD`
`76`		`- PERFORM READ-RECORD`
`77`		`- END-PERFORM`
	`74`	`+ PERFORM UNTIL LASTREC = 'Y'`
	`75`	`+ PERFORM WRITE-RECORD`
	`76`	`+ PERFORM READ-RECORD`
	`77`	`+ END-PERFORM`
`78`	`78`	`.`
`79`	`79`	`*`
`80`	`80`	`CLOSE-STOP.`
`@@ -84,7 +84,7 @@`
`84`	`84`	`*`
`85`	`85`	`READ-RECORD.`
`86`	`86`	`READ ACCT-REC`
`87`		`- AT END MOVE 'Y' TO LASTREC`
	`87`	`+ AT END MOVE 'Y' TO LASTREC`
`88`	`88`	`END-READ.`
`89`	`89`	`*`
`90`	`90`	`WRITE-RECORD.`