DSFLDDesc = packed record
  szName: MIDASNAME;
  iFldType: Integer;
  iFldSubType: Integer;
  iUnits1: Integer;
  iUnits2: Integer;
  iFldLen: Integer;
  iFldOffsInRec: Integer;
  iNullOffsInRec: Integer;
  iFieldID: Word;
  iFieldIDParent: Word;
  bCalculated: LongBool;
  iFldAttr: Integer;
  iOptParameters: Integer;
end;

struct DSFLDDesc {
  MIDASNAME szName;
  int iFldType;
  int iFldSubType;
  int iUnits1;
  int iUnits2;
  int iFldLen;
  int iFldOffsInRec;
  int iNullOffsInRec;
  Word iFieldID;
  Word iFieldIDParent;
  LongBool bCalculated;
  int iFldAttr;
  int iOptParameters;
};