>IF tnGroup <> pnGroup
> pnGroup = tnGroup
> ...
>
>>>CREATE CURSOR crsTest (pk i autoinc, grp i, bitfld i) >> >>FOR i=1 TO 5 >> FOR j= 1 TO 4 >> INSERT INTO crsTest (grp, bitfld) VALUES (i,j* 10^i) >> ENDFOR >>ENDFOR >> >>pnResult = 0 >>pnGroup = 0 >> >>SELECT grp, MAX(BitorSql(grp, bitfld)) AS BitField ; >> FROM crsTest ; >> GROUP BY grp >>RETURN >> >> >>FUNCTION BitorSql(tnGroup, tnVal) >>IF tnGroup <> pnGroup >> pnResult = 0 >>ENDIF >>pnResult = BITOR(pnResult, tnVal) >>RETURN pnResult >>