*******************************************************************************
*
*	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