(Re-)fix $RELEVEL
This commit is contained in:
parent
fca97f9d52
commit
bc6c250aa3
1 changed files with 2 additions and 1 deletions
3
WOPO.COB
3
WOPO.COB
|
@ -350,7 +350,8 @@
|
||||||
MOVE REG(1) TO USER-NAME.
|
MOVE REG(1) TO USER-NAME.
|
||||||
IF USER-LEVEL IS EQUAL TO 99 THEN
|
IF USER-LEVEL IS EQUAL TO 99 THEN
|
||||||
MOVE REG(2) TO USER-LEVEL
|
MOVE REG(2) TO USER-LEVEL
|
||||||
WRITE USER-RECORD.
|
REWRITE USER-RECORD
|
||||||
|
INVALID KEY WRITE USER-RECORD.
|
||||||
READ USERS RECORD
|
READ USERS RECORD
|
||||||
INVALID KEY MOVE 0 TO USER-LEVEL.
|
INVALID KEY MOVE 0 TO USER-LEVEL.
|
||||||
INITIALIZE MSG-BODY.
|
INITIALIZE MSG-BODY.
|
||||||
|
|
Loading…
Reference in a new issue