*** MODIF BASE DE COTISATION DANS HISTORCUMUL POUR RUBRIQUE
*** DE CHARGE URSSAF NON EXO (MISE A 0)
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
10 READNEXT CLE ELSE STOP
READ ENR FROM F.HISTORCUMUL,CLE ELSE GOTO 10
D=1
MODIF="NON"
LOOP
 RUBCHG=EXTRACT(ENR,15,D)
 UNTIL RUBCHG="" DO
  IF RUBCHG="038" OR RUBCHG="036" THEN
   ENR=REPLACE(ENR,16,D;0) 
   ENR=REPLACE(ENR,17,D;0)
   MODIF="OUI"
  END
  D=D+1
REPEAT
IF MODIF="OUI" THEN WRITE ENR ON F.HISTORCUMUL,CLE
GOTO 10     
