
SUBROUTINE LOCKFICHIER(RETURNVAL,W_Entree,W_Sortie)
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

W_Sortie=""
IF W_Entree = "1" THEN
  W_Sortie="VERROU"
END ELSE
  LOCK W_Entree ELSE
   W_Sortie="VERROU"
  END
END

RETURN
