'MacroName:ReSaveFile
'MacroDescription:Resave all records in the online cataloging save file
'Macro written by: Joel Hahn, Niles Public Library District
'Last Modified: 23 January 2004

Option Explicit

Sub Main
  Dim CS as Object
   On Error Resume Next
   Set CS  = GetObject(,"Connex.Client")
   On Error GoTo 0
   If CS  Is Nothing Then
      Set CS  = CreateObject("Connex.Client")
   End If
  Dim LogonNeeded
  Dim OpenSaveFile
  Dim bool
  Dim NumRecs
  Dim IsNextRec
  Dim SaveFileNumber
  
  If CS.IsOnline = FALSE Then
    LogonNeeded = 1
    bool = CS.Logon("", "", "")
  End If
  
  If LogonNeeded = 0 Then
    If CS.ItemType <> 7 Then
      NumRecs = CS.Search("BS", "")
      If NumRecs = 0 Then
        MsgBox "There are no records in your online cataloging save file."
        Exit Sub
      Else
        OpenSaveFile = 1
      End If
    End If
  End If

  bool = CS.GetFirstItem
  IsNextRec = TRUE
  Do While IsNextRec <> FALSE
    SaveFileNumber = CS.SaveOnline
    IsNextRec = CS.GetNextItem
  Loop
  bool = CS.CloseRecord(TRUE)
  MsgBox "All records in your cataloging online save file have been resaved."

  If OpenSaveFile = 1 Then
    bool = CS.CloseList
  End If

  If LogonNeeded = 1 Then
    CS.Logoff
  End If

End Sub