'MacroName:StartFromScratch
'MacroDescription:Delete everything from an existing record and replace it with workform data
'Macro written by: Joel Hahn, Niles Public Library District
'Last modified: 22 August 2007

Option Explicit

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")
   
   Dim sKeepTags, sELvl, sFieldData, sCurTag As String
   Dim bool, nCurRow As Integer

   sKeepTags = "001,003,005,008,019,040,049,938"
   
   bool = CS.GetFixedField("ELvl", sELvl)
   If sELvl = "3" Then
   
      CS.CursorRow = 999
      nCurRow = CS.CursorRow
   
      Do While nCurRow >= 1
         bool = CS.GetFieldLine(nCurRow, sFieldData)
         sCurTag = Left(sFieldData, 3)
         If InStr(1, sKeepTags, sCurTag) = 0 Then
            bool = CS.DeleteFieldLine(nCurRow)
         End If
      
         nCurRow = nCurRow - 1
      Loop
   
      bool = CS.SetFixedField("Desc", "ü")
      bool = CS.SetFixedField("DtSt", "ü")
      bool = CS.SetFixedField("Dates", "üüüü")
      bool = CS.SetFixedField(",", "    ")
      bool = CS.SetFixedField("ELvl", "ü")
      bool = CS.SetFixedField("Lang", "üüü")
      bool = CS.SetFixedField("Ctry", "üüü")
      bool = CS.AddField(1, "020  ")
      bool = CS.AddField(1, "041ü  ßh  ßb ")
      bool = CS.AddField(1, "050üü ßb ")
      bool = CS.AddField(1, "1üüü ")
      bool = CS.AddField(1, "245üü ßh  ßb  ßc ")
      bool = CS.AddField(1, "246üü")
      bool = CS.AddField(1, "250  ")
      bool = CS.AddField(1, "260   ßb  ßc ")
      bool = CS.AddField(1, "300   ßb  ßc ")
      bool = CS.AddField(1, "4üüüü ßv ")
      bool = CS.AddField(1, "5üü  ")
      bool = CS.AddField(1, "6üüüü")
      bool = CS.AddField(1, "6üüüü")
      bool = CS.AddField(1, "7üüü ")
      bool = CS.AddField(1, "7üüü ")
      bool = CS.AddField(1, "8üüüü")
      bool = CS.AddField(1, "8564ü")

      CS.SetCursorFixedField("Entered")
      CS.CursorRow = 1

   Else
      MsgBox "This is not an Encoding Level 3 record!!  Exiting...", 48
   End If

End Sub