51 lines
1.1 KiB
Plaintext
51 lines
1.1 KiB
Plaintext
/*
|
|
** Es sollen alle Angaben zu allen Angestellten recherchiert werden.
|
|
**
|
|
**
|
|
** Datenbank `dt' mit dem C-Programm verbinden
|
|
*/
|
|
## shared Dt
|
|
/*
|
|
** Die C-Variable name wird als Austauschvariable zwischen
|
|
** dem C-Programm und der Datenbank deklariert
|
|
*/
|
|
## char *name;
|
|
/*
|
|
** Das Hauptprogramm muss `amx' und nicht `main' heissen !
|
|
*/
|
|
amx(argc, argv)
|
|
int argc;
|
|
char **argv;
|
|
{
|
|
/*
|
|
** Wenn das Programm mit einem Argument gerufen wird,
|
|
** wird das Argument als Bedingung fuer die auszuwaehlende
|
|
** Saetze genommen, ansonsten `*', das heisst alle.
|
|
*/
|
|
name = (argc == 1)? "*": argv[1];
|
|
/*
|
|
** Relation `personal' fuer die Benutzung eroeffnen.
|
|
*/
|
|
## open Personal
|
|
/*
|
|
** Hole alle Saetze aus der Relation `personal', fuer die
|
|
** das Feld `name' den Wert der C-Variablen `name' hat.
|
|
*/
|
|
## retrieve Personal $Name == name
|
|
## {
|
|
/*
|
|
** Es folgt die Aktion, die fuer jeden entsprechend der
|
|
** Bedingung gefunden Satz ausgefuert wird, hier das
|
|
** Ausgeben des vollstaendigen Satzes.
|
|
*/
|
|
printf("------------\n");
|
|
## print ()
|
|
## }
|
|
/*
|
|
** Schliessen der Relation `personal'.
|
|
*/
|
|
## close Personal
|
|
printf("------------\n");
|
|
fflush(stdout);
|
|
}
|