This is a macro you can use in Connexion to create a 949 control field.
Table of Contents
How to create a macro
Open Tools => Macros => Manage
From here you get this menu
Put the new macro in the OCLC group by clicking on the New Macro button
Name the new macro “Add949”
Name it “Add949” again
Edit the new macro
Select and delete all the default text
Copy this text and paste it into the blank macro
'MacroName:Add949 'MacroDescription:Add949 Sub Main Dim CS As Object Set CS = GetObject(,"Connex.Client") CS.AddField 1, "949 1" & Chr(223) & "i " & Chr(223) & "z " & Chr(223) & "a " CS.AddField 1, "949 *recs=b;dflt=[BibTemplate],[ItemTemplate];ins=[login];" End Sub
Save the new macro and close the editor
Assign the macro to a User Tool
Open User Tools
Click the Macro radio button
Select OCLC!Add949 macro
Select User Tool 1 (Or whichever you want to use)
Click the Assign Tool button
When OCLC!Add949 is selected the Current User Tool will display
Now you can assign the macro to a toolbar shortcut
Click Tools => Toolbar Editor
Scroll all the way down to the User Tools section and choose Tool1 (or whichever tool you assigned)
Click and drag the tool onto your toolbar. You can put it anywhere you want on your toolbar.
Assign a keyboard shortcut
You can also assign a keyboard shortcut with Tools => Keymaps
Select the Macro radio button
Select the Add949 macro
Put the cursor in the “Press New Shortcut Key” box
Press the key you want to use like Alt+1 (not Alt+F1 which already does something)
Click the “Assign” button
Now Add949 is assigned to the Alt+1 key combination
Now you can use either the keyboard shortcut or toolbar to insert these rows into an active record
