'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" then
         Content$ = "PLAYAWAY"
      else
         Content$ = "AUDIOBOOK"
      end if
   elseif MARCType = "j" then
      Content$ = "CD"
   else
      msgbox ("Huh?")
      exit sub
   end if
   
   select case Content$
      case "BOOK"
         tag336a$ = "text"
         tag336b$ = "txt"
         tag337a$ = "unmediated"
         tag337b$ = "n"
         tag338a$ = "volumne"
         tag338b$ = "nc"
         
      case "VIDEO"
         tag336a$ = "two-dimensional moving image"
         tag336b$ = "tdi"
         tag337a$ = "video"
         tag337b$ = "vd"
         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"

   end select
   
   
   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 Sub