Skip to content

Commit 12fb8fc

Browse files
authored
Improve loop readability
Signed-off-by: Janos Varga <113785741+vargajb@users.noreply.github.com>
1 parent 7d21b2c commit 12fb8fc

File tree

1 file changed

+10
-10
lines changed
  • COBOL Programming Course #2 - Learning COBOL/Labs/cbl

1 file changed

+10
-10
lines changed

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

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -143,18 +143,18 @@
143143
*
144144
READ-NEXT-RECORD.
145145
PERFORM READ-RECORD
146-
PERFORM UNTIL LASTREC = 'Y'
147-
PERFORM LIMIT-BALANCE-TOTAL
148-
PERFORM WRITE-RECORD
149-
PERFORM READ-RECORD
150-
END-PERFORM
146+
PERFORM UNTIL LASTREC = 'Y'
147+
PERFORM LIMIT-BALANCE-TOTAL
148+
PERFORM WRITE-RECORD
149+
PERFORM READ-RECORD
150+
END-PERFORM
151151
.
152152
*
153153
WRITE-TLIMIT-TBALANCE.
154-
MOVE TLIMIT TO TLIMIT-O.
155-
MOVE TBALANCE TO TBALANCE-O.
156-
WRITE PRINT-REC FROM TRAILER-1.
157-
WRITE PRINT-REC FROM TRAILER-2.
154+
MOVE TLIMIT TO TLIMIT-O.
155+
MOVE TBALANCE TO TBALANCE-O.
156+
WRITE PRINT-REC FROM TRAILER-1.
157+
WRITE PRINT-REC FROM TRAILER-2.
158158
*
159159
CLOSE-STOP.
160160
CLOSE ACCT-REC.
@@ -163,7 +163,7 @@
163163
*
164164
READ-RECORD.
165165
READ ACCT-REC
166-
AT END MOVE 'Y' TO LASTREC
166+
AT END MOVE 'Y' TO LASTREC
167167
END-READ.
168168
*
169169
* The LIMIT-BALANCE-TOTAL paragraph performs an arithmetic

0 commit comments

Comments
 (0)