EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","COTISANAIDE" TO F.COTISANAIDE ELSE STOP

EXECUTE 'SELECT ACTIVITESAIDE AVEC 1 = "001002"'

W_REQVIDE=0
LOOP
     READNEXT CLE ELSE W_REQVIDE=1
     UNTIL W_REQVIDE=1 DO

     ENR_COTISANAIDE=""
     ENR_COTISANAIDE<1>="200006"
     ENR_COTISANAIDE<2>="7000"
     WRITE ENR_COTISANAIDE ON F.COTISANAIDE,CLE:"001"

REPEAT
