EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
10 READNEXT CLE ELSE STOP
READ ENR FROM F.CIVILAIDANT,CLE ELSE GOTO 10
SECTEUR=EXTRACT(ENR,31)
SOUSSECT=EXTRACT(ENR,32)
IF SOUSSECT MATCH "2N" THEN
 SOUSSECT=SECTEUR:SOUSSECT
 ENR=REPLACE(ENR,32;SOUSSECT)
END
QUARTIER=EXTRACT(ENR,33)
IF QUARTIER MATCH "2N" THEN
 QUARTIER=SOUSSECT:QUARTIER
 ENR=REPLACE(ENR,33;QUARTIER)
END
 WRITE ENR ON F.CIVILAIDANT,CLE
GOTO 10
