Aafzal

Like you found out, nothing wrong with it. You might find this update works quicker though (about 1 second for 19,000 rows on my clanky old pc)...

DIMENSION aLookup [7,2]
aLookup [1,1] = 'Unknown'
aLookup [1,2] = 'Unknown'
aLookup [2,1] = 'R'
aLookup [2,2] = 'Registry'
aLookup [3,1] = 'C'
aLookup [3,2] = 'Change'
aLookup [4,1] = 'A'
aLookup [4,2] = 'Assess'
aLookup [5,1] = 'D'
aLookup [5,2] = 'Denied'
aLookup [6,1] = 'S'
aLookup [6,2] = 'Service'
aLookup [7,1] = 'P'
aLookup [7,2] = 'Payment'

UPDATE recdqtr SET ;
company = inscomps.NAME, ;
CODE = inscomps.CODE, ;
TYPE = aLookup [ASCAN(aLookup, SUBSTR(recdqtr.FILE,7,1)) + 1] ;
WHERE LEFT(recdqtr.FILE,3) = yourMatchingValue