OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
EXECUTE 'SELECT CIVILAIDE'
10 READNEXT CLE ELSE STOP
READ ENR FROM F.CIVILAIDE,CLE ELSE GOTO 10
ENR=REPLACE(ENR,39;"001")
WRITE ENR ON F.CIVILAIDE,CLE
GOTO 10
