228 lines
3.3 KiB
Plaintext
Executable File
228 lines
3.3 KiB
Plaintext
Executable File
if test "$1" = "" ; then
|
|
echo Kein Datenbankname spezifiziert
|
|
exit
|
|
fi
|
|
echo Die Datenbank $1 wird erstellt -- bitte warten Sie !
|
|
if creatdb -c $2 $1 ; then echo Erzeugen der Relationen laeuft ; else exit; fi
|
|
iql -s $1 << 'EOF'
|
|
|
|
:: abt
|
|
\print
|
|
\reset
|
|
create abt
|
|
(
|
|
num is i2,
|
|
name is c20,
|
|
lager is i2,
|
|
etage is i2,
|
|
leiter is i2
|
|
)
|
|
copy abt
|
|
(
|
|
num is c0,
|
|
name is c0,
|
|
lager is c0,
|
|
etage is c0,
|
|
leiter is c0nl
|
|
)
|
|
from "{pathname}/demo/ql/abt"
|
|
range of abt is abt
|
|
define permit all on abt to all
|
|
\go
|
|
:: artikel
|
|
\print
|
|
\reset
|
|
create artikel
|
|
(
|
|
num is i2,
|
|
name is c20,
|
|
abt is i2,
|
|
preis is i2,
|
|
menge is i2,
|
|
lieferant is i2
|
|
)
|
|
copy artikel
|
|
(
|
|
num is c0,
|
|
name is c0,
|
|
abt is c0,
|
|
preis is c0,
|
|
menge is c0,
|
|
lieferant is c0nl
|
|
)
|
|
from "{pathname}/demo/ql/artikel"
|
|
range of artikel is artikel
|
|
define permit all on artikel to all
|
|
\go
|
|
:: erfind
|
|
\print
|
|
\reset
|
|
create erfind
|
|
(
|
|
erfindung is c36,
|
|
erfinder is c20,
|
|
jahr is c9,
|
|
land is c12
|
|
)
|
|
copy erfind
|
|
(
|
|
x0 is "d0'",
|
|
erfindung is "c0'",
|
|
x1 is d2,
|
|
erfinder is "c0'",
|
|
x2 is "d0'",
|
|
jahr is "c0'",
|
|
x3 is d2,
|
|
land is "c0'",
|
|
x4 is "d0;",
|
|
x5 is d0nl
|
|
)
|
|
from "{pathname}/demo/ql/erfindungen"
|
|
range of erfind is erfind
|
|
define permit all on erfind to all
|
|
\go
|
|
:: lager
|
|
\print
|
|
\reset
|
|
create lager
|
|
(
|
|
num is i2,
|
|
ort is c15,
|
|
plz is i2,
|
|
strasse is c15
|
|
)
|
|
copy lager
|
|
(
|
|
num is c0,
|
|
ort is c0,
|
|
plz is c0,
|
|
strasse is c0nl
|
|
)
|
|
from "{pathname}/demo/ql/lager"
|
|
range of lager is lager
|
|
define permit all on lager to all
|
|
\go
|
|
:: lieferant
|
|
\print
|
|
\reset
|
|
create lieferant
|
|
(
|
|
num is i2,
|
|
name is c15,
|
|
ort is c15,
|
|
plz is i2,
|
|
strasse is c15
|
|
)
|
|
copy lieferant
|
|
(
|
|
num is c0,
|
|
name is c0,
|
|
ort is c0,
|
|
plz is c0,
|
|
strasse is c0nl
|
|
)
|
|
from "{pathname}/demo/ql/lieferant"
|
|
range of lieferant is lieferant
|
|
define permit all on lieferant to all
|
|
\go
|
|
:: lieferung
|
|
\print
|
|
\reset
|
|
create lieferung
|
|
(
|
|
lnum is i2,
|
|
tnum is i2,
|
|
bnum is i2,
|
|
liefdat is c8,
|
|
menge is i2
|
|
)
|
|
copy lieferung
|
|
(
|
|
lnum is c0,
|
|
tnum is c0,
|
|
bnum is c0,
|
|
liefdat is c0,
|
|
menge is c0nl
|
|
)
|
|
from "{pathname}/demo/ql/lieferung"
|
|
range of lieferung is lieferung
|
|
define permit all on lieferung to all
|
|
\go
|
|
:: personal
|
|
\print
|
|
\reset
|
|
create personal
|
|
(
|
|
num is i2,
|
|
name is c20,
|
|
gehalt is i2,
|
|
leiter is i2,
|
|
gebdat is i2,
|
|
einstdat is i2
|
|
)
|
|
copy personal
|
|
(
|
|
num is c0,
|
|
name is c0,
|
|
gehalt is c0,
|
|
leiter is c0,
|
|
gebdat is c0,
|
|
einstdat is c0nl
|
|
)
|
|
from "{pathname}/demo/ql/personal"
|
|
range of personal is personal
|
|
define permit all on personal to all
|
|
\go
|
|
:: teile
|
|
\print
|
|
\reset
|
|
create teile
|
|
(
|
|
tnum is i2,
|
|
tname is c20,
|
|
farbe is c8,
|
|
gewicht is i2,
|
|
menge is i2
|
|
)
|
|
copy teile
|
|
(
|
|
tnum is c0,
|
|
tname is c0,
|
|
farbe is c0,
|
|
gewicht is c0,
|
|
menge is c0nl
|
|
)
|
|
from "{pathname}/demo/ql/teile"
|
|
range of teile is teile
|
|
define permit all on teile to all
|
|
\go
|
|
:: verkauf
|
|
\print
|
|
\reset
|
|
create verkauf
|
|
(
|
|
num is c6,
|
|
datum is c8,
|
|
lager is i2,
|
|
abt is i2,
|
|
artikel is i2,
|
|
menge is i2,
|
|
person is i2
|
|
)
|
|
copy verkauf
|
|
(
|
|
num is c0,
|
|
datum is c0,
|
|
lager is c0,
|
|
abt is c0,
|
|
artikel is c0,
|
|
menge is c0,
|
|
person is c0nl
|
|
)
|
|
from "{pathname}/demo/ql/verkauf"
|
|
range of verkauf is verkauf
|
|
define permit all on verkauf to all
|
|
\go
|
|
EOF
|
|
echo Datenbank $1 erstellt
|