cursor crgetsub is 
    select substr(t$sitm,10,15)
    from ttibom010300
    where t$mitm=v_mdl and t$pono=v_pos and t$seqn <> v_seq ;
begin
    open crgetsub;
    LOOP
       fetch crgetsub into v_item;
       if instr(v_subinfo,v_item)=0 then 
          v_subinfo := v_subinfo || ' SUB: ' || v_item ;
       end if;
       EXIT WHEN crgetsub%NOTFOUND or crgetsub%NOTFOUND is null;
    End Loop;
    close crgetsub;
    return v_subinfo;     
end;