'MacroName:RDA
'MacroDescription:

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")

   bool = CS.GetFixedField ("Type", MARCType$)
   bool = CS.GetFixedField ("Form", Form$)

   tag007a$ = mid(tag007$, 6, 1)

   if MARCType$ = "a" then
      Content$ = "BOOK"
   elseif MARCType$ = "g" then
      Content$ = "VIDEO"
   elseif MARCType = "i" then
      if Form$ = "s" or Form$ = "q" then
         Content$ = "PLAYAWAY"
      else
         Content$ = "AUDIOBOOK"
      end if
   elseif MARCType = "j" then
      Content$ = "CD"
   elseif Form$ = "q" then
      Content$ = "CD-ROM"
   elseif MARCType = "c" then
      Content$ = "SCORE"
   elseif MARCType = "z" then
      Content$ = "Authority"
   else
      msgbox ("Huh?")
      exit sub
   end if
   
   select case Content$
      case "BOOK"
         tag336a$ = "text"
         tag336b$ = "txt"
         tag337a$ = "unmediated"
         tag337b$ = "n"
         tag338a$ = "volume"
         tag338b$ = "nc"
         
      case "VIDEO"
         tag336a$ = "two-dimensional moving image"
         tag336b$ = "tdi"
         tag337a$ = "video"
         tag337b$ = "v"
         tag338a$ = "videodisc"
         tag338b$ = "vd"

      case "AUDIOBOOK"
         tag336a$ = "spoken word"
         tag336b$ = "spw"
         tag337a$ = "audio"
         tag337b$ = "s"
         tag338a$ = "audio disc"
         tag338b$ = "sd"

      case "CD"
         tag336a$ = "performed music"
         tag336b$ = "prm"
         tag337a$ = "audio"
         tag337b$ = "s"
         tag338a$ = "audio disc"
         tag338b$ = "sd"

      case "PLAYAWAY"
         tag336a$ = "spoken word"
         tag336b$ = "spw"
         tag337a$ = "audio"
         tag337b$ = "s"
         tag338a$ = "other audio carrier"
         tag338b$ = "sz"

      case "CD-ROM"
         tag336a$ = "computer program"
         tag336b$ = "cop"
         tag337a$ = "computer"
         tag337b$ = "c"
         tag338a$ = "computer disc"
         tag338b$ = "cd"

      case "SCORE"
         tag336a$ = "notated music"
         tag336b$ = "ntm"
         tag337a$ = "unmediated"
         tag337b$ = "n"
         tag338a$ = "volume"
         tag338b$ = "nc"

   end select
   
   if content = "Authority" then

      CS.SetFixedField "Rules", "z"
      bool = CS.GetField ("040", 1, temp$)
      CS.SetField 1, temp$ & " " & chr(223) & "e rda"
   else
      
      tag336$ = "336  " & tag336a$ & " " & chr(223) & "b " & tag336b$ & " " & chr(223) & "2 rdacontent"
      tag337$ = "337  " & tag337a$ & " " & chr(223) & "b " & tag337b$ & " " & chr(223) & "2 rdamedia"
      tag338$ = "338  " & tag338a$ & " " & chr(223) & "b " & tag338b$ & " " & chr(223) & "2 rdacarrier"

      CS.DeleteField "336", 1
      CS.DeleteField "337", 1
      CS.DeleteField "338", 1
      CS.SetField 1, tag336$   
      CS.SetField 1, tag337$   
      CS.SetField 1, tag338$   
   end if
 end sub