* Existing report cursor - CrsReport * Name C(20), Number N(10,2) * New report cursor CREATE CURSOR CrsReportNew ( ; Name1 C(20), Number1 N(10,2), ; Name2 C(20), Number2 N(10,2), ; Name3 C(20), Number3 N(10,2)) Select CrsReport SCAN lnPos = ( (Recno()-1) % 3 ) + 1 lcPos = Transform(lnPos) Select CrsReportNew IF lnPos = 1 APPEND BLANK ENDIF REPLACE ("Name" + lcPos) WITH CrsReport.Name, ; ("Number" + lcPos) WITH CrsReport.Number ENDSCAN