SetFldState Function

 FUNCTION SetFldState(
	uField,
	nFieldState,
	uArea
) AS LOGIC CLIPPER

[ClipperCallingConventionAttribute(new string[] { ... })]
public static bool SetFldState(
	Usual uField = default,
	Usual nFieldState = default,
	Usual uArea = default
)

 1Close Databases
 2Set MultiLocks ON  // Must be on for table buffering
 3Set PATH TO (HOME(2) + 'Data\')     // Sets path to database
 4Open Database testdata  // Open testdata database
 5Use Customer     // Open customer table
 6= CursorSetProp('Buffering', 5, 'customer')  // Enable table buffering
 7Clear
 8? GetFldState('cust_id')  // Displays 1, not modified
 9Replace cust_id    WITH '***'  // Changes field contents
10? GetFldState('cust_id')  // Returns 2, field modified
11= SetFLDState('cust_id', 1)  // Change the field status
12? GetFldState('cust_id')  // Displays 1, not modified
13= TableRevert(.T.)  // Discard all table changes