chrissy
/
P8000
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ING_DB

This commit is contained in:
Oliver Lehmann 1989-04-03 11:28:46 +00:00
parent 17f4ac56bc
commit c70c40cbf9
7 changed files with 503 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
WEGA/contrib/ingres/dbs/data/base/adr/a.x Normal file
View File

@ -0,0 +1,26 @@
## shared adr
## char NAME[51];
## char TITEL[51];
## char KURZ[51];
amx()
{
register char *p;
## open adr
fprintf(stderr, "DRUCK adr\n\n");
## retrieve adr
## (
## NAME = $name,
## TITEL = $titel,
## KURZ = $kurz
## )
## {
printf("%-50s", KURZ);
if (*TITEL != ' ')
printf(" %s %s\n", TITEL, NAME);
## }
## close adr
}

68
WEGA/contrib/ingres/dbs/data/base/adr/adr.x Normal file
View File

@ -0,0 +1,68 @@
## shared adr
## char NAME[51];
## char TITEL[51];
## char KURZ[51];
## char LANG[51];
## char ABT[51];
## char STR[51];
## char ORT[51];
## char PLZ[51];
amx()
{
## open adr
fprintf(stderr, "ADRESSEINGABE\n\n");
while (enter("\nNAME", NAME))
{
if (enter("TITEL", TITEL) == 0)
continue;
if (enter("KURZ", KURZ) == 0)
continue;
*LANG = 0;
enter("LANG", LANG);
if (enter("ABT", ABT) == 0)
continue;
if (enter("STR", STR) == 0)
continue;
if (enter("ORT", ORT) == 0)
continue;
if (enter("PLZ", PLZ) == 0)
continue;
## use (+adr)
## append adr
## (
## $name = NAME,
## $titel = TITEL,
## $kurz = KURZ,
## $lang = LANG,
## $abt = ABT,
## $str = STR,
## $ort = ORT,
## $plz = PLZ
## )
## commit
}
## close adr
}
enter(msg, buf)
register char *msg;
register char *buf;
{
register char *p;
register int c;
fprintf(stderr, "%s:\t", msg);
p = buf;
while ((c = getchar()) >= 0)
{
if (c == '\n')
break;
*p++ = c;
}
*p = 0;
return (p - buf);
}

39
WEGA/contrib/ingres/dbs/data/base/adr/d.x Normal file
View File

@ -0,0 +1,39 @@
## shared adr
## char KURZ[51];
## short STD;
## short TAG;
## short MON;
## short JAHR;
## char DBS[2];
## char PQR[2];
## char AMX[2];
amx()
{
## open dis
fprintf(stderr, "DRUCK dis\n\n");
## retrieve dis
## (
## KURZ = $kurz,
## STD = $std,
## TAG = $tag,
## MON = $mon,
## JAHR = $jahr,
## DBS = $dbs,
## PQR = $pqr,
## AMX = $amx
## )
## {
printf("%-50s: %2d.%2d.%4d %2d Uhr", KURZ, TAG, MON, JAHR, STD);
if (*DBS == 'y')
printf(" I");
if (*PQR == 'y')
printf(" P");
if (*AMX == 'y')
printf(" A");
putchar('\n');
## }
## close dis
}

120
WEGA/contrib/ingres/dbs/data/base/adr/dis.x Normal file
View File

@ -0,0 +1,120 @@
## shared adr
## char KURZ[51];
## char PC[51];
## short STD;
## short TAG;
## short MON;
## short JAHR;
## char DBS[2];
## char PQR[2];
## char AMX[2];
amx()
{
register int cnt;
## open dis
fprintf(stderr, "DISTRIBUTION\n\n");
while (enter("\n Institution", KURZ))
{
cnt = 0;
## retrieve dis $kurz = KURZ
## (
## STD = $std,
## TAG = $tag,
## MON = $mon,
## JAHR = $jahr,
## DBS = $dbs,
## PQR = $pqr,
## AMX = $amx
## )
## {
cnt++;
tuple("EXIST");
## }
if (cnt)
continue;
if (enter(" Computer-Typ", PC) == 0)
continue;
if (i_enter(" Tag", &TAG) == 0)
continue;
if (i_enter(" Monat", &MON) == 0)
continue;
if (i_enter(" Jahr", &JAHR) == 0)
continue;
if (i_enter(" Stunde", &STD) == 0)
continue;
if (enter("ING_DB System [y/n]", DBS) == 0)
continue;
if (enter(" PQR System [y/n]", PQR) == 0)
continue;
if (enter(" AMX System [y/n]", AMX) == 0)
continue;
## use (+dis)
## append dis
## (
## $kurz = KURZ,
## $pc = PC,
## $std = STD,
## $tag = TAG,
## $mon = MON,
## $jahr = JAHR,
## $dbs = DBS,
## $pqr = PQR,
## $amx = AMX
## )
## commit
}
## close dis
}
enter(msg, buf)
register char *msg;
register char *buf;
{
register char *p;
register int c;
fprintf(stderr, "%s:\t", msg);
p = buf;
while ((c = getchar()) >= 0)
{
if (c == '\n')
break;
*p++ = c;
}
*p = 0;
return (p - buf);
}
i_enter(msg, num)
register char *msg;
register int *num;
{
char buf[51];
if (enter(msg, buf))
{
*num = atoi(buf);
return (1);
}
return (0);
}
tuple(msg)
register char *msg;
{
printf("\n%s: %2d.%2d.%4d %2d Uhr", msg, TAG, MON, JAHR, STD);
if (*DBS == 'y')
printf(" ING_DB");
if (*PQR == 'y')
printf(" PQR");
if (*AMX == 'y')
printf(" AMX");
printf("\n\n");
}

67
WEGA/contrib/ingres/dbs/data/base/adr/kurz.x Normal file
View File

@ -0,0 +1,67 @@
## shared adr
## char NAME[51];
## char TITEL[51];
## char KURZ[51];
## char LANG[51];
## char ABT[51];
## char STR[51];
## char ORT[51];
## char PLZ[51];
amx()
{
register char *p;
## open adr
fprintf(stderr, "ADRESSENDRUCK\n\n");
while (enter("\nKURZ", KURZ))
{
## retrieve adr $kurz = KURZ
## (
## NAME = $name,
## TITEL = $titel,
## KURZ = $kurz,
## LANG = $lang,
## ABT = $abt,
## STR = $str,
## ORT = $ort,
## PLZ = $plz
## )
## {
printf("\n\n\n\t%s\n", KURZ);
if (*LANG != ' ')
printf("\t%s\n", LANG);
if (*ABT != ' ')
printf("\t%s\n", ABT);
if (*TITEL != ' ')
printf("\t%s %s\n", TITEL, NAME);
printf("\t%s\n", STR);
printf("\t%s\n", ORT);
printf("\t------------------------\n");
printf("\t%s\n", PLZ);
## }
}
## close adr
}
enter(msg, buf)
register char *msg;
register char *buf;
{
register char *p;
register int c;
fprintf(stderr, "%s:\t", msg);
p = buf;
while ((c = getchar()) >= 0)
{
if (c == '\n')
break;
*p++ = c;
}
*p = 0;
return (p - buf);
}

70
WEGA/contrib/ingres/dbs/data/base/adr/name.x Normal file
View File

@ -0,0 +1,70 @@
## shared adr
## char NAME[51];
## char TITEL[51];
## char KURZ[51];
## char LANG[51];
## char ABT[51];
## char STR[51];
## char ORT[51];
## char PLZ[51];
amx()
{
register char *p;
## open adr
fprintf(stderr, "ADRESSENDRUCK\n\n");
while (enter("\nNAME", NAME))
{
## retrieve adr $name = NAME
## (
## NAME = $name,
## TITEL = $titel,
## KURZ = $kurz,
## LANG = $lang,
## ABT = $abt,
## STR = $str,
## ORT = $ort,
## PLZ = $plz
## )
## {
printf("\t| \n\t|------------------------------------------\n");
printf("\t| \n\t| %s\n", KURZ);
if (*LANG != ' ')
printf("\t| %s\n", LANG);
if (*ABT != ' ')
printf("\t| %s\n", ABT);
if (*TITEL != ' ')
printf("\t| %s %s\n", TITEL, NAME);
printf("\t| %s\n", STR);
printf("\t| %s\n", ORT);
printf("\t| ------------------------\n");
printf("\t| %s\n", PLZ);
## }
}
printf("\t| \n\t|------------------------------------------\n");
## close adr
}
enter(msg, buf)
register char *msg;
register char *buf;
{
register char *p;
register int c;
fprintf(stderr, "%s:\t", msg);
p = buf;
while ((c = getchar()) >= 0)
{
if (c == '\n')
break;
*p++ = c;
}
*p = 0;
return (p - buf);
}

113
WEGA/contrib/ingres/dbs/data/base/adr/new.x Normal file
View File

@ -0,0 +1,113 @@
## shared adr
## char KURZ[51];
## short STD;
## short TAG;
## short MON;
## short JAHR;
## char DBS[2];
## char PQR[2];
## char AMX[2];
amx()
{
int num;
char buf[51];
## open dis
fprintf(stderr, "UPDATE DISTRIBUTION\n\n");
while (enter("\n Institution", KURZ))
{
## use (+dis)
## retrieve dis $kurz = KURZ
## (
## STD = $std,
## TAG = $tag,
## MON = $mon,
## JAHR = $jahr,
## DBS = $dbs,
## PQR = $pqr,
## AMX = $amx
## )
## {
tuple("OLD");
if (i_enter(" Tag", &num))
TAG = num;
if (i_enter(" Monat", &num))
MON = num;
if (i_enter(" Jahr", &num))
JAHR = num;
if (i_enter(" Stunde", &num))
STD = num;
if (enter("ING_DB System [y/n]", buf))
AAsmove(buf, DBS);
if (enter(" PQR System [y/n]", buf))
AAsmove(buf, PQR);
if (enter(" AMX System [y/n]", buf))
AAsmove(buf, AMX);
## replace
## (
## $std = STD,
## $tag = TAG,
## $mon = MON,
## $jahr = JAHR,
## $dbs = DBS,
## $pqr = PQR,
## $amx = AMX
## )
tuple("NEW");
## }
## commit
}
## close dis
}
enter(msg, buf)
register char *msg;
register char *buf;
{
register char *p;
register int c;
fprintf(stderr, "%s:\t", msg);
p = buf;
while ((c = getchar()) >= 0)
{
if (c == '\n')
break;
*p++ = c;
}
*p = 0;
return (p - buf);
}
i_enter(msg, num)
register char *msg;
register int *num;
{
char buf[51];
if (enter(msg, buf))
{
*num = atoi(buf);
return (1);
}
return (0);
}
tuple(msg)
register char *msg;
{
printf("\n%s: %2d.%2d.%4d %2d Uhr", msg, TAG, MON, JAHR, STD);
if (*DBS == 'y')
printf(" ING_DB");
if (*PQR == 'y')
printf(" PQR");
if (*AMX == 'y')
printf(" AMX");
printf("\n\n");
}