
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE PRINT "OUVERTURE CONTRAT" ;* en lecture criture
OPEN "","CONTRATTEMPO" TO F.CONTRATTEMPO ELSE PRINT "OUVERTURE CONTRATTEMPO" ;* en lecture

   EXECUTE 'SELECT CONTRATTEMPO'

   W_End="FAUX"

DEBUG

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_CONTRATTEMPO FROM F.CONTRATTEMPO,W_Cle ELSE ENR_CONTRATTEMPO=""
      READ ENR_CONTRAT FROM F.CONTRAT,W_Cle ELSE ENR_CONTRAT=""

      ENR_CONTRAT<58>=ENR_CONTRATTEMPO<58>

      WRITE ENR_CONTRAT ON F.CONTRAT,W_Cle
   REPEAT

STOP
