'MacroName:Monograph33xWithCodes
'MacroDescription:Adds 33x fields for monographs with $b codes (as well as $a terms and $2 source)
'Written by Jane Sandberg, Slavic Cataloging Graduate Assistant, University of Illinois at Urbana-Champaign
'Revised Nov. 6, 2012

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")
   
   CS.AddField 1, "336  text ßb txt ß2 rdacontent"
   CS.AddField 1, "337  unmediated ßb n ß2 rdamedia"
   CS.AddField 1, "338  volume ßb nc ß2 rdacarrier"

End Sub