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"
5 READNEXT CLE ELSE STOP
READ ENR_ACTIVITESAIDE FROM F.ACTIVITESAIDE,CLE ELSE GOTO 5
I=1
COTIS="NON"
LOOP
 CODEACTIVITE=EXTRACT(ENR_ACTIVITESAIDE,1,I)
 DEBUT=EXTRACT(ENR_ACTIVITESAIDE,2,I)
 UNTIL DEBUT="" DO
  IF CODEACTIVITE="001001" THEN
   DEBUT=OCONV(DEBUT,"D4/")
   DEBUT=DEBUT[7,4]:DEBUT[4,2]
   IF DEBUT="" THEN GOTO 10
   IF DEBUT>200109 THEN GOTO 10
   FIN=EXTRACT(ENR_ACTIVITESAIDE,3,I)
   IF DEBUT<200010 THEN
    IF DEBUT[5,2]>=10 THEN
     MOIS=DEBUT[5,2]
     DEBUT=2000:MOIS
    END ELSE
     MOIS=DEBUT[5,2]
     DEBUT=2001:MOIS
    END     
   END
   IF FIN#"" THEN
    FIN=OCONV(FIN,"D4/")
    FIN=FIN[7,4]:FIN[4,2]
    IF FIN<DEBUT THEN GOTO 10
   END
   ENTITE="001"
   READ ENR_COTISANAIDE FROM F.COTISANAIDE,CLE:ENTITE THEN
    ENR_COTISANAIDE=""
    ENR_COTISANAIDE=REPLACE(ENR_COTISANAIDE,1;DEBUT)
    ENR_COTISANAIDE=REPLACE(ENR_COTISANAIDE,2;"5000")
    WRITE ENR_COTISANAIDE ON F.COTISANAIDE,CLE:ENTITE
   END ELSE
    IF DEBUT[5,2]>="10" THEN
     ENR_COTISANAIDE=""
     ENR_COTISANAIDE=REPLACE(ENR_COTISANAIDE,1;DEBUT)
     ENR_COTISANAIDE=REPLACE(ENR_COTISANAIDE,2;"5000")
     WRITE ENR_COTISANAIDE ON F.COTISANAIDE,CLE:ENTITE
    END
   END
  END
10 I=I+1
REPEAT
GOTO 5
