******************************************************************************
*
*	OPEN.INIT.B - Initializes the OPEN.UNIQUE file for the open tools.
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description........................................
*	10/14/98 23801 SAP Change copyrights. 
*	05/30/96 18438 JC  Port to NT
*	10/12/92 10327 WLC Initial Release.
*******************************************************************************
$INCLUDE UNIVERSE.INCLUDE FILENAMES.H
$INCLUDE UNIVERSE.INCLUDE MACHINE.NAME
$INCLUDE UNIVERSE.INCLUDE OSDEF.H

*******************************************************************************
* DEFFUN for  UVREADMSG
*******************************************************************************
      DEFFUN UVREADMSG(num, args) CALLING '*UVREADMSG'

*******************************************************************************
* Check to see if you are a superuser
*******************************************************************************
      temp = 0
       CALL *ISUSER.B(0,temp)
       IF temp = 0 THEN
*  You must be super-user to run this program
	  crt UVREADMSG(71000,"")
          STOP
       END

open "OPEN.UNIQUE" to test.open then stop
cmd = "CREATE.FILE OPEN.UNIQUE 18 1 1"
execute cmd 

$IFDEF UV.UNIX

* This section is not required on NT

cmd = "SH -c '":CHMOD:" 666 ":UV.ROOT:"/OPEN.UNIQUE'"
execute cmd capturing output
if output # '' then
	crt "Error setting permissions to rw on ":UV.ROOT:"/OPEN.UNIQUE"
	crt "Message was ":output
	stop
end

$ENDIF

openpath UV.ROOT:"/OPEN.UNIQUE" to UNIQUE.FV else
	crt "Error opening OPEN.UNIQUE from ":UV.ROOT:" account."
	stop
end

write 1 on UNIQUE.FV,"NEXT.VALUE"

end