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

Remove non-portable characters in PRINTCNF.COB

This commit is contained in:
Quinn Evans 2017-04-02 22:41:55 -06:00
parent 22c3b4735a
commit e7cfc3e170
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
PRINTCNF.COB
View File

@ -57,17 +57,17 @@
01 PROGRAM-IP PIC 999.
PROCEDURE DIVISION.
DISPLAY "CONFIGURATION ENTRIES:"
DISPLAY "CONFIGURATION ENTRIES.".
OPEN INPUT CONFIG.
PERFORM PRINT-CONFIG-ENTRY UNTIL DONE.
MOVE 0 TO STATE.
CLOSE CONFIG.
DISPLAY "USER ENTRIES:"
DISPLAY "USER ENTRIES.".
OPEN INPUT USERS.
PERFORM PRINT-USER-ENTRY UNTIL DONE.
MOVE 0 TO STATE.
CLOSE USERS.
DISPLAY "CHANNEL ENTRIES:"
DISPLAY "CHANNEL ENTRIES.".
OPEN INPUT CHANNELS.
PERFORM PRINT-CHANNEL-ENTRY UNTIL DONE.
MOVE 0 TO STATE.