OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
EXECUTE 'SELECT HISTORCUMUL AVEC PrestManda = "M" AND AVEC ProfilAide = "013" AND AVEC PeriodeHistCum = "2000"'
10 READNEXT CLE ELSE STOP
READ ENRHISTORCUMUL FROM F.HISTORCUMUL,CLE ELSE GOTO 10
D=1
LOOP
 RUBCHG=EXTRACT(ENRHISTORCUMUL,15,D)
 UNTIL RUBCHG="" DO
  IF RUBCHG="048" OR RUBCHG="050" THEN
   ENRHISTORCUMUL=REPLACE(ENRHISTORCUMUL,16,D;"0")
   ENRHISTORCUMUL=REPLACE(ENRHISTORCUMUL,17,D;"0")
  END
  D=D+1
REPEAT
WRITE ENRHISTORCUMUL ON F.HISTORCUMUL,CLE
GOTO 10