void TestOne()
{
	vector<char> vcbObj; // Compiles and executes with all casts except vector<string>
	//vector<string> vcbObj; // OC Compiler does not like this ...
	if(vctProcedure(vcbObj)==true)
	{
		out_str("Success");
		return;
	}
	out_str("Failure");
}

bool vctProcedure(vectorbase &vcbObj)
{
	int vcbType=vcbObj.GetInternalDataType();
	switch (vcbType)
	{
		default:
			return (false);
		break;
		case FSI_DOUBLE:
			// Do Something
		break;
		case FSI_REAL:
			// Do Something			
		break;
		case FSI_SHORT:
			// Do Something			
		break;
		case FSI_LONG:
			// Do Something			
		break;
		case FSI_CHAR:
			// Do Something			
		break;
		case FSI_TEXT:
			// Do Something			
		break;
		case FSI_MIXED:
			// Do Something			
		break;
		case FSI_BYTE:
			// Do Something			
		break;
		case FSI_USHORT:
			// Do Something			
		break;
		case FSI_ULONG:
			// Do Something			
		break;
		case FSI_COMPLEX:
			// Do Something			
		break;
	}
	return (true);
}