diff --git a/PRINTCNF.COB b/PRINTCNF.COB index ee81ec2..41c6dd7 100644 --- a/PRINTCNF.COB +++ b/PRINTCNF.COB @@ -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.