Skip to content

Commit beaf175

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

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/CBLDB22.cbl

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -101,7 +101,7 @@
101101
OPEN INPUT RECIN.
102102
OPEN OUTPUT REPOUT.
103103
READ RECIN RECORD INTO IOAREA
104-
AT END MOVE 'N' TO INPUT-SWITCH.
104+
AT END SET NOMORE-INPUT TO TRUE.
105105
PERFORM PROCESS-INPUT
106106
UNTIL NOMORE-INPUT.
107107
*
@@ -116,7 +116,7 @@
116116
ELSE
117117
PERFORM GET-SPECIFIC.
118118
READ RECIN RECORD INTO IOAREA
119-
AT END MOVE 'N' TO INPUT-SWITCH.
119+
AT END SET NOMORE-INPUT TO TRUE.
120120
*
121121
GET-ALL.
122122
EXEC SQL OPEN CUR1 END-EXEC.

0 commit comments

Comments
 (0)