Correctly place another misplaced period...
This commit is contained in:
parent
73342ad5be
commit
5c6d6fa66e
3
WOPO.COB
3
WOPO.COB
|
@ -479,7 +479,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
|
||||||
|
.
|
||||||
STRING USER-NAME
|
STRING USER-NAME
|
||||||
INTO MSG-BODY
|
INTO MSG-BODY
|
||||||
WITH POINTER WORK-PTR.
|
WITH POINTER WORK-PTR.
|
||||||
|
|
Loading…
Reference in New Issue