>It works. Would you provide exact code that's not working.
nCnt = 1
DIMENSION aMapFields(RECCOUNT('CM_fields_rrvw'),4)
SELECT CM_fields_rrvw
SCAN
aMapFields(nCnt,1) = CM_fields_rrvw.field_name
aMapFields(nCnt,2) = CM_fields_rrvw.field_type
aMapFields(nCnt,3) = CM_fields_rrvw.field_width
aMapFields(nCnt,4) = CM_fields_rrvw.field_decimal
nCnt = nCnt + 1
ENDSCAN
...like I said works in 7 but not 8.
ICQ 10556 (ya), 254117