Remove non-portable characters in PRINTCNF.COB
This commit is contained in:
parent
22c3b4735a
commit
e7cfc3e170
1 changed files with 3 additions and 3 deletions
|
@ -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.
|
||||
|
|
Loading…
Reference in a new issue