OPEN "","RIBAIDANT" TO F.RIBAIDANT ELSE STOP
OPEN "","ELTSFACTAIDE" TO F.ELTSFACTAIDE ELSE STOP
OPEN "","BIC" TO F.BIC ELSE STOP

READ ENRBIC FROM F.BIC,"20041" THEN
   ENRBIC<1>="PSSTFRPPLIM"
   WRITE ENRBIC ON F.BIC,"20041"
END

EXECUTE 'SELECT RIBAIDANT AVEC 3 = "20041"'

10
	READNEXT CLE ELSE GOTO 20
	READ ENR FROM F.RIBAIDANT,CLE ELSE GOTO 10
	ENR<2>="PSSTFRPPLIM"
	WRITE ENR ON F.RIBAIDANT,CLE

	GOTO 10

20
	EXECUTE 'SELECT ELTSFACTAIDE AVEC 18 = "20041"'

30
	READNEXT CLE ELSE STOP
	READ ENR FROM F.ELTSFACTAIDE,CLE ELSE GOTO 30
	ENR<17>="PSSTFRPPLIM"
	WRITE ENR ON F.ELTSFACTAIDE,CLE
	
	GOTO 30