PNAMELEN
strncpy (pstack[psptr], pname, PNAMELEN);
pstack[psptr][PNAMELEN] = '\0';
static char pstack[PSMAX][PNAMELEN+1]; /* the procedure name stack */