OPEN "","CH.URSSAF" TO F.CHURSSAF ELSE STOP
EXECUTE 'SELECT CH.URSSAF AVEC PERIODE >= "0101" AND AVEC PERIODE <= "0101"'
TOTALEXO=0
10 READNEXT CLE ELSE
 PRINT TOTALEXO
 STOP
END
READ ENR FROM F.CHURSSAF,CLE ELSE GOTO 10
BASEEXO=EXTRACT(ENR,1,14)
TOTALEXO=TOTALEXO+BASEEXO
GOTO 10
