*Add_dist.prg
*Program to add distance to file rescommk

SET TALK OFF
SET CONFIRM ON
SET SAFETY OFF



MRACEDATE = CTOD('  /  /  ')
STORE 0 TO MRNUM, MHNUM
STORE 0 TO MWIN,MPLA,MWTTL,MPTTL
*
*  INDEX ON DTOC(RACEDATE)+STR(RNUM,3) TO TR_RD_RN
*
*
CLEAR
SELECT 1
*USE TRACEDAT
use aracedat
SELECT 2

*USE 2ressand
*use wp_ratio
*use resulta
*use resodds
*use resoddsk
use resc2122
*use rescommk
INDEX ON DTOC(RACEDATE)+STR(RNUM,3) TO TR_RD_RN
*use WP_RATIO INDEX tr_rd_rn
use rescommk index tr_rd_rn
*use resodds index tr_rd_rn

MOK = ' '

SELECT 1
go 18886
DO WHILE .NOT. EOF()
   MRACEDATE = RACEDATE
   MRNUM     = RNUM
*  MSTART    = START
   mdist     = distance
   mcl       = class
   ms        = cl_fig
   mtrk      = track
   mcse      = course
   mh_w      = h_w
   mh_q      = h_q
   mh_p      = h_p
   mh_d      = h_d
   mwt_w     = wt_w 
   mwt_q     = wt_q
   mwt_p     = wt_p
   mwt_d     = wt_d


*@ 5,0 SAY MRNUM
*   MWTTL = WTTL
   MKEY = DTOC(MRACEDATE)+STR(RNUM,3)
   SELE 2
   SEEK MKEY
   MTTL_W = 0
   MCHK_W = 0
   DO WHILE DTOC(RACEDATE)+STR(RNUM,3) = MKEY .AND. .NOT. EOF()
      repl cl   with mcl
*     repl s    with ms
*      repl dist with mdist
*      repl trk with mtrk
*      repl cse with mcse
*      repl h_w with mh_w
*      repl h_q with mh_q
*      repl h_p with mh_p
*      repl h_d with mh_d
      repl wt_w with mwt_w
      repl wt_q with mwt_q
      repl wt_p with mwt_p
      repl wt_d with mwt_d

      skip

   ENDDO
   SELE 1
   SKIP
ENDDO

CLOSE ALL DATABASES