Looks great!
Thanks a bunch!
>
I want to pass an Array BACK to a calling Procedure....
>
>Calling Procedure ->
>
>>DO FORM frmlookup TO laLookup
>
>
>where laLookup is an array....>
>We use the following parameter object class:
>
>
>**************************************************
>*-- Class: xparameters (e:\books\tipsbook\ch02\ch02.vcx)
>*-- ParentClass: line
>*-- BaseClass: line
>*-- Time Stamp: 08/14/99 01:41:13 PM
>*
>DEFINE CLASS xparameters AS LINE
>
>
> HEIGHT = 17
> WIDTH = 100
> NAME = "xparameters"
>
> *-- An array to hold the return values
> DIMENSION aparameters[1]
>
>
> PROCEDURE INIT
> LPARAMETERS taArray
> ACOPY(taArray, THIS.aparameters)
> ENDPROC
>
>
>ENDDEFINE
>*
>*-- EndDefine: xparameters
>**************************************************
>
>
>In order to return the array, all you need is a single like of code:
>
>
>RETURN CREATOBJECT( 'xParameters', @laArray )
>
Tommy Tillman A+ NetWork+ MCP
