Fix "$JOIN 0" behavior.
This commit is contained in:
parent
10856dab96
commit
b92b34d360
1 changed files with 2 additions and 1 deletions
3
WOPO.COB
3
WOPO.COB
|
@ -381,7 +381,8 @@
|
||||||
MOVE COMMAND TO REG(3).
|
MOVE COMMAND TO REG(3).
|
||||||
MOVE TARGET TO REG(4).
|
MOVE TARGET TO REG(4).
|
||||||
PERFORM VALIDATE-USER.
|
PERFORM VALIDATE-USER.
|
||||||
IF USER-LEVEL IS GREATER THAN 80 THEN
|
IF USER-LEVEL IS GREATER THAN 80 AND
|
||||||
|
REG(1) IS NOT EQUAL TO "0" THEN
|
||||||
MOVE SPACES TO MSG-BODY
|
MOVE SPACES TO MSG-BODY
|
||||||
MOVE 1 TO MSG-LENGTH
|
MOVE 1 TO MSG-LENGTH
|
||||||
STRING "JOIN ", REG(1)
|
STRING "JOIN ", REG(1)
|
||||||
|
|
Loading…
Reference in a new issue