Make $LIST-USERS actually work again.

2017-03-22 20:40:17 -06:00 · 2017-03-22 20:40:17 -06:00 · b6b9ed89b9
parent 29df3ec2fa
commit b6b9ed89b9
1 changed files with 2 additions and 2 deletions
--- a/WOPO.COB
+++ b/WOPO.COB
@ -930,9 +930,9 @@
               PERFORM REPLY-NAK.
           READ USERS RECORD
               INVALID KEY MOVE 0 TO USER-LEVEL.
-           PERFORM BEGIN-STANDARD-REPLY.
-           STRING USER-RECORD, "$NUL$" INTO R(1).
           MOVE 1 TO SRC.
+           STRING USER-RECORD, "$NUL$" INTO R(1).
+           PERFORM BEGIN-STANDARD-REPLY.
           PERFORM DO-OUTPUT.

       HANDLE-BF-CODE.