28 lines
446 B
Plaintext
28 lines
446 B
Plaintext
|
*
|
||
|
|
$INCLUDE USER
|
||
|
|
$INCLUDE GEN.COMMON
|
||
|
|
*
|
||
|
|
*
|
||
|
|
OPEN 'USER' TO USER.FILE ELSE ABORT
|
||
|
|
OPEN 'INFO.HIST' TO INFO.HIST ELSE ABORT
|
||
|
|
*
|
||
|
|
EOF=0 ; T=0 ; WT=0 ; UTABLE=''
|
||
|
|
*
|
||
|
|
*SELECT USER.FILE
|
||
|
|
EXECUTE "GET-LIST SCOTT.JAN"
|
||
|
|
LOOP
|
||
|
|
READNEXT ID ELSE EOF=1
|
||
|
|
UNTIL EOF DO
|
||
|
|
T=T+1
|
||
|
|
READ XREC FROM INFO.HIST,ID THEN
|
||
|
|
UZR=OCONV(ID,'G0*1')
|
||
|
|
READ UREC FROM USER.FILE,UZR THEN
|
||
|
|
WRITE UREC ON INFO.HIST,ID
|
||
|
|
WT=WT+1
|
||
|
|
END
|
||
|
|
END
|
||
|
|
REPEAT
|
||
|
|
CRT 'T ':T
|
||
|
|
CRT 'WT ':WT
|
||
|
|
STOP
|