This is from the datadict.pkg. the last line appears to be in error.
Code:{ MethodType=Property } procedure Set File_Field_default_Value integer iFile integer iField string sValue integer iDSO Get Data_set iFile to iDSO If iDSO ; Set Field_default_Value of iDSO iField to sValue // << incorect?? End_Procedure