Improve loop readability

Signed-off-by: Janos Varga <[email protected]>

Author: vargajb

COBOL Programming Course #2 - Learning COBOL/Labs/cbl/CBL0012.cobol

@@ -129,17 +129,17 @@
       *
        READ-NEXT-RECORD.
            PERFORM READ-RECORD
-            PERFORM UNTIL LASTREC = 'Y'
-            PERFORM LIMIT-BALANCE-TOTAL
-            PERFORM WRITE-RECORD
-            PERFORM READ-RECORD
-            END-PERFORM
+           PERFORM UNTIL LASTREC = 'Y'
+               PERFORM LIMIT-BALANCE-TOTAL
+               PERFORM WRITE-RECORD
+               PERFORM READ-RECORD
+           END-PERFORM
            .
        WRITE-TLIMIT-TBALANCE.
-            MOVE TLIMIT   TO TLIMIT-O.
-            MOVE TBALANCE TO TBALANCE-O.
-            WRITE PRINT-REC FROM TRAILER-1.
-            WRITE PRINT-REC FROM TRAILER-2.
+           MOVE TLIMIT   TO TLIMIT-O.
+           MOVE TBALANCE TO TBALANCE-O.
+           WRITE PRINT-REC FROM TRAILER-1.
+           WRITE PRINT-REC FROM TRAILER-2.
       *
        CLOSE-STOP.
            CLOSE ACCT-REC.
@@ -148,7 +148,7 @@
       *
        READ-RECORD.
            READ ACCT-REC
-           AT END MOVE 'Y' TO LASTREC
+               AT END MOVE 'Y' TO LASTREC
            END-READ.
       *
        LIMIT-BALANCE-TOTAL.