EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","COTISANAIDE" TO F.COTISANAIDE ELSE STOP
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE STOP
EXECUTE "SELECT ACTIVITESAIDE"
10 READNEXT CLE ELSE STOP
READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,CLE ELSE GOTO 10
DEBUT=EXTRACT(ENR_ACTIVITESAIDE,2)
DEBUT=OCONV(DEBUT,"D4/")
DEBUT=DEBUT[7,4]:DEBUT[4,2]
IF DEBUT="" THEN GOTO 10
IF DEBUT>199911 THEN GOTO 10
FIN=EXTRACT(ENR_ACTIVITESAIDE,3)
DEBUT="1999":DEBUT[5,2]
IF FIN#"" THEN
 FIN=OCONV(FIN,"D4/")
 FIN=FIN[7,4]:FIN[4,2]
 IF FIN>DEBUT THEN DEBUT="1998":DEBUT[5,2]
END
ENR_COTISANAIDE=""
ENR_COTISANAIDE=REPLACE(ENR_COTISANAIDE,1;DEBUT)
ENR_COTISANAIDE=REPLACE(ENR_COTISANAIDE,2;"27000")
WRITE ENR_COTISANAIDE ON F.COTISANAIDE,CLE:"001"
GOTO 10
