ls_search = "checked = 1"
ls_class_list = ""
ll_count = dw_class.RowCount()
ll_row = dw_class.Find(ls_search,  1 , ll_count)
DO WHILE ll_row >  0 
  IF Len(ls_class_list) >  0  THEN ls_class_list += ","
  ls_class_list += string(dw_class.Object.class_id[ll_row])
  ll_row = dw_class.Find(ls_search, ll_row +  1 , ll_count +  1 )
LOOP
dw_items.Retrieve(ls_class_list)

select * from im_item i key join im_item_class ic, sp_am_getelement(as_class_list) e
where e.element = ic.class_id;

ALTER PROCEDURE "DBA"."sp_am_getelement"( in as_list long varchar, in as_delimiter char( 1 ) default ',')
RESULT( element varchar( 100 ))
BEGIN
    declare ll_DelLen integer;
    declare ll_Pos integer;
    declare ll_Start integer;
    declare ll_Length integer;
    declare ls_holder varchar( 100 );
    
    //Check for NULL
    IF isnull(trim(as_list), '') = '' or isnull(as_delimiter, '') = '' Then
    	return;
    End If;
    
    //Get the length of the delimeter
    set ll_DelLen = Length(as_delimiter);
    
    set ll_Pos = Locate(as_list, as_Delimiter);
    
    //Only one entry was found
    if ll_Pos =  0  then
    	select trim(as_list);
    	return;
    end if;
    
    //More than one entry was found - loop to get all of them
    set ll_Start =  1 ;
    create table #tmp ( element varchar( 50 ) );
    While ll_Pos >  0  loop
    	
    	//Set current entry
    	set ll_Length = ll_Pos - ll_Start;
        insert into #tmp values( trim(Substr(as_list, ll_start, ll_length)));
    
    	//Set the new starting position
    	set ll_Start = ll_Pos + ll_DelLen;
    
    	set ll_Pos =  Locate(as_list, as_delimiter, ll_Start);
    End Loop;
    
    //Set last entry
    set ls_holder = trim(Substr(as_list, ll_start));
    if Length (ls_holder) >  0  then
         insert into #tmp values( ls_holder );
    end if;
    
    select element from #tmp;
    Return;
END