OPEN "","PARAMASSO" TO F.PARAMASSO ELSE STOP
READ ENRPARAMASSO FROM F.PARAMASSO,"1" ELSE STOP
I=1
LOOP
 COMPTE=EXTRACT(ENRPARAMASSO,1,I)
 UNTIL COMPTE="" DO

  * COMPTE GESTEMPS  
  IF COMPTE="GESTEMPS" THEN
   CALL MOULINETTE(COMPTE,"SALARIES","SALARIES")     
   CALL MOULINETTE(COMPTE,"PARAMETR","PARAMETR")
   CALL MOULINETTE(COMPTE,"CLIENTS","CLIENTS")
   CALL MOULINETTE(COMPTE,"SECTEUR","SECTEURG")
   CALL MOULINETTE(COMPTE,"RESP","RESP")
  END

  * COMPTE FACTURE ...  
  IF COMPTE[1,1]="F" THEN
   CALL MOULINETTE(COMPTE,"HISTOR","HISTOR")
   CALL MOULINETTE(COMPTE,"BANQUE","BANQUE")
   CALL MOULINETTE(COMPTE,"ADRESSE","ADRESSE")
   CALL MOULINETTE(COMPTE,"RESSOURCES","RESSOURCES")
   CALL MOULINETTE(COMPTE,"SECTEUR","SECTEURF")
   CALL MOULINETTE(COMPTE,"CAISSE","CAISSE")
   CALL MOULINETTE(COMPTE,"P.AIDEES","P.AIDEES")
   CALL MOULINETTE(COMPTE,"ACCORD","ACCORDF")
   CALL MOULINETTE(COMPTE,"DEM-ACCORD","DEM-ACCORD")
  END
  
  * COMPTE GARDE ...
  IF COMPTE[1,5]="GARDE" THEN
   CALL MOULINETTE(COMPTE,"GAD","GAD")
   CALL MOULINETTE(COMPTE,"ABSENCE","ABSENCE")
   CALL MOULINETTE(COMPTE,"CUMULS","CUMULS")
   CALL MOULINETTE(COMPTE,"EMPLOYEURS","EMPLOYEURS")
   CALL MOULINETTE(COMPTE,"CONGES","CONGES")
   CALL MOULINETTE(COMPTE,"GRILLES","GRILLES")
   CALL MOULINETTE(COMPTE,"DECLARATION","DECLARATION")
   CALL MOULINETTE(COMPTE,"ACCORD","ACCORDG")
   CALL MOULINETTE(COMPTE,"SECTEUR","SECTEURG")
   CALL MOULINETTE(COMPTE,"CAISSE","CAISSE")
   CALL MOULINETTE(COMPTE,"STATUTS","STATUTS")
   CALL MOULINETTE(COMPTE,"BANQUE","BANQUE")
   CALL MOULINETTE(COMPTE,"ECRIGAD","ECRIGAD")
   CALL MOULINETTE(COMPTE,"GAD-EMPLOI","GAD-EMPLOI")
   CALL MOULINETTE(COMPTE,"EMPLOI-GAD","EMPLOI-GAD")
  END

  * COMPTE PAIE
  IF COMPTE[1,4]="PAIE" THEN
   CALL MOULINETTE(COMPTE,"FIPAY","FIPAY")
   CALL MOULINETTE(COMPTE,"ABSENCE","ABSENCE")
   CALL MOULINETTE(COMPTE,"CUMULS","CUMULS")
   CALL MOULINETTE(COMPTE,"EMPLOYEUR","EMPLOYEUR")
   CALL MOULINETTE(COMPTE,"CONGES","CONGES")
   CALL MOULINETTE(COMPTE,"GRILLES","GRILLES")
   CALL MOULINETTE(COMPTE,"MEDICAL","MEDICAL")
   CALL MOULINETTE(COMPTE,"ANALY","ANALY")
   CALL MOULINETTE(COMPTE,"STATUTS1","STATUTS1")
  END

  * COMPTE COMPTA
  IF COMPTE[1,6]="COMPTA" OR COMPTE[1,4]="CPTA" THEN
   CALL MOULINETTE(COMPTE,"COMPTE-GENE","COMPTE-GENE")
   CALL MOULINETTE(COMPTE,"JOURNAL","JOURNALC")
   CALL MOULINETTE(COMPTE,"DATES","DATES")
   CALL MOULINETTE(COMPTE,"ECRIGENE","ECRIGENE")
   CALL MOULINETTE(COMPTE,"ECRIAUX","ECRIAUX")
   CALL MOULINETTE(COMPTE,"ECRIGAD","ECRIGAD")
   CALL MOULINETTE(COMPTE,"ECRITF","ECRITF")
  END

  I=I+1

REPEAT
STOP