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

sub main
  dim CS as session
  set CS = CurrentSession
  CS.PutText "xpo", 1, 1
  RunMacro "PRSMUTIL!SendCommand"
  CS.Receive 20, "USMARC"
  CS.PutText "s", 1, 1
  RunMacro "PRSMUTIL!SendCommand"
end sub