//
//  sap-index-coalesce.vdm        Ch. Ziemski  05.07.2006
//

BoF
while(! At_EoF) {
  if (Match("|<BR0986W |*unbalanced") != 0) {
    Del_Line(1)
  } else {
    Line(1, NOERR)
  }
}

BoF
while(! At_EoF) {
  Search("SAPR3.")
  Del_Line(0)
  Ins_Text("alter index ")
  Search("SAPR3.", ADVANCE)
  Ins_Text('"')
  Search(" ")
  Ins_Text('"')
  Del_Block(Cur_Pos, EoL_Pos)
  Ins_Text(" coalesce;")
  Line(1, NOERR)
}
  
  
BoF
IT('cat <<EOF | sqlplus "/ as sysdba"')
IN(1)
EoF
IT("exit;")
IN(1)
IT("EOF")
IN(1)