'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