Require Run time creation of unique Radio buttons

Hi,

I am trying to develop a GUI where the number of radio buttons will be decided once the script is run. I need to have these run time formed radio button symbols matched to a list of pin names(string type, maybe here I can use a table), so that I can do some operation when a particular radio button is selected.

I am writing down the code snippet :

myPinTable=makeTable("PINTABLEKEY" "PINTABLEVALUE")
terminalsList =car(geGetSelectedSet())~>master~>terminals~>name
numTerminals=length(terminalsList)

; radiosymbolfield creation
for(i 1 numTerminals

radiosymbol=gensym(strcat("radio" pcExprToString(i)))
myPinTable[nthelem(i terminalsList)]=radiosymbol           ; Mapping terminals names to corresponding radio symbols
radioList=list(hiCreateRadioField(

?name radiosymbol
?prompt nthelem(i terminalsList)
?choices list("Yes" "No")?
?defValue "No"

)    20:(70+(20*i)   200:(70+(20*i))    200)

)

There is also another boolean field(Select_All) when enabled will change the state of all radio buttons to "Yes". Below procedure is mentioned as the callback function of the boolean field. PINLISTFORM is the symbol for the AppForm.

procedure(selectionAll(terminalsList myPinTable)

PINLISTFORM~>Select_All~>value=t  
PINLISTFORM~>Select_None~>value=nil
foreach(elem terminalsList 

PINLISTFORM~>myPinTable[elem]~>value="Yes"

)

);proc

When I run the script, I get the following error and the AppForm does not pop up.
*Error* arrayref: can't handle nil["ithermn20_b"]

If I comment out the selectionAll procedure and remove the callback in the boolean field. I can see the form getting defined and displayed. Can someone tell me where am I going wrong in the implementation?

Thanks,
Jay