Improve loop readability

vargajb · web-flow · commit 088518e85124 · 2022-10-18T23:11:19.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/CBL0005.cobol b/COBOL Programming Course #2 - Learning COBOL/Labs/cbl/CBL0005.cobol
@@ -136,13 +136,13 @@
       *    paragraph of the code, executes it and returns control to
       *    the following line.
       *
-            PERFORM UNTIL LASTREC = 'Y'
+           PERFORM UNTIL LASTREC = 'Y'
       *     here PERFORM allows a loops to be entered   
       *
-            PERFORM WRITE-RECORD
-            PERFORM READ-RECORD
-            END-PERFORM
-            .
+               PERFORM WRITE-RECORD
+               PERFORM READ-RECORD
+           END-PERFORM
+           .
       *
        CLOSE-STOP.
            CLOSE ACCT-REC.
@@ -151,7 +151,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
`@@ -136,13 +136,13 @@`
`136`	`136`	`* paragraph of the code, executes it and returns control to`
`137`	`137`	`* the following line.`
`138`	`138`	`*`
`139`		`- PERFORM UNTIL LASTREC = 'Y'`
	`139`	`+ PERFORM UNTIL LASTREC = 'Y'`
`140`	`140`	`* here PERFORM allows a loops to be entered`
`141`	`141`	`*`
`142`		`- PERFORM WRITE-RECORD`
`143`		`- PERFORM READ-RECORD`
`144`		`- END-PERFORM`
`145`		`- .`
	`142`	`+ PERFORM WRITE-RECORD`
	`143`	`+ PERFORM READ-RECORD`
	`144`	`+ END-PERFORM`
	`145`	`+ .`
`146`	`146`	`*`
`147`	`147`	`CLOSE-STOP.`
`148`	`148`	`CLOSE ACCT-REC.`
`@@ -151,7 +151,7 @@`
`151`	`151`	`*`
`152`	`152`	`READ-RECORD.`
`153`	`153`	`READ ACCT-REC`
`154`		`- AT END MOVE 'Y' TO LASTREC`
	`154`	`+ AT END MOVE 'Y' TO LASTREC`
`155`	`155`	`END-READ.`
`156`	`156`	`*`
`157`	`157`	`WRITE-RECORD.`