EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
EXECUTE 'SELECT HISTORCUMUL'
10 READNEXT CLE ELSE STOP
READ ENR FROM F.HISTORCUMUL,CLE ELSE GOTO 10
D=1
LOOP
 RUB=EXTRACT(ENR,15,D)
 UNTIL RUB="" DO
  MONT=EXTRACT(ENR,16,D)
  IF MONT="" THEN ENR=REPLACE(ENR,16,D;"0")
  MONT=EXTRACT(ENR,17,D)
  IF MONT="" THEN ENR=REPLACE(ENR,17,D;"0")
  D=D+1
REPEAT
WRITE ENR ON F.HISTORCUMUL,CLE
GOTO 10
