'MacroName:130
'MacroDescription: adds 130 for movies
'written by John Lavalie, Sept. 14, 2007

option explicit

Sub Main

Dim CS As Object
Set CS = CreateObject("Connex.Client")
  
dim tag$, UT$, pos%, indicator%, MARCType$, row%, rows%, getLine$
   
CS.GetFixedField "type", MARCType$
CS.GetField "245", 1, tag$

if MARCType$ = "g" then 
   tag$ = "2451" & mid(tag$, 5)
   CS.DeleteField "245", 1
   CS.SetField 1, tag$   
end if

indicator% = cint(mid(tag$, 5, 1))
tag$ = mid(tag$, 6)
pos% = instr(tag$, chr(223))
tag$ = trim(left(tag$, pos% - 1))
if indicator% > 0 then tag$ = mid(tag$, indicator% + 1)
tag$ = ucase(left(tag$, 1)) & mid(tag$, 2)
UT$ = tag$ & " (Motion picture)"
   
if MARCType$ = "g" then
   UT$ = "1300 " & UT$
   tag$ = "130"
else
   UT$ = "7300 " & UT$
   tag$ = "130"
end if
CS.Setfield 99, UT$
CS.Reformat

CS.CursorRow = 999
rows% = CS.CursorRow

for row% = 2 to rows%
   CS.GetFieldLine row%, getline$
   if left(getline$, 3) = tag$ then exit for
next
   
CS.CursorRow = row%


End Sub