Long Variable Name as Array Element#

[Nancy Palmquist]

Scott Walker wrote:

> 
>>-----Original Message-----
>>From: Kenneth Brody [mailto:kenbrody at bestweb.net] 
>>Sent: Monday, August 16, 2004 10:11 PM
>>To: Scott Walker
>>Cc: Filepro List - No spam
>>Subject: Re: Long Variable Name as Array Element#
>>
>>
>>Scott Walker wrote:
>>
>>>Can you use a Long Variable name as an array element.
>>
>>Yes.
>>
>>
>>>I can't seem to on 5.0.13 rclerk.
>>
>>Define "can't seem to".
>>
>>
> 
> 
> Real simple:
> 	
> 	dim Redhat_Sell[6](12,,2):aa
> 
> 	declare Cust_Type(1,*)
> 
> 	Cust_Type=order_file(82)    'Will be a value of 1 - 6
> 
> 	Redhat_Sell[Cust_Type]=Redhat_Sell[Cust_Type]+8  'Add up Total
> Sales for Customer Type
> 
> 
> The fourth line gives me a syntax error when I run it.  Says:
> 
> 	"A filepro error has occurred"
> 
> 	"Array Index Out of Range:  dim redhat_sell(6) -- Index: 0"
> 
> 
> 
> 
> If I change it to this:
> 
> 	dim Redhat_Sell[6](12,,2):aa
> 
> 	ty(1,*)
> 
> 	ty=order_file(82)
> 
> 	Redhat_Sell[ty]=Redhat_Sell[ty]+8
> 
> 
> It works like a champ.
> 
Scott,

Make the Cust_Type a number instead of a literal

declare Cust_Type(1,.0)

Subscripts are numeric not literal.  It might behave correctly.
I might also add a check to see that Cust_Type ge "1" and Cust_Type le "6"

so you are sure that it will post correctly.
Nancy


-- 
Nancy Palmquist
Virtual Software Systems
PHONE: (412) 835-9417			Web site:  http://www.vss3.com