We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent a6050d2 commit beaf175Copy full SHA for beaf175
COBOL Programming Course #3 - Advanced Topics/Labs/cbl/CBLDB22.cbl
@@ -101,7 +101,7 @@
101
OPEN INPUT RECIN.
102
OPEN OUTPUT REPOUT.
103
READ RECIN RECORD INTO IOAREA
104
- AT END MOVE 'N' TO INPUT-SWITCH.
+ AT END SET NOMORE-INPUT TO TRUE.
105
PERFORM PROCESS-INPUT
106
UNTIL NOMORE-INPUT.
107
*
@@ -116,7 +116,7 @@
116
ELSE
117
PERFORM GET-SPECIFIC.
118
119
120
121
GET-ALL.
122
EXEC SQL OPEN CUR1 END-EXEC.
0 commit comments