EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DEMANDACC" TO F.DEMANDACC ELSE STOP
EXECUTE 'SELECT DEMANDACC SANS 5'
W_FIN=0
LOOP
  READNEXT CLE ELSE W_FIN=1
  UNTIL W_FIN=1
  DELETE F.DEMANDACC,CLE
REPEAT
