EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
EXECUTE 'SELECT CIVILAIDANT AVEC 31 = "008" OR AVEC 31 = "009"'
10 READNEXT CLE ELSE GOTO 100
READ ENR FROM F.CIVILAIDANT,CLE ELSE GOTO 10
ENR=REPLACE(ENR,31;"007")
WRITE ENR ON F.CIVILAIDANT,CLE
GOTO 10
100 EXECUTE 'SELECT CIVILAIDE AVEC 40 = "008]" OR AVEC 40 = "009]"'
110 READNEXT CLE ELSE STOP
READ ENR FROM F.CIVILAIDE,CLE ELSE GOTO 110
SECTEUR=EXTRACT(ENR,40)
SECTEUR="007":SECTEUR[4,4]
ENR=REPLACE(ENR,40;SECTEUR)
WRITE ENR ON F.CIVILAIDE,CLE
GOTO 110
