
SUBROUTINE UNLOCKFICHIER(RETURNVAL,W_Entree,W_Sortie)
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
W_Sortie=""
UNLOCK W_Entree 
RETURN
