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 TARGET TO REG(4).
|
||||
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 1 TO MSG-LENGTH
|
||||
STRING "JOIN ", REG(1)
|
||||
|
|
Loading…
Reference in a new issue