* RATTACHE LA BONNE ANTENNE MEDICALE AU CIVILAIDANT

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

   EXECUTE 'SELECT CIVILAIDANT'

   W_End="FAUX"

   LOOP
      READNEXT W_Cle ELSE W_End = "VRAI"
   WHILE W_End = "FAUX" DO
      READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_Cle ELSE ENR_CIVILAIDANT=""

      IF ENR_CIVILAIDANT<31>="007" THEN
         ENR_CIVILAIDANT<32>="00701"
         ENR_CIVILAIDANT<33>="0070101"
      END

      READ ENR_QUARTIER FROM F.QUARTIER,ENR_CIVILAIDANT<33> ELSE ENR_QUARTIER=""

      ENR_CIVILAIDANT<35>=ENR_QUARTIER<2>

      WRITE ENR_CIVILAIDANT ON F.CIVILAIDANT,W_Cle
   REPEAT

STOP
