uplime/WOPO
uplime
/
WOPO
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix $LIST-USER/USERS file bugs.

This commit is contained in:
Quinn Evans 2017-03-21 23:19:05 -06:00
parent a76b69ea88
commit ec11042340
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PRINTCNF.COB
View File

@ -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

10
WOPO.COB
View File

@ -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.