'MacroName:082to092
'MacroDescription:Move call number from 082 to 092
'Macro created by: Joel Hahn, Niles Public Library District
'Last updated: 23 May 2003


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

   bool082 = CS.GetField("082", 1, field092$)
   bool092 = CS.GetField("092", 1, indata2$)
   If bool082 = FALSE Then
     MsgBox "There is not an 082 field in this record.  Exiting..."
     Goto Done
   End If

   Do While InStr(field092$, "/")
     place = InStr(field092$, "/")
     lt$ = Left(field092$, place-1)
     rt$ = Mid(field092$, place+1)
     field092$ = lt$ + rt$
   Loop
   Mid(field092$, 1, 3) = "092"
   Mid(field092$, 4, 2) = "  "

   If bool092 <> FALSE Then
     bool = CS.SetField(1, field092$)
   Else
     bool = CS.AddField(1, field092$)
   End If

Done:
End Sub