#ifndef	h_RUNDATA
#define	h_RUNDATA
/******************************************************************************
*
*	Definition of Environment used by UPIX/BASIC
*
*	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 intented
*	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. 
*	01/23/95 15607 WLG Added new structure for keeping track of the 
*	                   DATUMs copied out of Shared memory during dynamic
*	                   array operations.
*	07/13/93 11417 CSM RUNDATA fields sparam and boundv are pointers
*	06/25/93 11417 CSM Added TBCitem type & boundv,sparam flds to RUNDATA
*	07/25/88   -    -  Maintenence log purged at 5.2.1, see release 5.1.10.
*
*****************************************************************************/

typedef struct	TBCitems
{
	char	*pHSTMT;
	DATUM	*item;
	struct TBCitems	*next;
	struct TBCitems	*prev;
} TBCitem;

/* New structure which will be allocated when we have a program     */
/* in shared memory which tries to perform dynamic array operations */
/* using constant strings which are in shared memory and must be    */
/* allocated locally.                                               */

struct  shmdata
{
	SHMDATA *next;  	/* Pointer to previous shmdata */
	DATUM	localdatum;	/* Local copy of a DATUM       */
	uchar	strloc;			/* Starting location of Tstring (if needed) */
};

struct	rundata
{
	DATUM	**vartab,
		*loctab;
	int	precise;
	ushort	*code,
		*ia;
	PROGRAM	*prog;
	DATUM	**varsave;
	ushort	*codesave;
	TBCitem	*boundv,
		*sparam;
	SHMDATA *datumlist;
};

#endif	/* end of RUNDATA.h */