********************************************************************************
*
*	Port of PR1ME INFORMATION user visible keys include file
*
*	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. 
*	02/01/94 12297 JSW Add keys for SELCTINFO() function.
*	09/30/93 12299 LA  Initial implementation.
*
*******************************************************************************
* START-DESCRIPTION:
*
*  This module contains definitions for the PI and PI/open user visible
*  keys.
*
* END-DESCRIPTION
*

* Parameters

* Keys for !VOC.PATHNAME

EQUATE IK$DATA		TO 0	;* Open the data portion
EQUATE IK$DICT		TO 1	;* Open the dictionary portion

* Keys for !GET.OSNAME

EQUATE IK$PRIMOS     TO "PRIMOS"
EQUATE IK$SYSV       TO "SYSTEM V"

* Keys for !MESSAGE

EQUATE IK$MSGACCEPT  TO 1
EQUATE IK$MSGDEFER   TO 2
EQUATE IK$MSGREJECT  TO 3
EQUATE IK$MSGSEND    TO 4
EQUATE IK$MSGSENDNOW TO 5
EQUATE IK$MSGSTATUS  TO 6

* Keys for SELECTINFO function

EQUATE IK$SLACTIVE   TO 1
EQUATE IK$SLCOUNT    TO 3

*  END-CODE