Honestly I'm not surprised...  To help with the copy-paste, I wrote a pair of macro's. (Had to create the second macro because subfield indicators get screwy when pasted straight from the clipboard.)  

Be warned these are very basic, and don't handle things like removing subfield b's from subordinate bodies, etc.

--Ben



Benjamin Abrahamse
Cataloging Coordinator
Acquisitions, Metadata and Enterprise Systems
MIT Libraries
617-253-7137

-----Original Message-----
From: Program for Cooperative Cataloging [mailto:[log in to unmask]] On Behalf Of Gary L Strawn
Sent: Saturday, November 17, 2012 11:50 AM
To: [log in to unmask]
Subject: [PCCLIST] There's this neat technique called copy-and-paste

Since my authority loader program started testing the contents of authority 37X fields that have a $2 code for NAF or LCSH, I've been dealing with reports of a lot of things that are out of whack.  A few of these reports are the predictable outcome of the lack of proper tags and subfield codes (this category might be reduced by additional programming tricks), but most appear to arise from operator activity unrelated to the encoding scheme.

* Some stem from the failure to recognize the difference between an authority record and a reference record:
	Guidebooks

* Some stem from the failure to recognize the difference between a 4XX field and a 1XX field:
	Writing (Authorship)
	Philosophy, Hindu
	Sports journalists
	College lecturers
	SQA
	Arbitration and award, International

* Some of them have no close parallel in LCSH:
	Anti-corruption

* Some of them stem, perhaps, from reliance on memory rather than consulting the database: 
	Cities and towns--Studying and teaching
	Calif., Northern

* Some of them stem from converting an LCSH heading from plural to singular, while leaving the $2 code in place:
	Photographer
	Biographer
	Plant geneticist
	College teacher
	Mathematician

* The astounding ones are those that are wrong because they contain simple typographical errors, or are incomplete (no, I did not make any of these up):
	Art museuems
	Christianty
	Service-oriented architecture
	Producers and directors
	Arrangers (Music)
	Juridsprudence
	Arists' models
	Patent law and legislation
	Consolidation and mergers of corporations
	Music--unstruction and study
	Artt
	Women compsers
	Vital Theater Company

For the last group, especially, I can only recommend more extensive use of the "copy and paste" technique, which will obviate all such errors.  This simple but effective technique can also be of use in name/title records where the same name is needed in both the 1XX and one or more 4XX fields: get it right once, and then *copy* it wherever else it's needed.  Saves time, and promotes consistency.  Try it!

Gary L. Strawn, Authorities Librarian, etc.
Northwestern University Library, 1970 Campus Drive, Evanston IL 60208-2300
e-mail: [log in to unmask]   voice: 847/491-2788   fax: 847/491-8306
Forsan et haec olim meminisse iuvabit.         BatchCat version: 2007.22.416



'MacroName:copy37x
'MacroDescription:copy the 1xx field of a NACO or LCSH authority, in order to paste it into a 37x field 
'Slapped together by Ben Abrahamse, MIT Libraries
'Last revised: 12 October 2012

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")
   
   Dim nType as Integer  
   Dim x,y,z as Integer
   Dim xclipboard, xfield, xmarc, lccn, accessPoint as String   
    
   BOOL=CS.GetField("1..",1, xfield)
   Let x=len(xfield)
   Let xmarc = left(xfield,3)
   Let accessPoint=right(xfield,(x-5))
   
   'In case we want to start adding $0 record identifiers...
   'BOOL=CS.GetField("010",1,lccn)
   'Let x=len(lccn)
   'Let lccn=right(lccn,(x-5))
       
   Select Case xmarc
      Case "110"
         let xclipboard="373  " & Chr(223) & "a " & accessPoint & Chr(223) & "2 naf"
                 
      Case "150"
         let xclipboard="372  " & Chr(223) & "a " & accessPoint & Chr(223) & "2 lcsh"
         
      Case "151"
         LET xclipboard="370  " & Chr(223) & "e " & accessPoint & Chr(223) & "2 naf"
         
         
      Case Else
      
         MsgBox "Invalid authority type. This macro only works with: corporate body names (110), topicals (150), and geographic names (151)."
         Exit Sub 
      
      
   End Select
   
   Clipboard.Clear
   Clipboard.SetText(xclipboard)
   
End Sub


'MacroName:paste37x
'MacroDescription:Pastes properly formatted 37x field in record or workform

Sub Main

   Dim CS As Object
   Dim clipText, fieldText as String
   Dim x,y,z as Integer
   Set CS = CreateObject("Connex.Client")

   clipText=Clipboard.GetText
   
   CS.AddField 1, clipText
   
End Sub