EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","COMPTEUR" TO F.COMPTEUR THEN
   READ ENR_COMPTEUR FROM F.COMPTEUR, "999" THEN
	OPEN "","RUBSAISIE" TO F.RUBSAISIE THEN 
		W_CodeSuiv = ENR_COMPTEUR<3> + 1
		ENR_COMPTEUR<3> = ENR_COMPTEUR<3> + 3
		LOOP WHILE LEN(ENR_COMPTEUR<3>)< 3 
			ENR_COMPTEUR<3> = "0":ENR_COMPTEUR<3>
		REPEAT
		WRITE ENR_COMPTEUR ON F.COMPTEUR,"999"

		LOOP WHILE LEN(W_CodeSuiv)< 3 
			W_CodeSuiv = "0":W_CodeSuiv
		REPEAT

		ENR_834 = ""
		ENR_833 = ""

		ENR_RUB=""
		ENR_RUB<1> = "INDEMNITE DE CARRIERE"
		ENR_RUB<2> = "6"
		ENR_RUB<3> = ""
		ENR_RUB<4> = "0"
		ENR_RUB<5> = "+"
		ENR_RUB<6> = "0"
		ENR_RUB<7> = ""
		ENR_RUB<8> = "0"
		ENR_RUB<9> = ""
		ENR_RUB<10> = "2"
		ENR_RUB<11> = ""
		ENR_RUB<12> = "4711000000"
		ENR_RUB<13> = "4711000000"
		ENR_RUB<14> = "R"
		ENR_RUB<15> = ""
		ENR_RUB<16> = "0"
		WRITE ENR_RUB ON F.RUBSAISIE,W_CodeSuiv

		ENR_834<15,1> = W_CodeSuiv
		ENR_833<15,1> = W_CodeSuiv

		W_CodeSuiv = W_CodeSuiv + 1
		LOOP WHILE LEN(W_CodeSuiv)< 3 
			W_CodeSuiv = "0":W_CodeSuiv
		REPEAT

		ENR_RUB=""
		ENR_RUB<1> = "INDEMNITE DIFFERENTIELLE" 
		ENR_RUB<2> = "6"
		ENR_RUB<3> = ""
		ENR_RUB<4> = "0"
		ENR_RUB<5> = "+"
		ENR_RUB<6> = "4"
		ENR_RUB<7> = ""
		ENR_RUB<8> = "3"
		ENR_RUB<9> = ""
		ENR_RUB<10> = "0"
		ENR_RUB<11> = ""
		ENR_RUB<12> = "4711000000"
		ENR_RUB<13> = "4711000000"
		ENR_RUB<14> = "R"
		ENR_RUB<15> = ""
		ENR_RUB<16> = "0"
		WRITE ENR_RUB ON F.RUBSAISIE,W_CodeSuiv

		ENR_834<15,2> = W_CodeSuiv
		ENR_833<15,2> = W_CodeSuiv

		W_CodeSuiv = W_CodeSuiv + 1
		LOOP WHILE LEN(W_CodeSuiv)< 3 
			W_CodeSuiv = "0":W_CodeSuiv
		REPEAT

		ENR_RUB=""
		ENR_RUB<1> = "PRIME DECENTRALISEE"
		ENR_RUB<2> = "6"
		ENR_RUB<3> = ""
		ENR_RUB<4> = "1"
		ENR_RUB<5> = "+"
		ENR_RUB<6> = "3"
		ENR_RUB<7> = "10000"
		ENR_RUB<8> = "1"
		ENR_RUB<9> = "500"
		ENR_RUB<10> = "2"
		ENR_RUB<11> = ""
		ENR_RUB<12> = "4711000000"
		ENR_RUB<13> = "4711000000"
		ENR_RUB<14> = "R"
		ENR_RUB<15> = ""
		ENR_RUB<16> = "0"
		WRITE ENR_RUB ON F.RUBSAISIE,W_CodeSuiv

		ENR_834<15,3> = W_CodeSuiv
		ENR_833<15,3> = W_CodeSuiv

		ENR_RUB=ENR_833
		ENR_RUB<1> = "PRIME D'ANCIENNETE"
		ENR_RUB<2> = "6"
		ENR_RUB<3> = ""
		ENR_RUB<4> = "1"
		ENR_RUB<5> = "+"
		ENR_RUB<6> = "3"
		ENR_RUB<7> = "10000"
		ENR_RUB<8> = "0"
		ENR_RUB<9> = ""
		ENR_RUB<10> = "2"
		ENR_RUB<11> = ""
		ENR_RUB<12> = "4711000000"
		ENR_RUB<13> = "4711000000"
		ENR_RUB<14> = "R"
		*ENR_RUB<15> = 
		ENR_RUB<16> = "0"
		WRITE ENR_RUB ON F.RUBSAISIE,"833"

		ENR_RUB=ENR_834
		ENR_RUB<1> = "MAJORATION SPECIFIQUE"
		ENR_RUB<2> = "6"
		ENR_RUB<3> = ""
		ENR_RUB<4> = "1"
		ENR_RUB<5> = "+"
		ENR_RUB<6> = "3"
		ENR_RUB<7> = "10000"
		ENR_RUB<8> = "0"
		ENR_RUB<9> = ""
		ENR_RUB<10> = "2"
		ENR_RUB<11> = ""
		ENR_RUB<12> = "4711000000"
		ENR_RUB<13> = "4711000000"
		ENR_RUB<14> = "R"
		ENR_RUB<15,4> = "833"
		ENR_RUB<16> = "0"
		WRITE ENR_RUB ON F.RUBSAISIE,"834"
	
	END ELSE
		PRINT "ERREUR GRAVE : LES RUBRIQUES DE SAISIE RELATIVES N'ONT PAS PU ETRE CREEES"
	END
   END ELSE
	PRINT "ERREUR GRAVE : LES RUBRIQUES DE SAISIE RELATIVES N'ONT PAS PU ETRE CREEES"
   END
END ELSE
   PRINT "ERREUR GRAVE : LES RUBRIQUES DE SAISIE RELATIVES N'ONT PAS PU ETRE CREEES"
END
