uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix another bug that never surfaced.

This commit is contained in:
Quinn Evans 2017-03-27 21:43:39 -06:00
parent 2770e4a5f2
commit 9faf870e6d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
WOPO-CNF.COB
View File

@ -41,18 +41,18 @@
DISPLAY "BLANK ENTRY TO EXIT SECTION". DISPLAY "BLANK ENTRY TO EXIT SECTION".
DISPLAY "WRITING CONFIGURATION ENTRIES:". DISPLAY "WRITING CONFIGURATION ENTRIES:".
OPEN OUTPUT CONFIG. OPEN OUTPUT CONFIG.
PERFORM WRITE-CONFIG-ENTRY UNTIL DONE.
MOVE 0 TO STATE. MOVE 0 TO STATE.
PERFORM WRITE-CONFIG-ENTRY UNTIL DONE.
CLOSE CONFIG. CLOSE CONFIG.
DISPLAY "WRITING USER ENTRIES:" DISPLAY "WRITING USER ENTRIES:"
OPEN OUTPUT USERS. OPEN OUTPUT USERS.
PERFORM WRITE-USER-ENTRY UNTIL DONE.
MOVE 0 TO STATE. MOVE 0 TO STATE.
PERFORM WRITE-USER-ENTRY UNTIL DONE.
CLOSE USERS. CLOSE USERS.
OPEN OUTPUT CHANNELS. OPEN OUTPUT CHANNELS.
DISPLAY "WRITING CHANNEL AUTOJOINS:" DISPLAY "WRITING CHANNEL AUTOJOINS:"
PERFORM WRITE-CHANNEL-ENTRY UNTIL DONE.
MOVE 0 TO STATE. MOVE 0 TO STATE.
PERFORM WRITE-CHANNEL-ENTRY UNTIL DONE.
CLOSE CHANNELS. CLOSE CHANNELS.
CALL "PRINT-CONFIG". CALL "PRINT-CONFIG".
STOP RUN. STOP RUN.