Fix "$JOIN 0" behavior.

2015-10-01 13:07:58 -06:00 · 2015-10-01 13:07:58 -06:00 · b92b34d360
parent 10856dab96
commit b92b34d360
1 changed files with 2 additions and 1 deletions
--- a/WOPO.COB
+++ b/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)