** Summing.prg Function LaborSum(tnJobNumber) Local laSumLabor(1) laSumLabor[1]=0 ** note: assumed addlabor was column in invoices table.... Select Sum(addlabor) from invoices ; where jobnumber=tnJobNumber ; into array laSumLabor Return laSumLabor[1] EndFunc Function MaterialSum(tnJobNumber) Local laSumMat(1) laSumMat[1]=0 Select Sum(material.amount) from material ; where jobnumber=tnJobNumber ; into array laSumMat Return laSumMat[1] EndFunc ** using it set proc to summing additive ** note: no need for group by select jobmast.JobNumber, ; LaborSum(jobnumber) as addlabor, ; MaterialSum(jobnumber) as material ; from JobMast ; order by jobnumber ; into cursor cuJobNumTotals