63 lines
1.1 KiB
Plaintext
63 lines
1.1 KiB
Plaintext
## shared Dbsr
|
|
|
|
int count;
|
|
int lev;
|
|
## char ot[14];
|
|
## char ut[14];
|
|
## char name[31];
|
|
## char me[3];
|
|
|
|
amx()
|
|
{
|
|
long old;
|
|
long new;
|
|
char buf[BUFSIZ];
|
|
extern long time();
|
|
|
|
setbuf(stdout, buf);
|
|
printf("DBS/R-DEMONSTRATIONSBEISPIEL:\n");
|
|
printf("Strukturstueckliste\n");
|
|
fflush(stdout);
|
|
|
|
## open Teile
|
|
## open Inf
|
|
old = time((char *) 0);
|
|
## retrieve Teile $Kenn == "a" (ot = $T, name = $Name)
|
|
## {
|
|
lev = 0;
|
|
printf("\n*** ALLE STRUKTURLISTEN ***\n");
|
|
printf("\nStueckliste %s %s\n", ot, name);
|
|
printf("\n\tAufl.St.\t Gegenst.Nr. Gegenst.Bez. ME\n\n");
|
|
fflush(stdout);
|
|
stl_structure();
|
|
## }
|
|
## close Inf
|
|
## close Teile
|
|
new = time((char *) 0);
|
|
printf("\nEXECUTE %ld sec\n", new - old);
|
|
fflush(stdout);
|
|
}
|
|
|
|
|
|
stl_structure()
|
|
{
|
|
register int i;
|
|
|
|
lev++;
|
|
## retrieve Inf $Ot == ot (ut = $Ut)
|
|
## {
|
|
## retrieve Teile $T == ut (name = $Name, me = $Me)
|
|
## {
|
|
putchar('\t');
|
|
for (i = lev; i; --i)
|
|
putchar('.');
|
|
printf("%d\t\t", lev);
|
|
printf("%13s %30s %2s\n", ut, name, me);
|
|
fflush(stdout);
|
|
## }
|
|
AAsmove(ut, ot);
|
|
stl_structure();
|
|
## }
|
|
--lev;
|
|
}
|