Looks great!

Thanks a bunch!

>Tommy,
>
>I usually approach the problem in a different way. I pass an object based on empty to the form, save it as a form's property and add an array to this object.
>
>E.g.
>

>local loParamObject
>loParamObject = createobject('empty')
>

>form's Init
>

>lparameters toParamObject
>thisform.oParamObject = toParamObject && you can create oParamObject property in your base form class
>

>form's Unload
>

>addproperty(thisform.oParamObject,'aReturnArray[1]')
>populate the array

>
>Now you can access this array from that obect loParamObject.
>
>>Hi Gang!
>>
>>I want to pass an Array BACK to a calling Procedure....
>>
>>Calling Procedure ->
>>
>>

>>DO FORM frmlookup TO laLookup
>>

>>
>>where laLookup is an array....
>>
>>and the called form's UNLOAD event is...
>>
>>

>>LOCAL ARRAY laItemNo(2)
>>
>>*TMT 11/24/09 Modified the code to send the data back as 2 elements of an array
>>*laItem(1) is the Item No  and laItem(2) is the TranID of the Transaction
>>IF csr_regtrans.rx_no > 0	&& This is a Rx Item
>>	laItemNo(1) = ALLTRIM(STR(csr_regtrans.rx_no)) +   PADL(ALLTRIM(STR(csr_regtrans.refill_no)),2,"0")
>>ELSE
>>	laItemNo(1) = csr_regtrans.upc_code
>>ENDIF 
>>
>>*TMT 11/24/09 laItem(2) which is the Tranid
>>laItemNo(2) = Thisform.p_tranid
>>
>>POP KEY
>>USE IN csr_regtrans
>>SELECT refund
>>RETURN laItemNo
>>

>>
>>When I trace the code, the laLookUp has 2 elements, but they are the same thing!
>>
>>I know this has to do with pass by value versus pass by reference, but my attemps to fix it have failed.
>>
>>So what am I doing wrong today?
>>
>>Thanks!