EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
EXECUTE 'SSELECT CIVILAIDANT AVEC 41 = ""'
W_FIN=0
LOOP
     READNEXT CLE ELSE W_FIN=1
     UNTIL W_FIN=1 DO

     READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,CLE ELSE ENR_CIVILAIDANT=""
     ENR_CIVILAIDANT<41>="000"
     WRITE ENR_CIVILAIDANT ON F.CIVILAIDANT,CLE

REPEAT

STOP
