' MacroName: Update
' MacroDescription: Automatically changes 049 to local symbol and 
'                   updates the record
' Macro written by: Joel Hahn, Niles Public Library District

sub main
  dim CS as session        'Set up "CS" as an alternative
  set CS = CurrentSession  'to "CurrentSession"

  'Put your library's four-letter agency code here
  Agency$="####" 

  CS.PutText "tag 049", 1, 1
  RunMacro "PRSMUTIL!SendCommand"

  CS.PutText Agency$, 6, 16
  CS.ToggleEdit

  RunMacro "PRSMUTIL!SendEdits"

  ' Automatically update record
  CS.MoveCursor 1, 1
  CS.PutText "u"
  RunMacro "PRSMUTIL!SendCommand"

end sub