Power Builder - ayuda con procedimiento

hola foristas,

tengo un problema con un procedimiento. les cuento, tengo una tabla (SQL)region donde esta el codigoRegion y el nombreRegion, esta la muestro en un dropDownlistbox.
tengo otra tabla (SQL) comuna donde esta el codigoRegion, codigoComuna y NombreComuna

create proc buscaComuna (@codigoregion int) as
select codigoComuna, nombreComuna
from comunas where codigoregion=@codigoregion

lo que debo hacer es que al pincha un nombre en del dropDownlistbox me aparesca la comuna de esa region en otro dropdownlistbox

ejemplo
region (1, hola)
region (2, chao)

comuna (1,1,lapiz ) /////// 1=Codigo region, 1= Codigo comuna, Lapiz = nombre
comuna (1,2,mesa)

si en el dropdown1 pincho hola, en otro dropdown me debe salir, lapiz y mesa.

declaro el procedimiento en un click para dropdown1 para que me realice la busqueda pero no me funciona.

******************************************************
declaro
*****************

DECLARE grupos1 cursor FOR
select comunas.codregion,
comunas.codcomuna,
comunas.nombrecomuna

FROM comunas ;

integer a,n
integer CodCombo2[]
string NombreCombo2 []

*********************************************************
open
********************


OPEN Grupos1;

FETCH grupos1 INTO :Codigo1, :Codigo2, :Nombre1 ;

a = 1
DO while Codigo2 > 0

CodCombo2[A] = Codigo2
NombreCombo2 [A] = Nombre1
nombrecomuna.AddItem (Nombre1)
a = a+1
FETCH grupos1 INTO :Codigo1, :Codigo2, :Nombre1 ;
If SQLCA.sqlcode <> 0 then
codigo2 = 0
end if
LOOP
a = a - 1
close Grupos1;
************************************
en el dropdown de la comuna tengo

string Nombre1
integer j, Grpint,NumArt
boolean valida
nombre1 = dropdowncomuna.text
for j = 1 to i
if nombre1 = NombreCombo2 [j] then
codigocomuna.text = string(CodCombo2[j])
valida = true
exit
end if


next
*************************************
y en el dropdown en un evento click tengo el procedimiento

DECLARE comuna PROCEDURE FOR buscacomuna
;

NO SE SI LO ESTOY HACIENDO BIEN, NESESITO BUESTRA AYUDA GRACIAS