Skip to content

Commit c37aea7

Browse files
authored
Use 88-level conditional names for assignments
Signed-off-by: Janos Varga <113785741+vargajb@users.noreply.github.com>
1 parent beaf175 commit c37aea7

File tree

1 file changed

+2
-2
lines changed
  • COBOL Programming Course #3 - Advanced Topics/Labs/cbl

1 file changed

+2
-2
lines changed

COBOL Programming Course #3 - Advanced Topics/Labs/cbl/CBLDB23.cbl

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -97,7 +97,7 @@
9797
OPEN INPUT CARDIN.
9898
OPEN OUTPUT REPOUT.
9999
READ CARDIN RECORD INTO IOAREA
100-
AT END MOVE 'N' TO INPUT-SWITCH.
100+
AT END SET NOMORE-INPUT TO TRUE.
101101
PERFORM PROCESS-INPUT
102102
UNTIL NOMORE-INPUT.
103103
PROG-END.
@@ -110,7 +110,7 @@
110110
ELSE
111111
PERFORM GET-SPECIFIC.
112112
READ CARDIN RECORD INTO IOAREA
113-
AT END MOVE 'N' TO INPUT-SWITCH.
113+
AT END SET NOMORE-INPUT TO TRUE.
114114
GET-ALL.
115115
EXEC SQL OPEN CUR1 END-EXEC.
116116
EXEC SQL FETCH CUR1 INTO :CUSTOMER-RECORD END-EXEC.

0 commit comments

Comments
 (0)