P8000/WEGA/contrib/ingres/dbs/demo/amx/09.x

18 lines
314 B
Plaintext

## 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);
}