SUBROUTINE LOCK_TEMPVENTILEDIT(RETURNVAL, ENTREE, SORTIE)
******************************************************************
* Ecriture d'une cl UTILISE dans le fichier TEMPVENTILEDIT afin *
* de verrouiller virtuellement le fichier.						 *
* Renvoi:														 *
*	Attribut 1 : l'option en cours								 *
*	Attribut 2 : l'utilisateur windows qui  lanc l'option      *
*	Attribut 3 : 0 si verrouill par un autre utilisateur,       *
*				 1 si on peux poursuivre le traitement.          *
*****************************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","TEMPVENTILEDIT" TO F.TEMPVENTILEDIT ELSE STOP

W_OPTION = ENTREE<1>
W_USER = ENTREE<2>
W_CLE = "UTILISE"
W_LIBRE=1

READ ENR_TEMPVENTILEDIT FROM F.TEMPVENTILEDIT,W_CLE THEN W_LIBRE=0 ELSE
	EXECUTE "VIDER-FICHIER TEMPVENTILEDIT"
	ENR_TEMPVENTILEDIT<1>=W_OPTION
	ENR_TEMPVENTILEDIT<2>=W_USER	
	WRITE ENR_TEMPVENTILEDIT ON F.TEMPVENTILEDIT,W_CLE
END

ENR_TEMPVENTILEDIT<3>=W_LIBRE
SORTIE=ENR_TEMPVENTILEDIT

RETURN