28 lines
446 B
Plaintext
Executable File
28 lines
446 B
Plaintext
Executable File
*
|
|
$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
|