OPEN "","DADSTDS" TO F.DADSTDS ELSE STOP
EXECUTE 'CREER-FICHIER ECARTDADS 1,1'
OPEN "","ECARTDADS" TO F.ECARTDADS ELSE STOP
READ ENR FROM F.DADSTDS,"DADSU201100131012012.csv" ELSE STOP
I=3
LOOP
   CODEAIDANT=FIELD(ENR<I>,";",1)
UNTIL CODEAIDANT="" DO
   READ ENRECARTDADS FROM F.ECARTDADS,CODEAIDANT ELSE ENRECARTDADS=""
   URSSAFPLAF=FIELD(ENR<I>,";",15)
   URSSAFCASPART=FIELD(ENR<I>,";",16)
   URSSAF=URSSAFPLAF+URSSAFCASPART
   ENRECARTDADS<1>=ENRECARTDADS<1>+URSSAF
   CODEAIDANT=CODEAIDANT "R%5"
   WRITE ENRECARTDADS ON F.ECARTDADS,CODEAIDANT
   I=I+1
REPEAT
STOP
