Music Cataloging Procedures Home

The following macro works with Connexion to add a 949 field to your bib record. This will create an item record on import. The macro takes the call number from the 090 tag and creates a 949 with the call number and default subfields, removing subfield "b" from the call number. Note that this macro will not work if the call number is in a field other than 090 (such as 050). Also, call numbers with only one cutter may not always have the correct spacing. After applying the macro, enter the barcode or OCLC number in $i, and if appropriate add additional subfields, such as $v - note that $v must be entered between $a and $w. Note that this macro is designed to work for when there is not already an item record in Symphony.

Below are the steps to download the 949 score call number macro to your computer, assign it to a Connexion user tool, and place a shortcut to the user tool on your Connexion toolbar. These instructions have been tested with Connexion 2.10.

1. Download the 949ScoreMacro.mbk file and save it with other Connexion macros at C:\Program Files\OCLC\Connexion\Program\Macros.

2. In Connexion, edit the macro to include your own initials in $o:

Tools-Macros-Manage.
949scoremacro [click expand.]
Select 949ScoreCall.
"Edit"
Scroll down to the bottom, to the line: CS.AddField 99, "949 " + CallNumber + " ßh JMUSIC55 ßi ßo jnln " Change "jnln" to your initials. Do NOT EDIT ANYTHING ELSE IN THE MACRO.
Click save and close

2. In Connexion, assign the macro to a user tool: Tools -- User Tools -- Assign.

3. In Connexion, put the tool on the toolbar: Tools -- Toolbar Editor. Drag and drop the user tool to which you assigned the macro in step 2 above onto the toolbar. If you like, you can also drag and drop separators onto the toolbar.

4. Here is the text of the macro in case you ever need to recreate it:

'MacroName:949ScoreCall
'MacroDescription:Takes call number from the 090 tag and creates a 949 with the call number and default subfield
'removing subfield "b" from the call number

'Created by: Nara Newccomer

'Date: 2005 June 10, 2009 Nov 2009

'Revised Nov 2009 to work with Symphony

'Based on the macro 949_LCVersion created by Stanley Elwsick, Date: 2004 May 27

'That macro modified by Joel Hahn, Niles Public LIbrary District; 20 Dec 2004

'That macro minor changes: Stanley Elswick, NOAA Central Library; 21 Dec 2004

Sub Main

Dim CS As Object
Set CS = CreateObject("Connex.Client")

CS.GetField "090", 1, CallNumber

CallNumber = Mid$(CallNumber, 6)

'Remove the subfield character & indicator for subfield b, if present

place = InStr(CallNumber, Chr(223) & "b")

If place > 0 Then

CallNumber = Trim(Left(CallNumber, place - 1))& " " & Trim(Mid(CallNumber, place + 2))

End if

'Create the 949 tag and input the scored call number

CS.AddField 99, "949 " + CallNumber + " ßh JMUSIC55 ßi ßo jnln "

CS.EndRecord

End Sub

This macro only works for scores. See the Constant Data page to see how to edit the 949 field for other types of items.

NLN 1/6/2006, rev. 10/3/06, rev. for Symphony 11/17/2009

rev. cdh 10/8/13

Top of page
Music Cataloging Procedures Home

		Music Library East Carolina University Greenville, NC 27858-4353 USA 252.328.6250 Contact the Music Library Page updated 10/8/13