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.
|
01 PROGRAM-IP PIC 999.
|
||||||
|
|
||||||
PROCEDURE DIVISION.
|
PROCEDURE DIVISION.
|
||||||
DISPLAY "CONFIGURATION ENTRIES:"
|
DISPLAY "CONFIGURATION ENTRIES.".
|
||||||
OPEN INPUT CONFIG.
|
OPEN INPUT CONFIG.
|
||||||
PERFORM PRINT-CONFIG-ENTRY UNTIL DONE.
|
PERFORM PRINT-CONFIG-ENTRY UNTIL DONE.
|
||||||
MOVE 0 TO STATE.
|
MOVE 0 TO STATE.
|
||||||
CLOSE CONFIG.
|
CLOSE CONFIG.
|
||||||
DISPLAY "USER ENTRIES:"
|
DISPLAY "USER ENTRIES.".
|
||||||
OPEN INPUT USERS.
|
OPEN INPUT USERS.
|
||||||
PERFORM PRINT-USER-ENTRY UNTIL DONE.
|
PERFORM PRINT-USER-ENTRY UNTIL DONE.
|
||||||
MOVE 0 TO STATE.
|
MOVE 0 TO STATE.
|
||||||
CLOSE USERS.
|
CLOSE USERS.
|
||||||
DISPLAY "CHANNEL ENTRIES:"
|
DISPLAY "CHANNEL ENTRIES.".
|
||||||
OPEN INPUT CHANNELS.
|
OPEN INPUT CHANNELS.
|
||||||
PERFORM PRINT-CHANNEL-ENTRY UNTIL DONE.
|
PERFORM PRINT-CHANNEL-ENTRY UNTIL DONE.
|
||||||
MOVE 0 TO STATE.
|
MOVE 0 TO STATE.
|
||||||
|
|
Loading…
Reference in a new issue