91 lines
1.5 KiB
Plaintext
91 lines
1.5 KiB
Plaintext
## import "menue.x"
|
|
|
|
pr_kunde()
|
|
{
|
|
pr_init();
|
|
## retrieve kunde
|
|
## (
|
|
## no_name = $no_name,
|
|
## no_vorname = $no_vorname,
|
|
## konto = $konto
|
|
## )
|
|
## {
|
|
if (pr_line())
|
|
break;
|
|
get_name();
|
|
get_vorname();
|
|
printf("%-12.s %-12.s %ld", name, vorname, konto);
|
|
## }
|
|
pr_end();
|
|
}
|
|
|
|
|
|
get_kunde()
|
|
{
|
|
register int rc;
|
|
|
|
rc = 1;
|
|
## retrieve kunde $konto == konto
|
|
## (
|
|
## no_name = $no_name,
|
|
## no_vorname = $no_vorname,
|
|
## no_str = $no_str,
|
|
## no_ort = $no_ort
|
|
## )
|
|
## {
|
|
rc = 0;
|
|
break;
|
|
## }
|
|
return (rc);
|
|
}
|
|
|
|
|
|
new_kunde()
|
|
{
|
|
if (Batch)
|
|
{
|
|
## tuplecount name no_name
|
|
no_name = rand() % no_name + 1;
|
|
get_name();
|
|
on_revers();
|
|
printf("\n%d Name ", Batch);
|
|
off_revers();
|
|
printf("%5d %s\n", no_name, name);
|
|
## tuplecount vorname no_vorname
|
|
no_vorname = rand() % no_vorname + 1;
|
|
get_vorname();
|
|
printf(" Vorname %5d %s\n", no_vorname, vorname);
|
|
## tuplecount str no_str
|
|
no_str = rand() % no_str + 1;
|
|
get_str();
|
|
printf(" Strasse %5d %s\n", no_str, str);
|
|
## tuplecount ort no_ort
|
|
no_ort = rand() % no_ort + 1;
|
|
get_ort();
|
|
printf(" PLZ %5d\n", plz);
|
|
printf(" Ort %5d %s\n", no_ort, ort);
|
|
}
|
|
else
|
|
{
|
|
new_name();
|
|
new_vorname();
|
|
new_str();
|
|
new_ort();
|
|
}
|
|
## use (+kunde)
|
|
## tuplecount kunde konto
|
|
konto++;
|
|
hash_konto(&konto);
|
|
## append kunde
|
|
## (
|
|
## $konto = konto,
|
|
## $no_name = no_name,
|
|
## $no_vorname = no_vorname,
|
|
## $no_str = no_str,
|
|
## $no_ort = no_ort
|
|
## )
|
|
## commit
|
|
if (Batch)
|
|
printf(" Konto %5ld\n", konto);
|
|
}
|