ࡱ> S  !"#$%&'()+,-6/012345*789:;<=>?@ABCDEFGHIJKLMNOPQRTRoot Entryb`%Q 3@Export.DESSExport.SRCCJEXPORT.BIN.3SMusic & Media Export MacroISRM"   Connex.ClientgetfixedfieldATypeBIBLIOGRAPHIC OVERLAY4Enter number of BIBLIOGRAPHIC record to overlay: .b _Bib__)Bibliographic record number is not valid.Remember--do NOT include ".b"(Please press and reenter number.RECORD NUMBER ERROR0The bib. record number must be eight characters.!Press and reenter number.ERROR--INCORRECT LENGTHMISSING OVERLAYt$, RecVol$, RecOneVol%, RecCop$, RecOneCop%) Set CS=CreateObject("Connex.Client") Dim Counter% Dim PrefixCode$(17) PrefixCode$(0)="MUD" PrefixCode$(1)="MU" PrefixCode$(2)="MUC" PrefixCode$(3)="MUR" PrefixCode$(4)="MUP" PrefixCode$(5)="MZ" PrefixCode$(6)="ORW" PrefixCode$(7)="FVLV" PrefixCode$(8)="FVLDV" PrefixCode$(9)="FVLD" PrefixCode$(10)="FVLB" PrefixCode$(11)="FVLT" PrefixCode$(12)="FVLP" PrefixCode$(13)="FVLS" PrefixCode$(14)="FVLM" PrefixCode$(15)="FVLL" PrefixCode$(16)="FVLXL" PrefixCode$(17)="XXX" Dim PrefixChoice$ PrefixChoice$=PrefixCode$(0) Counter=1 Do While PrefixCode$(Counter) <> "XXX" PrefixChoice$=PrefixChoice$+Chr(9)+PrefixCode$(Counter) Counter=Counter+1 Loop Dim LocationCode$(4) LocationCode$(0)="cma" LocationCode$(1)="csm" LocationCode$(2)="fk" LocationCode$(3)="fs" LocationCode$(4)="XXX" Dim LocationChoice$ LocationChoice$=LocationCode$(0) Counter=1 Do While LocationCode$(Counter) <> "XXX" LocationChoice$=LocationChoice$+Chr(9)+LocationCode$(Counter) Counter=Counter+1 Loop Dim StatusCode$(3) StatusCode$(0)="i" StatusCode$(1)="-" StatusCode$(2)="o" StatusCode$(3)="XXX" Dim StatusChoice$ StatusChoice$=StatusCode$(0) Counter=1 Do While StatusCode$(Counter) <> "XXX" StatusChoice$=StatusChoice$+Chr(9)+StatusCode$(Counter) Counter=Counter+1 Loop Dim VolumeCode$(10) VolumeCode$(0)="[None]" VolumeCode$(1)="1" VolumeCode$(2)="2" VolumeCode$(3)="3" VolumeCode$(4)="4" VolumeCode$(5)="5" VolumeCode$(6)="6" VolumeCode$(7)="7" VolumeCode$(8)="8" VolumeCode$(9)="9" VolumeCode$(10)="XXX" Dim VolumeChoice$ VolumeChoice$=VolumeCode$(0) Counter=1 Do While VolumeCode$(Counter) <> "XXX" VolumeChoice$=VolumeChoice$+Chr(9)+VolumeCode$(Counter) Counter=Counter+1 Loop Dim CopyCode%, CopyChoice$ CopyCode=1 Counter=1 CopyChoice$=Str (CopyCode) Do While Counter < 9 CopyChoice$=Copychoice$+Chr(9)+Str(CopyCode+Counter) Counter=Counter+1 Loop Be'MacroName:Music & Media Export Macro 'MacroDescription:Music & Media Export Macro 'Coded by Jim Soe Nyun, Catalog Department, UCSD with valuable input, directly or indirectly, from Jim Ferguson and Harvey Hahn. 'Adapated by Jim Soe Nyun for the Connexion Client, April, 2004. Option Explicit Dim CS as Object 'Function to get format of bib record sub GetFormat(FormatVar$) dim Format$ set CS=CreateObject("Connex.Client") CS.GetFixedField "Type", FormatVar$ end sub 'Function to get bibliographic number sub GetBibNumber(BibNo$) Dim Temp$, FmtError$, LengthError$ Begin Dialog AskForBib 240,80 Caption "BIBLIOGRAPHIC OVERLAY" Text 15,16,180,8, "Enter number of BIBLIOGRAPHIC record to overlay: .b" TextBox 184,14,34,12, .Bib$ OKButton 30,40,80,20 CancelButton 130,40,80,20 End Dialog Dim BibBox as AskForBib Do Dialog BibBox Temp$=BibBox.Bib$ If IsNumeric(Left$(Temp$,7))<>-1 and Temp$<>"" Then FmtError$="Bibliographic record number is not valid." FmtError$=FmtError$+Chr$(13)+"Remember--do NOT include "".b""" FmtError$=FmtError$+Chr$(13)+"Please press and reenter number." MsgBox FmtError$,0,"RECORD NUMBER ERROR" End If If Len(Temp$)<>8 and Temp$<>"" Then LengthError$="The bib. record number must be eight characters." LengthError$=LengthError$+Chr(13)+"Press and reenter number." MsgBox LengthError$,0,"ERROR--INCORRECT LENGTH" End If If Temp$="" Then MsgBox "You must supply a number to overlay.",0,"MISSING OVERLAY NUMBER" End If Loop While Temp$="" or (IsNumeric(Left$(Temp$,7))<>-1 and Temp$<>"") or (Len(Temp$)<>8 and Temp$<>"") BibNo$="ov-.b"+BibBox.Bib$+";" end sub 'Function to get order number sub GetOrdNumber(OrdNo$) Dim Temp$, FmtError$, LengthError$ Begin Dialog AskForOrd 240,80 Caption "ORDER RECORD OVERLAY" Text 15,16,148,8, "Enter number of ORDER record to overlay: .o" TextBox 156,14,30,12, .Bib$ OKButton 30,40,80,20 CancelButton 130,40,80,20 End Dialog Dim OrdBox as AskForOrd Do Dialog OrdBox Temp$=OrdBox.Bib$ If IsNumeric(Left$(Temp$,6))<>-1 and Temp$<>"" Then FmtError$="Order record number is not valid." FmtError$=FmtError$+Chr$(13)+"Remember--do NOT include "".o""" FmtError$=FmtError$+Chr$(13)+"Please press and reenter number." MsgBox FmtError$,0,"RECORD NUMBER ERROR" End If If Len(Temp$)<>7 and Temp$<>"" Then LengthError$="The order record number must be seven characters." LengthError$=LengthError$+Chr(13)+"Press and reenter number." MsgBox LengthError$,0,"ERROR--INCORRECT LENGTH" End If If Temp$="" Then MsgBox "You must supply a number to overlay.",0,"MISSING OVERLAY NUMBER" End If Loop While Temp$="" or (IsNumeric(Left$(Temp$,7))<>-1 and Temp$<>"") or (Len(Temp$)<>7 and Temp$<>"") OrdNo$="ov-.o"+OrdBox.Bib$+";" end sub 'Function to present user with options for what the macro needs to do for them sub GetBibInfo(Pick%, CatDat%) Begin Dialog EntryBox 200,225 Caption "BIBLIOGRAPHIC RECORD OPTIONS" Text 15,16,100,8, "OVERLAY EXISTING Record" Text 15,56,168,8, "OVERLAY EXISTING Record and CREATE ITEM(S)" OptionGroup .Selection OptionButton 25,30,114,8, "Use &BIBLIOGRAPHIC Number" OptionButton 25,40,80,8, "Use &ORDER Number" OptionButton 25,70,114,8, "Use B&IBLIOGRAPHIC Number" OptionButton 25,80,80,8, "Use O&RDER Number" OptionButton 15,96,114,8, "CREATE &NEW BIB and ITEM(s)" OptionButton 15,112,90,8, "CREATE N&EW BIB only" CheckBox 25,130,128,12, "&Check here for NO CATALOG DATE", .NoCat OKButton 25,155,150,25 CancelButton 25,185,150,25 End Dialog Dim BarcodeBox as EntryBox Dialog BarcodeBox Pick%=BarcodeBox.Selection% Catdat%=BarcodeBox.NoCat% end sub 'Function to get item information for sound recordings or visual materials Sub RecAV (RecCall1$, RecCall2$, RecCall3$, RecLoc$, RecStagin Dialog RecAVBox 425,150 Caption "Enter Item Information for SOUND RECORDING OR A/V" Text 84,10,80,8, "ENTER CALL NUMBER" Text 10,20,36,8, "Part 1:" StaticComboBox 10,30,60,84, PrefixChoice$, .Call1 Text 78,30,10,8, Chr(124)+"a" Text 90,20,36,8, "Part 2:" TextBox 90,30,60,12, .Call2 Text 158,30,10,8, Chr(124)+"a" Text 170,20,36,8, "Part 3:" TextBox 170,30,60,12, .Call3 Text 250,15,40,8, "Location:" StaticComboBox 250,25,40,56, LocationChoice$, .Loc Text 250,89,40,8, "Status:" StaticComboBox 250,97,40,40, StatusChoice$, .Stat Text 300,15,40,8, "Volume:" StaticComboBox 300,25,40,100, VolumeChoice$, .Vol CheckBox 350,121,56,8, "Single &vol.", .OneVol Text 350,15,40,8, "Copy:" StaticComboBox 350,25,40,84, CopyChoice$, .Cop CheckBox 350,113,56,8, "Single ©", .OneCop OkButton 90,91,60,22 Cancelbutton 170,91,60,22 End Dialog Dim InputScreen as RecAVBox Do While (Inputscreen.Call1$="" or Inputscreen.Call2$="") Dialog InputScreen If (Inputscreen.Call1$="" and Inputscreen.Call2$="") Then MsgBox "Please supply call number.",0,"CALL NUMBER ERROR" End if If (Inputscreen.Call1$="" and Inputscreen.Call2$<>"") Then MsgBox "Please make sure you supply first part of call number.",0,"CALL NUMBER ERROR" End if If (Inputscreen.Call1$<>"" and Inputscreen.Call2$="") Then MsgBox "Please make sure you supply second part of call number.",0,"CALL NUMBER ERROR" End if Loop RecCall1$=Trim$ (Inputscreen.Call1$) RecCall2$=Trim$ (Inputscreen.Call2$) RecCall3$=Trim$ (Inputscreen.Call3$) If InputScreen.Loc="" Then RecLoc$="cma" Else RecLoc$=Trim$ (Inputscreen.Loc$) If InputScreen.Stat$="" Then RecStat$="i" Else RecStat$=Trim$ (Inputscreen.Stat$) RecVol$=Trim$ (Inputscreen.Vol$) RecOneVol=Inputscreen.OneVol RecCop$=Trim$ (Inputscreen.Cop$) RecOneCop=Inputscreen.OneCop End Sub 'Function to get item information for books or scores Sub ScoMono (ScoCall1$, ScoCall2$, ScoLoc$, ScoStat$, ScoVol$, ScoOneVol%, ScoCop$, ScoOneCop%, ScoExist%) Set CS=CreateObject("Connex.Client") Dim Counter% Dim LocationCode$(3) LocationCode$(0)="cmk" LocationCode$(1)="cmo" LocationCode$(2)="cmr" LocationCode$(3)="XXX" Dim LocationChoice$ LocationChoice$=LocationCode$(0) Counter=1 Do While LocationCode$(Counter) <> "XXX" LocationChoice$=LocationChoice$+Chr(9)+LocationCode$(Counter) Counter=Counter+1 Loop Dim StatusCode$(3) StatusCode$(0)="i" StatusCode$(1)="-" StatusCode$(2)="o" StatusCode$(3)="XXX" Dim StatusChoice$ StatusChoice$=StatusCode$(0) Counter=1 Do While StatusCode$(Counter) <> "XXX" StatusChoice$=StatusChoice$+Chr(9)+StatusCode$(Counter) Counter=Counter+1 Loop Dim VolumeCode$(10) VolumeCode$(0)="[None]" VolumeCode$(1)="1" VolumeCode$(2)="2" VolumeCode$(3)="3" VolumeCode$(4)="4" VolumeCode$(5)="5" VolumeCode$(6)="6" VolumeCode$(7)="7" VolumeCode$(8)="8" VolumeCode$(9)="9" VolumeCode$(10)="XXX" Dim VolumeChoice$ VolumeChoice$=VolumeCode$(0) Counter=1 Do While VolumeCode$(Counter) <> "XXX" VolumeChoice$=VolumeChoice$+Chr(9)+VolumeCode$(Counter) Counter=Counter+1 Loop Dim CopyCode%, CopyChoice$ CopyCode=1 Counter=1 CopyChoice$=Str (CopyCode) Do While Counter < 9 CopyChoice$=Copychoice$+Chr(9)+Str(CopyCode+Counter) Counter=Counter+1 Loop Begin Dialog ScoMonoBox 425,150 Caption "Enter Item Information for SCORE or MONOGRAPH" Text 10,20,36,8, "Part 1:" TextBox 10,30,100,12, .Call1 Text 118,30,10,8, Chr(124)+"b" Text 130,20,36,8, "Part 2:" TextBox 130,30,100,12, .Call2 Text 250,15,40,8, "Location:" StaticComboBox 250,25,40,48, LocationChoice$, .Loc Text 250,81,40,8, "Status:" StaticComboBox 250,91,40,40, StatusChoice$, .Stat Text 300,15,40,8, "Volume:" StaticComboBox 300,25,40,100, VolumeChoice$, .Vol CheckBox 350,121,56,8, "Single &vol.", .OneVol Text 350,15,40,8, "Copy:" StaticComboBox 350,25,40,84, CopyChoice$, .Cop CheckBox 350,113,56,8, "Single ©", .OneCop Text 60,55,60,8, "OR USE EXISTING" Text 60,65,60,8, "CALL NUMBER in:" OptionGroup .Exist OptionButton 60,10,80,8,"ENTER CALL NUMBER" OptionButton 130,50,30,8,"0&50" OptionButton 130,60,30,8,"0&90" OptionButton 130,70,30,8,"&099" OkButton 20,91,80,22 Cancelbutton 140,91,80,22 End Dialog Dim InputScreen as ScoMonoBox Do While ((Inputscreen.Exist=0 and (Inputscreen.Call1$="" or Inputscreen.Call2$="")) or (Inputscreen.Exist<>0 and (Inputscreen.Call1$<>"" or Inputscreen.Call2$<>""))) Dialog InputScreen If (Inputscreen.Exist=0 and (Inputscreen.Call1$="" or Inputscreen.Call2$="")) Then MsgBox "Please review call number choice.",0,"CALL NUMBER ERROR" End if If (Inputscreen.Exist<>0 and (Inputscreen.Call1$<>"" or Inputscreen.Call2$<>"")) Then MsgBox "You can not key call number AND use existing call number."+Chr(9)+"Please review number choice.",0,"CALL NUMBER ERROR" End if Loop ScoCall1$=Trim$ (InputScreen.Call1$) ScoCall2$=Trim$ (InputScreen.Call2$) If InputScreen.Loc$="" Then ScoLoc$="cma" Else ScoLoc$=Trim$ (InputScreen.Loc$) If InputScreen.Stat$="" Then ScoStat$="i" ElseIf InputScreen.Stat="-" Then ScoStat$="" Else ScoStat$=Trim$ (InputScreen.Stat$) End If ScoVol$=Trim$ (InputScreen.Vol$) ScoOneVol=InputScreen.OneVol ScoCop$=Trim$ (InputScreen.Cop$) ScoOneCop=InputScreen.OneCop ScoExist=InputScreen.Exist End Sub sub main On Error Goto Handler Set CS=CreateObject("Connex.Client") Dim Pick%, CatDat%, ItemOneCop%, ItemOneVol%, VolNum%, CopyNum%, VolCounter%, CopyCounter%, _ HolderCounter%, Counter%, x%, y%, z%, a%, b%, ItemExist%, SearchRow%, SearchColumn%, _ NoDate$, BibNo$, OrdNo$, ItemVol$, ItemCopy$, ItemType$, CopyString$, VolString$, MARCTag$, _ LastCall$, ItemCallNumb$, ForString$, Target$, BibLoc$, ItemCall1$, ItemCall2$, ItemCall3$, _ ItemLoc$, ItemStat$, Received$, Received2$, Point$, PlusString$, Description$, Holder$(1 to 24), _ Retvalue%, FormatVar$, MatType$,RecCall1$, RecCall2$, RecCall3$, RecLoc$, RecStat$, RecVol$, _ RecOneVol%, RecCop$, RecOneCop%, ScoCall1$, ScoCall2$, ScoLoc$, ScoStat$, ScoVol$, ScoOneVol%, _ ScoCop$, ScoOneCop%, ScoExist%, ItemCop$, FinalCall$ Call GetFormat(FormatVar$) Call GetBibInfo(Pick%, CatDat%) If (Pick%=0 or Pick%=2) Then Call GetBibNumber(BibNo$) If (Pick%=1 or Pick%=3) Then Call GetOrdNumber(OrdNo$) If (FormatVar$="i" or FormatVar$="j") Then BibLoc$="mus" CS.GetField 300, 1, Description$ Retvalue=Description$ LIKE "*c 4 3/4 in.*" If Retvalue=-1 then MatType$="d" Else MatType$="r" ElseIf FormatVar$="a" or FormatVar$="t" Then MatType$="m" BibLoc$="mus" ElseIf FormatVar$="c" or FormatVar$="d" Then MatType$="u" BibLoc$="mus" ElseIf FormatVar$="g" Then MatType$="v" BibLoc$="fvl" Else MsgBox "This macro is not designed to work with the format of this OCLC record."+Chr(13)+"Macro will terminate." Exit Sub End If If CatDat%=1 Then NoDate$="ct - - ;" Else NoDate$="" CS.AddField 1,"949 1*recs-b;zz-1;b1-"+MatType$+";bn-"+BibLoc$+";"+NoDate$+BibNo$+OrdNo$ If (Pick%=0 or Pick%=1 or Pick%=5) Then Goto EndMacro '------------------------THE BELOW WILL EXECUTE IF ITEM RECORDS NEED TO BE CREATED----------------------- If (FormatVar$="g" or FormatVar$="i" or FormatVar$="j") Then Call RecAV (RecCall1$, RecCall2$, RecCall3$, RecLoc$, RecStat$, RecVol$, RecOneVol%, RecCop$, RecOneCop%) ItemVol$=RecVol$ ItemCopy$=RecCop$ ItemOneCop%=RecOneCop% ItemOneVol%=RecOneVol% ItemCall1$=RecCall1$ ItemCall2$=RecCall2$ ItemCall3$=RecCall3$ ItemLoc$=RecLoc$ ItemStat$=RecStat$ ItemExist=0 If (ItemLoc$="fk" or ItemLoc$="fs") Then ItemType$="24" ElseIf RecCall1$="ORW" Then ItemType$="36" Else ItemType$="18" End If End If If (FormatVar$="a" or FormatVar$="c" or FormatVar$="d" or FormatVar$="t") Then Call ScoMono (ScoCall1$, ScoCall2$, ScoLoc$, ScoStat$, ScoVol$, ScoOneVol%, ScoCop$, ScoOneCop%, ScoExist%) ItemVol$=ScoVol$ ItemCopy$=ScoCop$ ItemOneCop%=ScoOneCop% ItemOneVol%=ScoOneVol% ItemCall1$=ScoCall1$ ItemCall2$=ScoCall2$ ' ItemCall3$=ScoCall3$ ItemLoc$=ScoLoc$ ItemStat$=ScoStat$ ItemExist=ScoExist If FormatVar$="a" or FormatVar$="t" Then ItemType$="0" Else ItemType$="17" End If ' FOR ITEMS WITH NET LOCATIONS THE FOLLOWING SUPPLIES A SUPPRES CODE If (ItemLoc$="nnet" or ItemLoc$="nnetb" or ItemLoc$="nnetd" or ItemLoc$="nneto") Then ItemLoc$=ItemLoc$+" Chr(223)r n" End If If (ItemVol$="[None]" or ItemVol$="" or ItemOneVol=1) Then VolCounter=1 Else VolCounter=CInt (ItemVol$) If (ItemCopy$="" or ItemOneCop=1) Then CopyCounter=1 Else CopyCounter=CInt (ItemCopy$) Counter=(VolCounter*CopyCounter) x=1 y=1 HolderCounter=1 'Prompts user to enter barcodes For a=1 to CopyCounter If ItemOneCop=1 Then CopyString$=" Copy "+ItemCopy$ ElseIf ItemOneCop<>1 Then If CopyCounter=1 Then CopyString$="" Else CopyString$=" Copy "+Str (x) End If If ((ItemVol$="[None]" or ItemVol$="") and (ItemCop$="")) Then ForString$="" Else ForString$="for " For b=1 to VolCounter If y=(VolCounter+1) Then y=1 If ItemOneVol=1 Then VolString$="Volume "+ItemVol$ ElseIf ItemOneVol<>1 Then If (ItemVol="" or ItemVol="[None]") Then VolString$="" Else VolString$="Volume "+Str (y) End If Begin Dialog BarcodeBox 150,130 Caption "BARCODE ENTRY" Text 20,15,124,8, "Enter barcode "+ForString$+VolString$+CopyString$ TextBox 35,30,80,12, .Barcode$ OKButton 45,60,60,22 CancelButton 45,90,60,22 End Dialog Dim GetBarcode as BarcodeBox Dialog GetBarcode Holder$(HolderCounter)=GetBarcode.Barcode$ HolderCounter=HolderCounter+1 y=y+1 Next b x=x+1 Next a x=1 y=1 z=1 HolderCounter=1 If ItemExist=0 Then If (FormatVar$="a" or FormatVar$="c" or FormatVar$="d") Then MARCTag$="090" Else MARCTag$="099" If ItemCall3$="" Then FinalCall$="" Else FinalCall$=Chr(223) & "a "+ItemCall3$ If (FormatVar$="a" or FormatVar$="c" or FormatVar$="d") Then ItemCallNumb$=ItemCall1$ & " " & Chr(223) & "b "+ItemCall2$ & FinalCall$ Else ItemCallNumb$=ItemCall1$ & " " & Chr(223) & "a " & ItemCall2$ & " " & FinalCall$ End If For a=1 to CopyCounter If ItemOneCop=1 Then CopyString$=Trim$ (ItemCopy$) Else CopyString$=Trim$ (Str (x)) For b=1 to VolCounter If y=(VolCounter+1) Then y=1 If ItemOneVol=1 Then VolString$=ItemVol$ ElseIf ItemOneVol<>1 Then If (ItemVol="" or ItemVol="[None]") Then VolString$="" Else VolString$=Trim$ (Str (y)) End If z=1 If z=11 Then z=1 End If CS.AddField (10*CInt(CopyString$)+CInt(VolString$)), "949 " & Chr(223) & "z " & MARCTag & " " & Chr(223) & "a " & ItemCallNumb$ & " " & Chr(223) & "l " & ItemLoc$ & " " & Chr(223) & "s " & ItemStat$ & " " & Chr(223) & "t " & ItemType$ & " " & Chr(223) & "i " & Trim$ (Holder$(HolderCounter)) & " " & Chr(223) & "e " & VolString$ & " " & Chr(223) & "g " & CopyString$ HolderCounter=HolderCounter+1 y=y+1 z=z+1 Next b x=x+1 Next a Goto EndMacro End If If ItemExist=1 Then MARCTag$="050" ElseIf ItemExist=2 Then MARCTag$="090" Else MARCTag$="099" End If CS.GetField MARCTag$, 1, ItemCallNumb$ ItemCallNumb$=Mid$(ItemCallNumb$, 6) For a=1 to CopyCounter If ItemOneCop=1 Then CopyString$=Trim$ (ItemCopy$) Else CopyString$=Trim$ (Str (x)) For b=1 to VolCounter If y=(VolCounter+1) Then y=1 If ItemOneVol=1 Then VolString$=ItemVol$ ElseIf ItemOneVol<>1 Then If (ItemVol="" or ItemVol="[None]") Then VolString$="" Else VolString$=Trim$ (Str (y)) End If z=1 If z=11 Then z=1 End If CS.AddField (10*CInt(CopyString$)+CInt(VolString$)), "949 " & Chr(223) & "z " & MARCTag & " " & Chr(223) & "a " & ItemCallNumb$ & " " & Chr(223) & "l " & ItemLoc$ & " " & Chr(223) & "s " & ItemStat$ & " " & Chr(223) & "t " & ItemType$ & " " & Chr(223) & "i " & Trim$ (Holder$(HolderCounter)) & " " & Chr(223) & "e " & VolString$ & " " & Chr(223) & "g " & CopyString$ HolderCounter=HolderCounter+1 y=y+1 z=z+1 Next b x=x+1 Next a Goto EndMacro Handler: Resume EndMacro EndMacro: end sub " & MARCTag & " " & Chr(223) & "a " & ItemCallNumb$ & " " & Chr(223) & "l " & ItemLoc$ & " " & Chr(223) & "s " & ItemStat$ & " " & Chr(223) & "t " & ItemType$ & " " & Chr(223) & "i " & Trim$ (Holder$(HolderCounter)) & " " & Chr(223) & "e " & VolString$ & " " & Chr(223) & "g " & CopyString$ HolderCounter=HolderCounter+1 p"@ HMScoCall1ScoCall2ScoLocScoStatScoVolScoOneVolScoCopScoOneCopScoExistf_LocationCodeLocationChoiceCounter_____StatusCodeStatusChoiceVolumeCodeVolumeChoiceCopyCodeCopyChoice__InputScreen____[ ((80@P`p8@HPX`hpx (0"8 @ @HPX8HXh 0@Xhx0@P`x(8P`pl_FormatVarPickCatDatBibNoOrdNoBibLocDescription__RetvalueMatType____NoDate______RecCall1RecCall2RecCall3RecLocRecStatRecVolRecOneVolRecCopRecOneCopItemVolItemCopyItemOneCopItemOneVolItemCall1ItemCall2ItemCall3ItemLocItemStatItemExistItemTypeScoCall1ScoCall2ScoLocScoStatScoVolScoOneVolScoCopScoOneCopScoExistVolCounterCopyCounterCounterxyHolderCounteraCopyStringItemCopForStringbVolString_GetBarcodeHolderzMARCTagFinalCall_ItemCallNumb________________________________________________________$ _CS nG/ISRM"   Connex.ClientgetfixedfieldATypeBIBLIOGRAPHIC OVERLAY4Enter number of BIBLIOGRAPHIC record to overlay: .b _Bib__)Bibliographic record number is not valid.Remember--do NOT include ".b"(Please press and reenter number.RECORD NUMBER ERROR0The bib. record number must be eight characters.!Press and reenter number.ERROR--INCORRECT LENGTHMISSING OVERLAY NUMBER$You must supply a number to overlay.ov-.b;ORDER RECORD OVERLAY,Enter number of ORDER record to overlay: .o!Order record number is not valid.Remember--do NOT include ".o"1The order record number must be seven characters.ov-.oBIBLIOGRAPHIC RECORD OPTIONSOVERLAY EXISTING Record*OVERLAY EXISTING Record and CREATE ITEM(S)Use &BIBLIOGRAPHIC NumberUse &ORDER NumberUse B&IBLIOGRAPHIC NumberUse O&RDER NumberCREATE &NEW BIB and ITEM(s)CREATE N&EW BIB only&Check here for NO CATALOG DATE&__@Selection______NoCat__MUDMUMUCMURMUPMZORWFVLVFVLDVFVLDFVLBFVLTFVLPFVLSFVLMFVLLFVLXLXXXcmacsmfkfsi-o[None]1234567891Enter Item Information for SOUND RECORDING OR A/VENTER CALL NUMBERPart 1:aPart 2:Part 3: Location:Status:Volume: Single &vol.Copy: Single ©J__Call1__Call2__Call3_Loc_Stat_VolOneVol_CopOneCop__CALL NUMBER ERRORPlease supply call number.6Please make sure you supply first part of call number.7Please make sure you supply second part of call number.cmkcmocmr-Enter Item Information for SCORE or MONOGRAPHbOR USE EXISTINGCALL NUMBER in:0&500&90&099Q_Call1__Call2_Loc_Stat_VolOneVol_CopOneCop__@Exist______!Please review call number choice.9You can not key call number AND use existing call number.Please review number choice.jmus getfieldB *c 4 3/4 in.*drtmcugvfvlGThis macro is not designed to work with the format of this OCLC record.Macro will terminate. ct - - ;949 1*recs-b;zz-1;b1-;bn- addfieldA243618017nnetnnetbnnetdnneto Chr(223)r n Copy for Volume BARCODE ENTRYEnter barcode _Barcode__090099a  b 949 z l s t i e g 050vhh  ((0028:@<B*04:6<ICGetFormatGetBibNumberGetOrdNumberGetBibInfoRecAVScoMonomainEV p FormatVar___D@ "   (0@P0BibNo4__BibBoxTemp__FmtError_____LengthErrorjWjEn "   (0@P0OrdNo4__OrdBoxTemp__FmtError_____LengthError^0Msx"  PickCatDat__BarcodeBoxn?$ @(8HX@ @(0@8@hHp"P XMRecCall1RecCall2RecCall3RecLocRecStatRecVolRecOneVolRecCopRecOneCop_PrefixCodePrefixChoiceCounter_____LocationCodeLocationChoiceStatusCodeStatusChoiceVolumeCodeVolumeChoiceCopyCodeCopyChoice__InputScreen_w+F @(8HX@  @ (0h8BibAskForBib$X/BibAskForOrd6%F SelectionNoCatEntryBox '0 $(,;Call1Call2Call3LocStatVolOneVolCopOneCopRecAVBox н\ T(X=Call1Call2LocStatVolOneVolCopOneCopExistScoMonoBoxպ4BarcodeBarcodeBoxobject0  CreateObject U"%2i=vpyD7)~n0q$Pzy,PN R ,NHOWV DNIS"U GN O[P(e N P[P( N |N6N}G|NNt Noog>v}|TN { {(}|TN { {(}G G0@PN$ Nvpg>v|0}0 TTN0P@P0}Gt G00@PN$!hv:"G G0` @PN$#%hG|NNt Noog>@ Nvpg>@u'{`{ o}q)zy,PN R NHOWV NISeU GNO[P(e N P[P( N |N6N}G|MNt Noog>v(}|TN { L{(}|TN { {(}G G0@PN$ Nvpg>v|l0}0 TTN0P@P0}Gt G00@PN$!hv:"G G0` @PN$#%hG|NNt Noog>@ Nvpg>@u'{`{ o}q)z~xy( N R NHOdWV NHO8V NJOre` GNJOP(` 0GN JOrF` DGN JOPP` `GN JOr`V tGN JOZpV GN KS` ONO`` NP`` NN6N !{!z  y $7)~G}H} I} J} K} $L} ,M} 4N}<O}DP}LQ}TR}\S}dT}lU}tV}|W}X}G}H! gvV(TPN8 HX} H+!t"G}#H}$I}%J}&K})G }*H!+ gvV, (TPN8 HX }- H+!.t1G(}2H(}3I(}4J(}7G(0}8H!9 (gvV:0(TPN8 (HX0}; H+!<t?G8}@H8}AI8}BJ8}CK8}DL8}EM8}FN8}GO8}HP8}IQ8}LG8@}MH!N 8gvVO@(TPN8 8HX@}P H+!QtTHh!UH!VTh((NH}W PVvfXH(TPN8HT h +XNpH}Y H+!Zt]PN ^PR N_PHOPQT N`PHO$[Q 0NaPNT<eQGNbPHOQeN T|N<(8NcPHO$[Z @NdPIS<eZ KNePHOQe T|N<(8NfPHO$[ LNgPIS<e [NhPHO(V XNiPN8(` _NjPHO(Y dNkPN((a0cNlPHO(V, pNmPNd(`,@ NnPKO8y^ |$NoPHO(V^ NpPNT(`^H(NqPKO8q^ ,NrPO]<[Z NsPP]<[ NuPN6yhy4h@v"{PN|hy4h>v:}G(G8XHXN$~hy4g>v:G(G8(XHXN$gy4h>v:G(G8dXHXN$t|No}q|y4No}q|y8No}qy<hvo}qt |y<No}qy@hvo}qt |y@No}q|yDNo}q{H!|yLNo}q{P!zL F y $7)~G}H}I} J} G} H! gvV(TPN8 HX} H+!tG}H}I}J}G }H! gvV (TPN8 HX } H+!t"G(}#H(}$I(}%J(}&K(}'L(}(M(})N(}*O(}+P(},Q(}/G(0}0H!1 (gvV20(TPN8 (HX0}3 H+!4t7Hh!8H!9Th((N8}: PVvf;8(TPN8HT h +XNp8}< H+!=t?@N @@R NA@HO$[Q 0NB@ISdeQ GNC@HOQev T|N(8ND@HO$[ @NE@ISde KNF@HO(V XNG@N0(`[NH@HO(Q dNI@N(([ _NJ@HO(V, pNK@Nd(`,0cNL@KO8y^ | NM@HO(V^ NN@NT(`^8TNO@KO8q^ (NP@HO<7< NQ@HO<A< NRS@JOPQ< XNT@JOe2 XNU@JOe< XNV@JOeF $XNW@O]P[[ NX@P]P[ NZ,@N6^{`Gjhy4h@>{`Gogy4g@>@v`@Na{`Gjhy4h@>v:bG(G8HHXN$cd{`Gogy4g@>vXeGpG(TPN8HXN$fgti|No}qj|y4No}qky8hvko}qkt k|y8No}qly<hvmo}qntNny<hvoo}qpt q|y<No}qrs|y@No}qt{D!u|ydNo}qv{L!w{`!yzy, 7)~ww Gj Ij@v w Hj Jj@v whh@v }n0q ,H(P(((+8! 8jv,0}t00}t<h4h@v(80} } t <h,h@v(!@0}" }#t#Dhv($H0}%L }&tH'GT(TTN@P`pN$(t2*, Hjv,8},t ,8}.n0qH0{{@ {H{P8{X{`{h0 Gj Hj@ Lj@v0tl5Dhh@h@v06xpw7}8}9 !: !;p}<x}=}>}?}@G!Ahh@vB}Ct<Cp,hvD }EtF }GHJ<h<h@,h@4h@vKwL}M}N !O !P}Q}S}T}U !V<h4h@vV }VtV }WZ h$ h@, h@4 h@v[< {}\^hh@ Hj@v^H!^t^!_h Hj@v_H!_t_!a 3!bH!cH!dH!h)H Hvi Hjv jL {}ktjk HovZl Hjvl}lt6lL @T((NP}mnhh@ h>vn(}ntnX (}o)H HJp H+jv pH!q Hjv r` {0}stxs Hovhthh@vt0}tt6t` @T((NP0}uv8N w8R l Nx8HO|V[ | ({0{@{HNy8ISPe# GNz8O]<<- N{8P]<Z- N| 8N68N @} H+! H+!# H+!#H!H!H!H! Gjv<h<h@,h@v H}t H}hvP}t6TN {(@@P}<h<h@,h@v` {(TN@ {@P`PpHX}tj {(TN@ P`p P@X}()H H,. Hjv"|N}t4|T((N@N}0)H H46^ H+jv H! Hjv0}tv Hovfhh@v0}t4|T((N@N0}H! Rjv H!n0qQ30+ (TN@ P`Hp TN 8HXXhx TN   0TN@P Xhx TN ( 0@PTN`p x| @N TN 0(8H P`pTN  H+! H+! H+!#046 H+!#(,.t Hjv H}t8 Ijv H}t H}n0q HPHXPHX|MX@NX})H H Hjv"|N}t4|T((N@N})H H^ H+jv H! Hjv0}tv Hovfhh@v0}t4|T((N@N0}H! Rjv H!n0qQ30+ (TN@ P`Hp TN 8HXXhx TN   0TN@P Xhx TN ( 0@PTNEXPORT.BIN`p x| @N TN 0(8H P`pTN  H+! H+! H+!# H+!#tzTN   0TN@P Xhx TN ( 0@PTN`p x| @N TN 0(8H P`pTN  H+! H+! H+!# H+!#tz