'MacroName:QuotedNote
'MacroDescription: adds 667 note
'written by John Lavalie, Dec. 13, 2007

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")

   CS.GetFixedField "Type", FF$
   if FF$ <> "z" then exit sub

   CS.AddField 1, "667  Give phrase as a quoted note."
   CS.SetFixedField "Series", "c"
   
   for x = 644 to 646
      tag$ = trim(cstr(x))
      foundField = CS.GetField (tag$, 1, temp$)
      if foundField then CS.DeleteField tag$, 1
   next x
   
   CS.Reformat
End Sub