43 lines
1.8 KiB
Plaintext
Executable File
43 lines
1.8 KiB
Plaintext
Executable File
*******************************************************************************
|
|
*
|
|
* uniVerse include file AUTHORIZE.H
|
|
*
|
|
* 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.
|
|
*
|
|
*******************************************************************************
|
|
*
|
|
* Maintenance log - insert most recent change descriptions at top
|
|
*
|
|
* Date.... GTAR# WHO Description.........................................
|
|
* 10/14/98 23801 SAP Change copyrights.
|
|
* 07/13/94 12297 ALC Module added from PI/open for compatibility.
|
|
*
|
|
*******************************************************************************
|
|
|
|
* Keys for the code parameter of the AUTHORIZE function ..
|
|
|
|
EQUATE AUTH$INIT.USER TO 0 ;* Register user for package
|
|
EQUATE AUTH$EXIT.USER TO 1 ;* De-register user for package
|
|
EQUATE AUTH$GET.SERIAL.NUM TO 2 ;* Get serial number
|
|
EQUATE AUTH$GET.NUM.USERS TO 3 ;* Get the authorised number of users
|
|
EQUATE AUTH$GET.EXPIRY TO 4 ;* Get the expiry date
|
|
EQUATE AUTH$GET.DEFAULT TO 5 ;* Get package default data
|
|
|
|
* Possible results of the AUTHROIZE function ..
|
|
|
|
EQUATE AUTH$ALREADY.INIT TO -6 ;* Already initialised
|
|
EQUATE AUTH$NO.LIMIT TO -5 ;* No user limit or expiry date
|
|
EQUATE AUTH$BAD.PACKAGE TO -4 ;* Bad package name
|
|
EQUATE AUTH$BAD.FUNCTION.CODE TO -3 ;* Bad function code
|
|
EQUATE AUTH$EXPIRED TO -2 ;* License has expired
|
|
EQUATE AUTH$NOT.LICENSED TO -1 ;* License is not authorised (or user not init)
|
|
EQUATE AUTH$NO.USERS TO 0 ;* Out of users
|
|
|
|
*
|
|
* END-CODE
|