EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "","GAD" TO F.GAD ELSE STOP
10 READNEXT CLE ELSE STOP
READ EMPL FROM F.GAD,CLE ELSE GOTO 10
CLE1=EXTRACT(EMPL,60)
READ ENR FROM F.CIVILAIDANT,CLE1 ELSE GOTO 10
TEL=EXTRACT(EMPL,39)
TEL1=EXTRACT(ENR,12)
IF TEL1="" THEN
 IF LEN(TEL)=10 THEN
 TEL1=TEL[1,2]:" ":TEL[3,2]:" ":TEL[5,2]:" ":TEL[7,2]:" ":TEL[9,2]
 ENR=REPLACE(ENR,12;TEL1)
 WRITE ENR ON F.CIVILAIDANT,CLE1
 END
END
TEL=EXTRACT(EMPL,40)
TEL1=EXTRACT(ENR,14)
IF TEL1="" THEN
 IF LEN(TEL)=10 THEN
 TEL1=TEL[1,2]:" ":TEL[3,2]:" ":TEL[5,2]:" ":TEL[7,2]:" ":TEL[9,2]
 ENR=REPLACE(ENR,14;TEL1)
 WRITE ENR ON F.CIVILAIDANT,CLE1
 END
END
GOTO 10
