Fix $LIST-USER/USERS file bugs.
This commit is contained in:
parent
a76b69ea88
commit
ec11042340
|
@ -12,7 +12,7 @@
|
||||||
SELECT USERS
|
SELECT USERS
|
||||||
ASSIGN TO DISK
|
ASSIGN TO DISK
|
||||||
ORGANIZATION IS INDEXED
|
ORGANIZATION IS INDEXED
|
||||||
ACCESS MODE IS SEQUENTIAL
|
ACCESS MODE IS DYNAMIC
|
||||||
RECORD KEY IS USER-NAME.
|
RECORD KEY IS USER-NAME.
|
||||||
SELECT CHANNELS
|
SELECT CHANNELS
|
||||||
ASSIGN TO DISK
|
ASSIGN TO DISK
|
||||||
|
|
10
WOPO.COB
10
WOPO.COB
|
@ -17,7 +17,7 @@
|
||||||
SELECT USERS
|
SELECT USERS
|
||||||
ASSIGN TO DISK
|
ASSIGN TO DISK
|
||||||
ORGANIZATION IS INDEXED
|
ORGANIZATION IS INDEXED
|
||||||
ACCESS MODE IS RANDOM
|
ACCESS MODE IS DYNAMIC
|
||||||
RECORD KEY IS USER-NAME.
|
RECORD KEY IS USER-NAME.
|
||||||
SELECT CHANNELS
|
SELECT CHANNELS
|
||||||
ASSIGN TO DISK
|
ASSIGN TO DISK
|
||||||
|
@ -618,20 +618,18 @@
|
||||||
|
|
||||||
HANDLE-LIST-USERS.
|
HANDLE-LIST-USERS.
|
||||||
CLOSE USERS.
|
CLOSE USERS.
|
||||||
OPEN INPUT USERS.
|
|
||||||
MOVE 0 TO STATE.
|
|
||||||
STRING USERS-HEADER, "$NUL$" INTO R(1).
|
STRING USERS-HEADER, "$NUL$" INTO R(1).
|
||||||
MOVE 1 TO SRC.
|
MOVE 1 TO SRC.
|
||||||
PERFORM BEGIN-STANDARD-REPLY.
|
PERFORM BEGIN-STANDARD-REPLY.
|
||||||
PERFORM DO-OUTPUT.
|
PERFORM DO-OUTPUT.
|
||||||
PERFORM LIST-USER-RECORD UNTIL DONE.
|
|
||||||
CLOSE USERS.
|
|
||||||
OPEN I-O USERS.
|
OPEN I-O USERS.
|
||||||
|
MOVE 0 TO STATE.
|
||||||
|
PERFORM LIST-USER-RECORD UNTIL DONE.
|
||||||
|
|
||||||
LIST-USER-RECORD.
|
LIST-USER-RECORD.
|
||||||
READ USERS NEXT RECORD, AT END MOVE 99 TO STATE.
|
READ USERS NEXT RECORD, AT END MOVE 99 TO STATE.
|
||||||
IF NOT DONE THEN
|
IF NOT DONE THEN
|
||||||
STRING USER-RECORD, "$NUL$" INTO R(1) .
|
STRING USER-RECORD, "$NUL$" INTO R(1)
|
||||||
PERFORM BEGIN-STANDARD-REPLY
|
PERFORM BEGIN-STANDARD-REPLY
|
||||||
PERFORM DO-OUTPUT.
|
PERFORM DO-OUTPUT.
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue