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 beaf175 commit c37aea7Copy full SHA for c37aea7
COBOL Programming Course #3 - Advanced Topics/Labs/cbl/CBLDB23.cbl
@@ -97,7 +97,7 @@
97
OPEN INPUT CARDIN.
98
OPEN OUTPUT REPOUT.
99
READ CARDIN RECORD INTO IOAREA
100
- AT END MOVE 'N' TO INPUT-SWITCH.
+ AT END SET NOMORE-INPUT TO TRUE.
101
PERFORM PROCESS-INPUT
102
UNTIL NOMORE-INPUT.
103
PROG-END.
@@ -110,7 +110,7 @@
110
ELSE
111
PERFORM GET-SPECIFIC.
112
113
114
GET-ALL.
115
EXEC SQL OPEN CUR1 END-EXEC.
116
EXEC SQL FETCH CUR1 INTO :CUSTOMER-RECORD END-EXEC.
0 commit comments