'MacroName:badSH
'MacroDescription:deletes bad subject headings

option explicit
global CS as object
dim lang$   

'-------------------
sub deleteBadSH(tagNo as string)
   dim x%, foundTag, tag$
   x% = 0
   do 
      x% = x% + 1
      foundTag = CS.GetField (tagno, x%, tag$)
      if mid(tag$, 5, 1) like "[2-9]" then 
         CS.DeleteField tagno, x%
         x% = x% - 1
      else   
         if instr(tag$, "bidex") and lang$ <> "spa" then
            CS.DeleteField tagno, x%
            x% = x% - 1
         end if
      end if   
   loop until not foundTag  
 end sub
'-------------------
sub deleteAll(tagno as string)
   dim foundTag, tag$
   
   do 
      foundTag = CS.GetField(tagno, 1, tag$)
      if foundTag then CS.DeleteField tagNo, 1
   loop until not foundTag
end sub
'-------------------
Sub Main

   Set CS = CreateObject("Connex.Client")
   
   CS.GetFixedField "Lang", lang$
   deleteBadSH("600")
   deleteBadSH("610")
   deleteBadSH("611")
   deleteBadSH("630")
   deleteBadSH("650")
   deleteBadSH("651")

   deleteAll("648")
   deleteAll("653")
   deleteAll("654")
   deleteAll("656")
   deleteAll("657")
   deleteAll("658")
      
End Sub