'MacroName:add588
'MacroDescription:adds field 588 note for the PCC URI MARC pilot

' Written by Robin Six, OCLC Metadata Quality Division
' Email: sixr@oclc.org
' Revised: December 4, 2019

' To use this macro, display a single bibliographic record and run the macro.

' OCLC shall not be liable for any loss or damage, lost profits, loss of business, loss of or damage to data, downtime or unavailability, of or in 
' connection with use of materials. OCLC shall have no liability for any claims arising from use of the materials, based on infringement of copyright, 
' patent, trade secret or other right, libel, slander or invasion of privacy or claims based on errors, inaccuracies, or omissions in or loss of the data.

' OCLC makes no express warranties or representations and disclaims all implied warranties with respect to materials as to their accuracy, merchantability 
' or fitness for a particular purpose. Macros are supplied "as is."

Sub Main

   Dim CS As Object
   Dim s588 As String
   Set CS = CreateObject("Connex.Client")
   
   CS.CursorRow = 1
   CS.CursorColumn = 1
   
   CS.SetFieldLine 998, "588  Some URIs added to this record for the PCC URI MARC pilot. Please do not remove these subfields"
   
End Sub