Select 0 Use Table1 Copy struc extended to T1 Use T1 Scatter fields ; Table_Rule, Table_err, Table_name, ; Ins_Trig, Upd_Trig, del_trig, Table_cmt ; name lo1 memo Select 0 Use Table2 Copy struc extended to T2 Use T2 Scatter fields ; Table_Rule, Table_err, Table_name, ; Ins_Trig, Upd_Trig, del_trig, Table_cmt ; name lo2 memo llTablePropsDifferent = !compobj(lo1,lo2) Select T1 Scan Scatter fields ; FIELD_NAME, FIELD_TYPE, FIELD_LEN, FIELD_DEC,; FIELD_NULL, FIELD_NOCP, FIELD_DEFA, FIELD_RULE, FIELD_ERR ; name loT1 memo Select T2 Locate for FIELD_NAME == loT1.FIELD_NAME Scatter fields ; FIELD_NAME, FIELD_TYPE, FIELD_LEN, FIELD_DEC,; FIELD_NULL, FIELD_NOCP, FIELD_DEFA, FIELD_RULE, FIELD_ERR ; name loT2 memo llDifferent = !compobj(loT1,loT2) If llDifferent Exit Endif Select T1 EndscanCetin