EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HISTORCUMUL" TO F.HISTORCUMUL ELSE STOP
EXECUTE 'COMO ON RECHURSSAF'
EXECUTE 'SELECT HISTORCUMUL = "[2001001"'
10 READNEXT CLE ELSE
 EXECUTE 'COMO OFF'
 STOP
END
READ ENR FROM F.HISTORCUMUL,CLE ELSE GOTO 10
PRINTER ON
BASERUB035=0
BASERUB037=0
ASSRUB035=0
ASSRUB037=0
BASERUB038=0
BASERUB036=0
ASSRUB038=0
ASSRUB036=0
BASERUB001=0
BASERUB002=0
ASSRUB001=0
ASSRUB002=0
COMPTRUB=0
I=1
LOOP
 CODERUBCHG=EXTRACT(ENR,15,I)
 UNTIL CODERUBCHG="" DO
  IF CODERUBCHG="035" THEN
   PRESRUB035="OUI"
   ASSRUB035=EXTRACT(ENR,16,I)
   BASERUB035=EXTRACT(ENR,17,I)
   COMPTRUB=COMPTRUB+1
  END
  IF CODERUBCHG="037" THEN
   PRESRUB037="OUI"
   ASSRUB037=EXTRACT(ENR,16,I)
   BASERUB037=EXTRACT(ENR,17,I)
   COMPTRUB=COMPTRUB+1
  END
  IF CODERUBCHG="038" THEN
   PRESRUB038="OUI"
   ASSRUB038=EXTRACT(ENR,16,I)
   BASERUB038=EXTRACT(ENR,17,I)
   COMPTRUB=COMPTRUB+1
  END
  IF CODERUBCHG="036" THEN
   PRESRUB036="OUI"
   ASSRUB036=EXTRACT(ENR,16,I)
   BASERUB036=EXTRACT(ENR,17,I)
   COMPTRUB=COMPTRUB+1
  END
  IF CODERUBCHG="002" THEN
   PRESRUB002="OUI"
   ASSRUB002=EXTRACT(ENR,16,I)
   BASERUB002=EXTRACT(ENR,17,I)
   COMPTRUB=COMPTRUB+1
  END
  IF CODERUBCHG="001" THEN
   PRESRUB001="OUI"
   ASSRUB001=EXTRACT(ENR,16,I)
   BASERUB001=EXTRACT(ENR,17,I)
   COMPTRUB=COMPTRUB+1
  END
  I=I+1
REPEAT
IF COMPTRUB#2 THEN
 WASSRUB035=ASSRUB035 "R26(#8)"
 WASSRUB037=ASSRUB037 "R26(#8)"
 WASSRUB038=ASSRUB038 "R26(#8)"
 WASSRUB036=ASSRUB036 "R26(#8)"
 WASSRUB001=ASSRUB001 "R26(#8)"
 WASSRUB002=ASSRUB002 "R26(#8)"
 WBASERUB035=BASERUB035 "R26(#8)"
 WBASERUB037=BASERUB037 "R26(#8)"
 WBASERUB038=BASERUB038 "R26(#8)"
 WBASERUB036=BASERUB036 "R26(#8)"
 WBASERUB001=BASERUB001 "R26(#8)"
 WBASERUB002=BASERUB002 "R26(#8)"
 PRINT CLE[1,5]:"ASS.: AAD T.EXO ":WASSRUB035:" / AAD P.EXO ":WASSRUB037:" / AAD T.NEXO ":WASSRUB038:" / AAD P.NEXO ":WASSRUB036:" / GEN T. ":WASSRUB001:" / GEN P. ":WASSRUB002
 PRINT "     BASE: AAD T.EXO ":WBASERUB035:" / AAD P.EXO ":WBASERUB037:" / AAD T.NEXO ":WBASERUB038:" / AAD P.NEXO ":WBASERUB036:" / GEN T. ":WBASERUB001:" / GEN P. ":WBASERUB002
 PRINT
END
GOTO 10 

