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

13 lines
217 B
Plaintext

## shared Dt
## i2 lnum;
amx(argc, argv)
int argc;
char **argv;
{
lnum = (argc == 1)? 122: atoi(argv[1]);
## open Lieferung
## retrieve Lieferung $Lnum == lnum { print ($Tnum) }
## close Lieferung
fflush(stdout);
}