EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","OPPOSITION" TO F.OPPO ELSE STOP
EXECUTE 'SELECT OPPOSITION AVEC 3 = "" AND AVEC 23 # "0"'
W_Fin = "F"
LOOP
READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
READ ENR FROM F.OPPO, W_Cle THEN
	PRINT W_Cle
	i = 0
	W_Cumul = 0
	LOOP
	i = i + 1
	WHILE ENR<19,i> # ""
		W_Cumul = W_Cumul + ENR<20,i>
	REPEAT
	IF ENR<23> # ENR<18> - W_Cumul THEN
		PRINT W_Cle:" ":ENR<23>:" # ":ENR<18>:" - ":W_Cumul
	END
END
REPEAT
STOP
