Skip to content

Commit 63af537

Browse files
authored
Update CBL0106C.cbl
Signed-off-by: Janos Varga <113785741+vargajb@users.noreply.github.com>
1 parent 5056c3c commit 63af537

File tree

1 file changed

+7
-7
lines changed
  • COBOL Programming Course #3 - Advanced Topics/Challenges/Debugging/cbl

1 file changed

+7
-7
lines changed

COBOL Programming Course #3 - Advanced Topics/Challenges/Debugging/cbl/CBL0106C.cbl

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -140,12 +140,12 @@
140140
*
141141
READ-NEXT-RECORD.
142142
PERFORM READ-RECORD
143-
PERFORM UNTIL LASTREC = 'Y'
144-
PERFORM IS-STATE-VIRGINIA
145-
PERFORM IS-OVERLIMIT
146-
PERFORM WRITE-RECORD
147-
PERFORM READ-RECORD
148-
END-PERFORM
143+
PERFORM UNTIL LASTREC = 'Y'
144+
PERFORM IS-STATE-VIRGINIA
145+
PERFORM IS-OVERLIMIT
146+
PERFORM WRITE-RECORD
147+
PERFORM READ-RECORD
148+
END-PERFORM
149149
.
150150
*
151151
CLOSE-STOP.
@@ -157,7 +157,7 @@
157157
*
158158
READ-RECORD.
159159
READ ACCT-REC
160-
AT END MOVE 'Y' TO LASTREC
160+
AT END MOVE 'Y' TO LASTREC
161161
END-READ.
162162
*
163163
IS-OVERLIMIT.

0 commit comments

Comments
 (0)