Select Division.ckey, Min(Division.div_name) As div_name ; From Division ; Group by 1 ; Order By 1 ; Into Cursor temp1 Nofilter Select Company.ckey, Padr(Company.companynam, 30) As companynam , ; temp1.div_name ; From Company, temp1 ; Where Company.ckey = temp1.ckey ; Union All ; Select Company.ckey, Space(30), Division.div_name ; From Company, Division ; Where Company.ckey = Division.ckey ; And Not Exists ( ; Select * ; From temp1 ; Where temp1.ckey = Division.ckey ; And temp1.div_name = Division.div_name ) ; Order By 1 ; Into Cursor ResultCursor