' MacroName: Save-xpo-Save
' MacroDescription: Save record, Export record, then re-save
' Macro written by: Joel Hahn, Niles Public Library District

sub main
  dim CS as session
  set CS = CurrentSession

  CS.PutText "s",1,1
  RunMacro "PRSMUTIL!SendCommand"

  CS.GetTextInRegion SaveNum$,2,34,2,37
  CS.PutText "/"+CStr(SaveNum),1,1
  RunMacro "PRSMUTIL!SendCommand"

  CS.PutText "xpo", 1, 1
  RunMacro "PRSMUTIL!SendCommand"
  CS.Receive 20, "USMARC"

  CS.PutText "s", 1, 1
  RunMacro "PRSMUTIL!SendCommand"
end sub