SHAPE APPEND
  NEW adInteger AS [PID],
  NEW adLongVarWChar AS [Notes],
  NEW adLongVarWChar AS [BackupPrefix],
  NEW adBoolean AS [Backup],
  NEW adLongVarWChar AS [RenameOldPart],
  NEW adLongVarWChar AS [RenameAsPart],
  NEW adBoolean AS [Rename],
  NEW adLongVarWChar AS [SavedLog],
  (
    (SHAPE APPEND
       NEW adInteger AS [CHID],
       NEW adLongVarWChar AS [Notes],
       NEW adLongVarWChar AS [SearchFor],
       NEW adLongVarWChar AS [ReplaceBy],
       NEW adBoolean AS [MatchCase],
       NEW adSmallInt AS [Context])
  RELATE [PID] TO [CHID]) AS [Strings],
  (
    (SHAPE APPEND
       NEW adInteger AS [CHID],
       NEW adBoolean AS [Selected],
       NEW adLongVarWChar AS [File])
  RELATE [PID] TO [CHID]) AS [Files]
