EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
10 READNEXT CLE ELSE STOP
READ ENR FROM F.CIVILAIDE,CLE ELSE GOTO 10
DDN=EXTRACT(ENR,20)
DDN=OCONV(DDN,"D4 ")
DDN=DDN[1,6]:"19":DDN[9,2]
DDN=ICONV(DDN,"D4 ")
ENR=REPLACE(ENR,20;DDN)
WRITE ENR ON F.CIVILAIDE,CLE
GOTO 10
