*
$INCLUDE GEN.COMMON
$INCLUDE USER
OPEN 'USER' TO USER ELSE ABORT
OPEN 'CLOCKFILE' TO CLOCKFILE ELSE ABORT
OPEN 'SCOTT.WORK' TO SCOTT.WORK ELSE ABORT
*
T=0
WT=0
EOF=0
*
*EXECUTE "GL SCOTT"
SELECT SCOTT.WORK
*
LOOP
  READNEXT ID ELSE EOF=1
UNTIL EOF DO
  T=T+1
  READ WK.REC FROM SCOTT.WORK,ID THEN
    IF WK.REC<1>='' ELSE
      CDATE=OCONV(ID,'G1|1')
      NEW.KEY='7943|':CDATE
      WRITE WK.REC ON SCOTT.WORK,NEW.KEY
      WT=WT+1
    END
  END
REPEAT
CRT 'T  ':T
CRT 'WT ':WT
STOP