File tree Expand file tree Collapse file tree 1 file changed +10
-10
lines changed
COBOL Programming Course #2 - Learning COBOL/Labs/cbl Expand file tree Collapse file tree 1 file changed +10
-10
lines changed Original file line number Diff line number Diff line change 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.
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
You can’t perform that action at this time.
0 commit comments