'MacroName:670 IMDb
'MacroDescription:IMDb
'written by John Lavalie, May 15, 2006

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")
   dim heading, tag, display, strDate, strMonth as string
   dim pos as integer
      
   bool = CS.GetField ("1..", 1, heading)
   tag = left(heading, 3)
   heading = mid(heading, 6)                    'strip tag, indicator 
  
   select case tag
      case "100"
         pos = instr(heading, chr(223))
         if pos > 0 then heading = left(heading, pos - 3)           'strip subfields
         pos = instr(heading, ",")
         if pos > 0 then heading = mid(heading, pos + 2) + " " + left(heading, pos - 1) + ", "

      case "130"
      pos = instr(heading, " (Motion")
      if pos > 0 then 
         heading = left(heading, pos - 1) + "; "
      else
         pos = instr(heading, " (Television")
         if pos > 0 then  heading = left(heading, pos - 1) + "; "
      end if

   end select
  
   strDate = format(date, "mmm. d, yyyy ")
   strMonth = left(strDate, 4)
   
   select case strMonth
      case "May."
         strDate = "May " & mid(strDate, 6)   
      case "Jun."
         strDate = "June" & mid(strDate, 5)   
      case "Jul."
         strDate = "July" & mid(strDate, 5)   
      case "Sep."
         strDate = "Sept" & mid(strDate, 4)         
   end select
            
   heading = "670  IMDb, " + strDate + chr$(223) + "b (" + heading 
   CS.AddField 99, heading 
   CS.EndRecord

end sub