*
$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