/* Copyright (C) 1996 by Thomas Glen Smith.  All Rights Reserved. */
/* setix APL2 V1.0.0 ***************************************************
* Called to set an index level in the APL variable to be later passed  *
* to indexm as argument indices.                                       *
***********************************************************************/
#define INCLUDES APLCB
#include "includes.h"
int setix(left,level,index)
Aplcb left,index;
int level;
{
	extern int aplerr;
	extern int indxorg;

	level -= indxorg;
	if (level < 0 || level >= left->aplcount) {
		aplerr = 54;
		return(NOTOK);
	}
	*(left->aplptr.aplapl + level) = index;
	return(OK);
}