Create Cursor myCur ; (empno i, effectdate d, vl c(10), sl c(10)) For ix = 1 To 10 For jx=1 To 6 If Int(Rand()*1000)%3 = 0 Insert Into myCur ; values (ix,Date(2003,jx,1),; 'v_'+Padl(ix,2,'0')+'_'+Padl(jx,2,'0'),; 's_'+Padl(ix,2,'0')+'_'+Padl(jx,2,'0')) Endif Endfor Endfor Select myCur Index On empno Tag empno lnMonths = 6 Dimension arrStruc[lnMonths*2+1,4] arrStruc = 0 arrStruc[1,1] = 'empno' arrStruc[1,2] = 'I' arrStruc[1,3] = 4 For ix = 1 To lnMonths arrStruc[(ix-1)*2+2,1] = 'vl'+Padl(ix,2,'0') arrStruc[(ix-1)*2+2,2] = 'C' arrStruc[(ix-1)*2+2,3] = 10 arrStruc[(ix-1)*2+3,1] = 'sl'+Padl(ix,2,'0') arrStruc[(ix-1)*2+3,2] = 'C' arrStruc[(ix-1)*2+3,3] = 10 Endfor Create Cursor crsRep From Array arrStruc Scatter To arrRec Blank Select myCur Scan arrRec[1] = empno Scan While empno = arrRec[1,1] lnMonth = Month(effectdate) arrRec[(lnMonth-1)*2+2] = vl arrRec[(lnMonth-1)*2+3] = sl Endscan Insert Into crsRep From Array arrRec arrRec = '' Skip -1 Endscan Select crsRep BrowseCetin