From ec1104234054ffe844f29d47166473002aa0ec8c Mon Sep 17 00:00:00 2001
From: Quinn Evans <Quinn Evans>
Date: Tue, 21 Mar 2017 23:19:05 -0600
Subject: [PATCH] Fix $LIST-USER/USERS file bugs.

---
 PRINTCNF.COB |  2 +-
 WOPO.COB     | 10 ++++------
 2 files changed, 5 insertions(+), 7 deletions(-)

diff --git a/PRINTCNF.COB b/PRINTCNF.COB
index 54673b8..b9a20ef 100644
--- a/PRINTCNF.COB
+++ b/PRINTCNF.COB
@@ -12,7 +12,7 @@
            SELECT USERS
                ASSIGN TO DISK
                ORGANIZATION IS INDEXED
-               ACCESS MODE IS SEQUENTIAL
+               ACCESS MODE IS DYNAMIC
                RECORD KEY IS USER-NAME.
            SELECT CHANNELS
                ASSIGN TO DISK
diff --git a/WOPO.COB b/WOPO.COB
index d24fc27..724506e 100644
--- a/WOPO.COB
+++ b/WOPO.COB
@@ -17,7 +17,7 @@
            SELECT USERS
                ASSIGN TO DISK
                ORGANIZATION IS INDEXED
-               ACCESS MODE IS RANDOM
+               ACCESS MODE IS DYNAMIC
                RECORD KEY IS USER-NAME.
            SELECT CHANNELS
                ASSIGN TO DISK
@@ -618,20 +618,18 @@
 
        HANDLE-LIST-USERS.
            CLOSE USERS.
-           OPEN INPUT USERS.
-           MOVE 0 TO STATE.
            STRING USERS-HEADER, "$NUL$" INTO R(1).
            MOVE 1 TO SRC.
            PERFORM BEGIN-STANDARD-REPLY.
            PERFORM DO-OUTPUT.
-           PERFORM LIST-USER-RECORD UNTIL DONE.
-           CLOSE USERS.
            OPEN I-O USERS.
+           MOVE 0 TO STATE.
+           PERFORM LIST-USER-RECORD UNTIL DONE.
 
        LIST-USER-RECORD.
            READ USERS NEXT RECORD, AT END MOVE 99 TO STATE.
            IF NOT DONE THEN
-               STRING USER-RECORD, "$NUL$" INTO R(1)               .
+               STRING USER-RECORD, "$NUL$" INTO R(1)
                PERFORM BEGIN-STANDARD-REPLY
                PERFORM DO-OUTPUT.