SELECT InsComps SET ORDER to Abbrev replace all recdqtr.Company with InsComps->Name,; recdqtr.Code with InsComps->Code,; recdqtr.Type with substr(recdqtr.File,7,1),; recdqtr.Type with iif(recdqtr.Type='R','Registry',; iif(recdqtr.Type='C','Change',; iif(recdqtr.Type='A','Assess',; iif(recdqtr.Type='D','Denied',; iif(recdqtr.Type='S','Service',; iif(recdqtr.Type='P','Payment','Unknown')))))) ; for seek(left(recdqtr.File,3),'InsComps')Txs