46 lines
576 B
Plaintext
46 lines
576 B
Plaintext
## import "menue.x"
|
|
|
|
get_konto()
|
|
{
|
|
register int rc;
|
|
|
|
rc = 1;
|
|
## retrieve konto $konto == konto
|
|
## (
|
|
## konto = $konto,
|
|
## saldo = $saldo,
|
|
## datum = $datum,
|
|
## no_bank = $no_bank
|
|
## )
|
|
## {
|
|
rc = 0;
|
|
break;
|
|
## }
|
|
return (rc);
|
|
}
|
|
|
|
|
|
new_konto()
|
|
{
|
|
new_kunde();
|
|
if (Batch)
|
|
{
|
|
## tuplecount bank no_bank
|
|
no_bank = rand() % no_bank + 1;
|
|
get_bank();
|
|
printf(" Bank %5d %s\n", no_bank, bank);
|
|
}
|
|
else
|
|
new_bank();
|
|
new_datum();
|
|
## use (+konto)
|
|
## append konto
|
|
## (
|
|
## $konto = konto,
|
|
## $saldo = 0,
|
|
## $datum = datum,
|
|
## $no_bank = no_bank
|
|
## )
|
|
## commit
|
|
}
|