(Re-)fix $RELEVEL

2015-09-27 02:30:46 -06:00 · 2015-09-27 02:30:46 -06:00 · bc6c250aa3
parent fca97f9d52
commit bc6c250aa3
1 changed files with 2 additions and 1 deletions
--- a/WOPO.COB
+++ b/WOPO.COB
@ -350,7 +350,8 @@
           MOVE REG(1) TO USER-NAME.
           IF USER-LEVEL IS EQUAL TO 99 THEN
               MOVE REG(2) TO USER-LEVEL
-               WRITE USER-RECORD.
+               REWRITE USER-RECORD
+	           INVALID KEY WRITE USER-RECORD.
           READ USERS RECORD
               INVALID KEY MOVE 0 TO USER-LEVEL.
           INITIALIZE MSG-BODY.