Make $LIST-USERS actually work again.
This commit is contained in:
parent
29df3ec2fa
commit
b6b9ed89b9
4
WOPO.COB
4
WOPO.COB
|
@ -930,9 +930,9 @@
|
||||||
PERFORM REPLY-NAK.
|
PERFORM REPLY-NAK.
|
||||||
READ USERS RECORD
|
READ USERS RECORD
|
||||||
INVALID KEY MOVE 0 TO USER-LEVEL.
|
INVALID KEY MOVE 0 TO USER-LEVEL.
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
|
||||||
STRING USER-RECORD, "$NUL$" INTO R(1).
|
|
||||||
MOVE 1 TO SRC.
|
MOVE 1 TO SRC.
|
||||||
|
STRING USER-RECORD, "$NUL$" INTO R(1).
|
||||||
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
PERFORM DO-OUTPUT.
|
PERFORM DO-OUTPUT.
|
||||||
|
|
||||||
HANDLE-BF-CODE.
|
HANDLE-BF-CODE.
|
||||||
|
|
Loading…
Reference in New Issue