Correctly place misplaced period.
This commit is contained in:
parent
a48e8dab05
commit
73342ad5be
1 changed files with 2 additions and 1 deletions
3
WOPO.COB
3
WOPO.COB
|
@ -508,7 +508,8 @@
|
||||||
MOVE USER-NAME TO WORK
|
MOVE USER-NAME TO WORK
|
||||||
CALL "RE-ESCAPE" USING WORK, WOPO-COUNTER
|
CALL "RE-ESCAPE" USING WORK, WOPO-COUNTER
|
||||||
MOVE WORK TO USER-NAME
|
MOVE WORK TO USER-NAME
|
||||||
D DISPLAY "USER NAME. ", USER-NAME.
|
D DISPLAY "USER NAME. ", USER-NAME
|
||||||
|
.
|
||||||
IF NOT DONE THEN
|
IF NOT DONE THEN
|
||||||
PERFORM BEGIN-REPLY
|
PERFORM BEGIN-REPLY
|
||||||
STRING USER-NAME
|
STRING USER-NAME
|
||||||
|
|
Loading…
Reference in a new issue