* RAJOUTE LA DATE DE FIN DANS LE FICHIER ABSENCESAIDANT POUR LES
* VISITES MEDICALES

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


   EXECUTE 'SELECT ABSENCESAIDANT AVEC NumMotifAidant >= "18"'

   W_End="FAUX"

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_ABSENCESAIDANT FROM F.ABSENCESAIDANT,W_Cle ELSE ENR_ABSENCESAIDANT=""
      IF ENR_ABSENCESAIDANT<2>="" THEN
         ENR_ABSENCESAIDANT<2>=W_Cle[8,LEN(W_Cle)-7]
      END
      WRITE ENR_ABSENCESAIDANT ON F.ABSENCESAIDANT,W_Cle
   REPEAT

STOP
