67 lines
2.1 KiB
Plaintext
67 lines
2.1 KiB
Plaintext
|
******************************************************************************
|
||
|
|
*
|
||
|
|
* 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
|