#!/bin/ksh
#
#-
# Hilfsfunktion zum Manipulieren einer Tabelle
# Parameter:
# $1: Tabellenname
# $2: Size des Initial-Extents der Tabelle in Bytes
# $3: Size des Next-Extents der Tabelle (Verweis auf DDLORA.TPL)
# $4: Size des Initial-Extents des Primaryindex in Bytes
# $5: Size des Next-Extents des Primaryindex (Verweis auf DDLORA.TPL)
modify_table()
{
  if [ $# -ne 5 ]; then 
    echo "Uah"
    exit 1
  fi

  for i in SAP*.STR; do
    mv $i $i.TMP
    # Manipulieren der STR-Datei (Next-Extents)
    sed  -e "/^tab: $1\$/,/^att:/s/\(^att: [A-Z][A-Z0-9]* \)[0-9]*\( .* \)[0-9][0-9]*\( \$\)/\1$3\2$5\3/g" > $i.TMP > $i
  done
  for i in ../DB/ORA/SAP*.EXT; do
    mv $i $i.TMP
    # Manipulieren der EXT-Datei (Initial-Extent)
    sed -e "s/^\($1     [       ]*\)[0-9][0-9]*/\1$2/" > $i.TMP > $i.WRK
    sed -e "s/^\($1~0   [       ]*\)[0-9][0-9]*/\1$4/" > $i.WRK > $i
  done
}

modify_index()
{
  for i in SAP*.STR; do
    mv $i $i.BAK
    sed  -e "/^ind: $1/,/^att:/s/\(^att: [A-Z][A-Z0-9]* *[A-Z][A-Z0-9]* \)[0-9]*\( .*\)/\1$2\2/g" > $i.BAK > $i
  done
}

# Pruefen: TST03,

#            Tabelle    Initial      Data  Initial     Index
modify_table APQD       300000000    8     100000000   9
modify_table BALC       500000000    8     100000000   9

modify_index COEP~1   11
modify_index COEP~UBR 11
 
 
echo "Sind die *.STR und *.EXT-Dateien gesichert? (j/n)"
read antwort
if [ "$antwort" != "j" ]; then exit 1 ; fi