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-07-06 16:42:51 +00:00
parent 0a43b96573
commit d3767a54ce
2 changed files with 29 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
WEGA/contrib/ingres/dbs/demo/amx/09.x Normal file
View File

@ -0,0 +1,17 @@
## shared Dt
## i2 tnum;
## i2 tnum_arg;
amx(argc, argv)
int argc;
char **argv;
{
tnum_arg = (argc == 1)? 10: atoi(argv[1]);
## open Teile
## retrieve Teile $Tnum <= tnum_arg and $Tnum >= 2 (tnum = $Tnum)
## {
if (tnum == 2 || tnum == tnum_arg)
## print ($Tname, $Tnum)
## }
## close Teile
fflush(stdout);
}

12
WEGA/contrib/ingres/dbs/demo/amx/10.x Normal file
View File

@ -0,0 +1,12 @@
## shared Dt
## i2 tnum;
amx(argc, argv)
int argc;
char **argv;
{
tnum = (argc == 1)? 10: atoi(argv[1]);
## open Teile
## retrieve Teile $Tnum <= tnum and $Tnum > 5 { print ($Tname, $Tnum) }
## close Teile
fflush(stdout);
}