Creating a macro

On Connexion, under Tools, Macros, Manage

Opens a box allowing the creation of Local Macros. A macro must appear in a macro book. If you do not already have a Local macro book, create one. 

Click New Book button to create new macro book. Type name into text box–Local is good.

Highlight the Local macro book, and click on New Macro button. Opens Macro Description box. Enter brief description, hit okay. Click Edit button, opens Macro Editor and Debugger. Write macro here or copy and paste existing macro.

Hit Save icon on toolbar when macro text complete. 

To assign a shortcut key to the macro, under Tools, Keymaps.

Select Keymap File–Custom. Select Macro in Display Commands for Category. In Macro box on left, highlight the macro you wish to assign a key to. In Press New Shortcut Key box, type the shortcut key you want to assign to the macro. 

If the shortcut key you have chosen is already assigned, that information will appear below the Shortcut Key Assigned to text. You will need to try a new shortcut key. If is it not assigned, click on Assign button, the shortcut key will appear in the Current Shortcut Keys box. Click Okay button.

More information on writing, debugging, etc of OCLC Macros is contained in Connexion Client Help from within Connexion.

Text of Macros

1)  ACQ-EXPORT Macro text

'MacroName:ACQ-EXPORT

'MacroDescription:Macro for inserting 950 ACQ-EXPORTED, export record, and close the record without saving the edit

sub main

dim CS as Object

Set CS = CreateObject("Connex.Client")

CS.GetWindowTitle -1, sTitle

bool = CS.AddFieldLine (999, "950  ACQ-EXPORTED")

bool = CS.Print

bool = CS.Export

bool = CS.CloseRecord (FALSE)

end sub

2) XPT_N Macro text

‘MacroName:XPT N

‘MacroDescription: Inserts XPT field set to N for MUB, exports record and closes

Sub Main

Dim CS As Object

Set CS = CreateObject(“Connex.Client”)

CS.GetWindowTitle -1, sTitle

bool = CS.AddFieldLine (999, “XPT  ßa N ßb MUB”)

bool = CS.Export

bool = CS.CloseRecord (FALSE)

End Sub