SUBROUTINE TRIGMODIFSANTDEL (exec.stat,dict.flag,trig.name,rec.id.expr)
	exec.stat=1
	
*************************************
* SPECIF FR CHATEAUROUX				*
* VANES								*
*************************************

* ouverture des fichiers
OPEN "","MODIFSANT" TO F.MODIFSANT THEN
	OPEN "",trig.name TO F.FICHIER ELSE RETURN

	W_Cle=rec.id.expr
	W_Fichier=trig.name

	READ ENR_FICHIER FROM F.FICHIER,W_Cle THEN
		WRITE ENR_FICHIER ON F.MODIFSANT, "DEL":W_Fichier:"_":W_Cle
	END	
END

RETURN