Correctly place misplaced period.

2015-10-13 15:37:43 -06:00 · 2015-10-13 15:37:43 -06:00 · 73342ad5be
parent a48e8dab05
commit 73342ad5be
1 changed files with 2 additions and 1 deletions
--- a/WOPO.COB
+++ b/WOPO.COB
@ -508,7 +508,8 @@
               MOVE USER-NAME TO WORK
               CALL "RE-ESCAPE" USING WORK, WOPO-COUNTER
               MOVE WORK TO USER-NAME
-      D        DISPLAY "USER NAME. ", USER-NAME.
+      D        DISPLAY "USER NAME. ", USER-NAME
+               .
           IF NOT DONE THEN
               PERFORM BEGIN-REPLY
               STRING USER-NAME